将图例添加到箱线图 rstudio

Question

我使用以下代码创建箱线图：

plot <- ggplot(WL, aes(y = wavelength, x = factor(category, level = c("A", "B")))) +
  theme_bw() +
  geom_boxplot(outlier.colour = "gray30", outlier.shape = 8, outlier.size = 2, lwd=1, fill = c("#C6DBEF", "#FEE391")) +
  ylab(expression(lambda[(km)])) +
  theme(plot.margin = unit(c(2,2,2,2), "cm"),
        axis.title.x = element_blank(),
        axis.title.y=element_text(size=20),
        plot.title = element_text(size = 22, vjust = 2))

如何添加图例？我想把它放在情节中（右上角）。它应该显示两种颜色和描述。

我正在尝试使用对我不起作用的 legends()。

Answer 1

问题在于您指定 fill 的位置 - 以下代码将为您提供一个图例，更改最后一行中的 position 将允许您在需要的位置进行更改：

# sample data
WL <- data.frame(wavelength = rnorm(100, 0,1),
                 category = sample(LETTERS[1:2], 100, replace = TRUE))

# plot
ggplot(WL, aes(y = wavelength, x = factor(category, level = c("A", "B")), fill = category)) +
  theme_bw() +
  geom_boxplot(outlier.colour = "gray30", outlier.shape = 8, outlier.size = 2, lwd = 1) +
  ylab(expression(lambda[(km)])) +
  theme(plot.margin = unit(c(2,2,2,2), "cm"),
        axis.title.x = element_blank(),
        axis.title.y=element_text(size=20),
        plot.title = element_text(size = 22, vjust = 2)) +
  scale_fill_manual(values = c("#C6DBEF", "#FEE391")) + 
  theme(legend.position = "bottom")

将图例添加到箱线图 rstudio

Add legend to boxplot rstudio

r

ggplot2

boxplot