R 在箱线图缩写中添加其他图例

我在添加带有缩写解释的图例时遇到问题。例如

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

我想添加图例，说明每个字母的含义

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

---

下面的代码生成一个附加的矢量图例，并将其显示为图例

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

Legend <- as.character(df$name)
Legend <- replace(Legend, Legend=="A-B", "A-B = Ananas-Banana")
Legend <- replace(Legend, Legend=="A-C", "A-C = Ananas-Cucumber")
Legend <- replace(Legend, Legend=="B-C", "B-C = Banana-Cucumber")

library(ggplot2)
ggplot(df, aes(x = name, y = value, colour = Legend))+
geom_boxplot()

---

下面的代码生成一个附加的矢量图例，并将其显示为图例

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

Legend <- as.character(df$name)
Legend <- replace(Legend, Legend=="A-B", "A-B = Ananas-Banana")
Legend <- replace(Legend, Legend=="A-C", "A-C = Ananas-Cucumber")
Legend <- replace(Legend, Legend=="B-C", "B-C = Banana-Cucumber")

library(ggplot2)
ggplot(df, aes(x = name, y = value, colour = Legend))+
geom_boxplot()

---

您可能想在此处查找您可能想在此处查找这是一个误导性的图例。您知道如何隐藏小方框图图标以仅保留文本图例吗？@NicolaBogucky您可以根据需要调整图例的标签。上面的示例应仅演示如何添加图例和自定义标签。我更改了上面示例中的文本。您将找到一份如何对ggplot2进行更改和添加的文档。这是一个误导性的图例。您知道如何隐藏小方框图图标以仅保留文本图例吗？@NicolaBogucky您可以根据需要调整图例的标签。上面的示例应仅演示如何添加图例和自定义标签。我更改了上面示例中的文本。您将找到一份关于如何对ggplot2进行更改和添加的文档。