我想使用我们公司的颜色在 R 中制作一个图表。这意味着所有图表的背景应为浅蓝色,但绘图区域应为白色。我正在寻找答案,发现绘制一个矩形就可以完成这项工作(几乎)。然而,绘图区域现在是白色的,并且图形不再可见。这可能吗?
getSymbols('SPY', from='1998-01-01', to='2011-07-31', adjust=T)
GRAPH_BLUE<-rgb(43/255, 71/255,153/255)
GRAPH_ORANGE<-rgb(243/255, 112/255, 33/255)
GRAPH_BACKGROUND<-rgb(180/255, 226/255, 244/255)
par(bg=GRAPH_BACKGROUND)
colorPlottingBackground<-function(PlottingBackgroundColor = "white"){
rect(par("usr")[1], par("usr")[3], par("usr")[2], par("usr")[4], col ="white")
}
plot.xts(SPY, col=GRAPH_BLUE)
colorPlottingBackground()
我知道你已经接受了@plannapus的答案,但这是一个更简单的解决方案
par(bg="lightblue")
plot(0, 0, type="n", ann=FALSE, axes=FALSE)
u <- par("usr") # The coordinates of the plot area
rect(u[1], u[3], u[2], u[4], col="white", border=NA)
par(new=TRUE)
plot(1:10, cumsum(rnorm(10)))
你基本上做的是使用覆盖两个图par(new=TRUE)
:只有一个白色矩形的;另一个包含您实际想要绘制的内容。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)