在 grobTree 中使用 linesGrob 绘制 ggplot 页脚

Question

我在 ggplot 中创建了一个广泛的主题，类似于五点三十八。在不使用 ggthemes 的情况下，我如何利用 linesGrob 在我的页脚上方画一条线，该线居中并穿过图的 85%，而不触及图的边缘？我正在努力寻找类似于此情节的页脚。

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

到目前为止，我拥有的是：

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))

这给了我这个。

我想我应该在我的页脚 grobTree() 中使用 linesGrob()，但每当我尝试这样做时，我都无法让它出现在我的情节中。我不确定我的 rectGrob() 是否正在策划它或正在发生什么。

感谢您提供的所有帮助，如果您需要任何说明，请告诉我。另外，如果我的任何代码写得不好，我一直在寻求建设性的批评，以使其变得更好！

Answer 1

我也用过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)

在 grobTree 中使用 linesGrob 绘制 ggplot 页脚

Drawing ggplot Footer Using linesGrob within grobTree

r

ggplot2

gridextra

grob