background color in scatterplots

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

background color in scatterplots

Georg Ehret
Dear R community,    I have a scatterplot with multiple vertical ablines. I
wish to color each interval between two ablines in a different color...
Could you please indicate me how to do this efficiently?

Thank you!
Georg.
********************
Georg Ehret
Johns Hopkins
Baltimore

        [[alternative HTML version deleted]]

______________________________________________
[hidden email] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Reply | Threaded
Open this post in threaded view
|

Re: background color in scatterplots

Mike Prager
"Georg Ehret" <[hidden email]> wrote:

> Dear R community,    I have a scatterplot with multiple vertical ablines. I
> wish to color each interval between two ablines in a different color...
> Could you please indicate me how to do this efficiently?
>
> Thank you!
> Georg.
> ********************

Dear Georg,

Try this example:

# Demonstrate scatterplot w/ different color bands
# M.H.P. - March 2008
graphics.off()
# Generate dummy data & make a blank plot:
a <- runif(100)
b <- 2 * runif(100)
plot(a, b, type = "n", main = "Demonstration")
# Set the values of the x-axis references:
vrefs <- c(0.2, 0.4, 0.6)
# Get coordinates of plot
pdims <- par()$usr
# Concatenate them to the vector of x_axis references:
vrefs2 <- c(pdims[1], vrefs, pdims[2])
# Generate some weak colors:
cols <- rainbow(n = length(vrefs2), s = 0.15)
# Add the colors to the plot:
for (i in 2:length(vrefs2)){
    polygon(c(vrefs2[(i-1):i], vrefs2[i:(i-1)]),
        c(rep(pdims[3],2), rep(pdims[4],2)), col = cols[i],
        border = NA)
    }
# Draw the reference lines, points, and box:
abline(v = vrefs)
points(a, b, lwd = 1.5)
box()

--
Mike Prager, NOAA, Beaufort, NC
* Opinions expressed are personal and not represented otherwise.
* Any use of tradenames does not constitute a NOAA endorsement.

______________________________________________
[hidden email] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.