R:仅更改特定区域的绘图背景颜色(基于x值)

时间:2012-01-05 10:34:03

标签: r plot

如何更改绘图的背景颜色,仅针对特定区域? 例如,从x = 2到x = 4?

奖金问题:x和y坐标的组合是否也可能? (例如从(1,2)到(3,4))?

非常感谢!

1 个答案:

答案 0 :(得分:18)

这可以通过考虑与您的描述略有不同的情节来实现。基本上,您希望在x轴上的所需位置之间绘制一个彩色矩形,填充整个y轴限制范围。这可以使用rect()来实现,并注意在下面的示例中,我如何获取当前绘图的用户(usr)坐标以给出y轴的限制并且我们绘制超出这些限制,以确保图中涵盖了整个范围。

plot(1:10, 1:10, type = "n", axes = FALSE) ## no axes
lim <- par("usr")
rect(2, lim[3]-1, 4, lim[4]+1, border = "red", col = "red")
axis(1) ## add axes back
axis(2)
box()   ## and the plot frame
如果我们提供一个坐标向量,

rect()可以绘制一系列矩形,它可以轻松处理你的奖金的任意x,y坐标的情况,但对于后者,它更容易避免错误如果你从X坐标向量开始,另一个用Y坐标开始,如下所示:

X <- c(1,3)
Y <- c(2,4)
plot(1:10, 1:10, type = "n", axes = FALSE) ## no axes
lim <- par("usr")
rect(X[1], Y[1], X[2], Y[2], border = "red", col = "red")
axis(1) ## add axes back
axis(2)
box()   ## and the plot frame

您可以轻松拥有奖金中的数据:

botleft <- c(1,2)
topright <- c(3,4)
plot(1:10, 1:10, type = "n", axes = FALSE) ## no axes
lim <- par("usr")
rect(botleft[1], botleft[2], topright[1], topright[2], border = "red",
     col = "red")
axis(1) ## add axes back
axis(2)
box()   ## and the plot frame