gpt4 book ai didi

r - 在grobTree中使用linesGrob绘制ggplot页脚

转载 作者:行者123 更新时间:2023-12-04 19:00:12 24 4
gpt4 key购买 nike

我创建了一个广泛的主题来绘制 ggplot类似于五点三十八分。不使用 ggthemes , 我该如何使用 linesGrob在我的页脚上方画一条居中的线,并在不触及图边缘的情况下穿过图的 85%?我正在争取类似于这个情节的页脚。 enter image description here

我可以编辑字体文本、颜色和大小,所以不用担心。

到目前为止,我所拥有的是:

data(iris)

library(ggplot2)
library(grid)
library(gridExtra)

plot20 <- ggplot(iris,aes(x=Petal.Length,y=Sepal.Length,color=Species)) +
geom_point(alpha=0.5,size=5) +
ylab("") +
xlab("") +
theme(panel.grid.minor.y=element_blank(),
panel.grid.major.x=element_line(color="#D2D2D2",size=0.7),
panel.grid.major.y=element_line(color="#D2D2D2",size=0.7),
panel.grid.minor.x=element_blank(),
panel.background = element_rect(fill = '#F0F0F0',colour=NA),
plot.background = element_rect(fill = '#F0F0F0', colour=NA, size = 4),
legend.background=element_rect(fill="#F0F0F0"),
legend.key=element_blank(),
legend.title=element_text(face="bold"),
axis.text=element_text(face="bold"),
legend.position="none",
axis.ticks=element_blank())

#Plot Header
my_g2 <- grobTree(rectGrob(gp=gpar(fill='#F0F0F0',col=NA)),
textGrob("Iris Dataset",x=0.115, vjust = -0.5,gp=gpar(fontsize=18,fontface="bold")),
textGrob("This is a subheader for the iris dataset",x=0.235,vjust=1.5,gp=gpar(fontsize=14)))

#Plot Footer
my_g1 <- grobTree(rectGrob(gp=gpar(fill="#F0F0F0",col=NA)),
textGrob(" medavis6",x=0,hjust=0,gp=gpar(col="darkorange",fontsize=8,fontface="bold")),
textGrob("Source: R",x=.85,hjust=-1.06,gp=gpar(col="black",fontsize=8)))

#Plot All Together
allplot <- grid.arrange(my_g2,plot20,my_g1,heights=c(1.17,11,0.5))

这给了我这个。

enter image description here

我想我应该使用 linesGrob()在我的页脚中 grobTree() ,但每当我尝试这样做时,我都无法让它出现在我的情节中。我不确定我的 rectGrob()正在绘制它的顶部或正在发生的事情。

感谢您的任何帮助,如果您需要任何说明,请告诉我。另外,如果我的任何代码写得不好,我总是在寻求 build 性的批评以使其更好!

最佳答案

我也用过 linesGrob

#Plot Footer
my_g1 <- grobTree(rectGrob(gp=gpar(fill="#F0F0F0",col=NA)),
linesGrob(unit(c(.05, .95), "npc"), unit(1, "npc"),
gp = gpar(col = 'lightgrey', lwd = 4)),
textGrob(" medavis6",x=0,hjust=0,gp=gpar(col="darkorange",fontsize=8,fontface="bold")),
textGrob("Source: R",x=.85,hjust=-1.06,gp=gpar(col="black",fontsize=8)))

#Plot All Together
allplot <- grid.arrange(my_g2,plot20,my_g1,heights=c(1.17,11,0.5))
grid.draw(allplot)

enter image description here

关于r - 在grobTree中使用linesGrob绘制ggplot页脚,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39215564/

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