r - 在图例下添加其他文本(R + ggplot)

This question already has answers here:

Displaying text below the plot generated by ggplot2

(4个答案)



Inserting a table under the legend in a ggplot2 histogram

(2个答案)


5年前关闭。




假设我们有一个简单的图:

ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) +
    geom_point(aes(color = vore)) +
    theme(legend.position="bottom")

是否可以在图例项下方添加文本？我知道如何在图例上添加标题。但是可以说我想要下面写的一些其他一般信息。

找到解决方案将非常高兴。

谢谢!
马丁

最佳答案

这是一种可能的方法:

library(gridExtra)
library(grid)

p <- ggplot(data = msleep, aes(x = log(bodywt), y = sleep_total)) +
    geom_point(aes(color = vore)) +
    theme(legend.position="bottom", plot.margin = unit(c(1,1,3,1),"lines")) +
    annotation_custom(grob = textGrob("Extra text.  Read all about it"),
        xmin = 2, xmax = 2, ymin = -4.5, ymax = -4.55)


gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.draw(gt)

关于r - 在图例下添加其他文本(R + ggplot)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27180535/