用相同的颜色设置一些颜色的ggplot并去掉标签[重复]

Question

我有一个更大的dataframe，但我在这里发布了一个可重复性的示例。

df = data.frame(fc_col = c(rep('apple',3),rep('orange',3),rep('banana',3)),var1 = c(rep(1:3,3)),var2 = c(20,10,5,30,15,2,40,27,8))

如果我绘图：

> ggplot(data=df, aes(x=var1, y=var2,colour = fc_col))+
+     geom_line()

我明白了：

我想将apple 转换为黑色，将banana orange 转换为单一颜色，例如蓝色。想象一下，在这种情况下，因子fc_col 没有 3 个级别，而是 300。我还想摆脱标签 banana orange 并写一个单独的说 fruits 并将它与蓝色放在一起如上所述的颜色。

Answer 1

这可能会有所帮助。

诀窍是，保留水果本身的fc_col，将在aes() 中用作group。并为color 参数创建另一个变量new_fac。

library(dplyr)
library(ggplot2)

df %>%
  mutate(new_fac = ifelse(fc_col == "apple", fc_col, "fruits") %>% as.factor()) %>%
  ggplot(aes(var1, var2, colour = new_fac, gruop = fc_col)) +
  geom_line() +
  scale_color_manual(values = c("black", "blue"))

data.table

library(data.table)
df2 <- setDT(df)[,new_fac := ifelse(fc_col == "apple", "apple", "fruits")][]
ggplot(df2, aes(var1, var2, colour = new_fac, gruop = fc_col)) +
  geom_line() +
  scale_color_manual(values = c("black", "blue"))