在boxplot缩写中添加其他图例

Question

添加图例和缩写说明时遇到问题.举个例子

df <- data.frame(value = c(seq(1,50,1),seq(21,70,1),seq(41,90,1)),
             name = c(rep("A-B",50),rep("B-C",50),rep("A-C",50)))

ggplot(df, aes(name, value))+
geom_boxplot()

我有data.frame和缩写的解释.

full_name <- data.frame(abb =c("A","B","C"),fname = c("Ananas","Banana","Cucumber"))

我想添加带有每个字母含义的信息的图例.

Answer 1

library(ggplot2)
p <- ggplot(df, aes(name, value))+
  geom_boxplot()

library(gridExtra)
grid.arrange(p, tableGrob(full_name, rows = NULL), nrow = 1, widths = c(4, 1))