在 ggplot 中用标准颜色（黑色）更改第一条图形线

Question

符合本link

贴出的问题

如何让group1为黑色，其余为多色？

Answer 1

也许使用 scale_color_identity 会有所帮助 -

library(dplyr)
library(ggplot2)

dftt %>%
  mutate(color = sample(colors(), n_distinct(group))[group], 
         color = replace(color, group == 1, 'black')) %>%
  ggplot(aes(x=x, y=values, group=color, color=color)) + 
  geom_line() + 
  scale_color_identity(guide = "legend", labels = unique(dftt$group))

数据

使用链接中的数据 post -

dftt <- data.frame(values = runif(11*4,0,1),
                 col = c(rep(2,4),
                         rep(1,4),
                         rep(5,9*4)),
                 x= rep(1:4, 11*4),
                 group=rep(factor(1:11), each=4)
                 )

在 ggplot 中用标准颜色（黑色）更改第一条图形线

Changing the first graph line with a standard color (black) in ggplot

r

colors

aes

ggplot2