r - 在 R 中使用 ggplot 更改图例的一部分？

Question

我正在尝试使用 ggplot 更改显示的图例的一部分。例如，如果我有一些数据并创建如下图:

library(ggplot2)
dat <- data.frame(
  nam = c('a','b','c','d','e','f','g','h','i'),
  val = c(2,5,1,6,8,3,9,10,8)
)

col1  <- setNames(scales::hue_pal(c(0, 360) + 15, 100, 64, 0, 1)(length(dat$nam[1:5])), dat$nam[1:5])
col2  <- setNames(rep('#e6e6e6', length(dat$nam[6:9])), dat$nam[6:9])
colFinal <- unname(c(col1, col2))

ggplot(dat, aes(x = nam, y = val, fill= nam )) +  
  geom_bar(stat = 'identity') +
  scale_fill_manual(values = colFinal, name = 'name') +
  theme_bw()

这创建了这个情节:

如您所见，f 到 i 的颜色都是相同的灰色。我想知道是否可以通过“合并”f 到 i 来更改图例，以仅显示这些值的单个图例条目。例如，我正在尝试做这样的事情:

但需要注意的是，我试图通过改变情节本身来做到这一点。我不可能返回并更改数据框。我在想也许这可以通过使用 ggplot_build 来实现，但我不确定!？

关于如何做到这一点有什么建议吗？

Answer 1

一种选择是通过操作ggplot对象来手动设置填充比例的breaks和labels:

library(ggplot2)
dat <- data.frame(
  nam = c('a','b','c','d','e','f','g','h','i'),
  val = c(2,5,1,6,8,3,9,10,8)
)

col1  <- setNames(scales::hue_pal(c(0, 360) + 15, 100, 64, 0, 1)(length(dat$nam[1:5])), dat$nam[1:5])
col2  <- setNames(rep('#e6e6e6', length(dat$nam[6:9])), dat$nam[6:9])
colFinal <- unname(c(col1, col2))

p <- ggplot(dat, aes(x = nam, y = val, fill= nam )) +  
  geom_bar(stat = 'identity') +
  scale_fill_manual(values = colFinal, name = 'name') +
  theme_bw()

p$scales$scales[[1]]$breaks <- letters[1:6]
p$scales$scales[[1]]$labels <- c(letters[1:5], "Others")
p