gpt4 book ai didi

r - 如何使用网格包绘制矩形

转载 作者:行者123 更新时间:2023-12-04 20:30:13 26 4
gpt4 key购买 nike

我需要在图表上绘制一个矩形以突出显示不同的变化。我需要使用 grid包裹。我尝试使用 grid.rect但它不起作用。我希望我的矩形看起来像图片上的那样。

在图片的左侧,您可以看到我的图表,在图片的右侧,我添加了矩形(在 Paint 中),就像我想要的那样。

enter image description here

library(grid)
library(lattice)
library(sandwich)

data("Investment")
Investment <- as.data.frame(Investment)

trellis.par.set(theme = canonical.theme("postscript", color=FALSE))
grid.newpage()
pushViewport(viewport(x=0, width=.4, just="left"))
print(barchart(table(Investment$Interest)),
newpage=FALSE)
popViewport()
pushViewport(viewport(x=.4, width=.5, just="left"))
print(xyplot(Investment ~ Price, data=Investment,
auto.key=list(space="right"),
par.settings=list(superpose.symbol=list(pch=c(1, 3, 16),
fill="white"))),
newpage=FALSE)

popViewport()

最佳答案

您尝试在何处绘制矩形并不完全清楚,但下面的代码将添加矩形以大致匹配您的图片。您可以调整位置。

照原样使用您的代码。我将首先重复您的打印语句,然后添加矩形。

print(xyplot(Investment ~ Price, data=Investment, 
auto.key=list(space="right"),
par.settings=list(superpose.symbol=list(pch=c(1, 3, 16),
fill="white"))),
newpage=FALSE)


grid.rect(x = unit(0.42, "npc"), y = unit(0.35, "npc"),
width = unit(0.2, "npc"), height = unit(0.2, "npc"),
gp=gpar(col="red"))

popViewport()

Added Rectangle

关于r - 如何使用网格包绘制矩形,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48218030/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com