如何与多个组一起控制图例

Question

我有这样的情节：

使用以下代码创建的：

# Make data:
set.seed(42)
n <- 1000
df <- data.frame(values = sample(0:5, size = n, replace = T, prob = c(9/10,  rep(0.0167,5))), 
                 group  = rep(1:100, each = 10), 
                 fill2  = rep(rnorm(10), each = 100),
                 year   = rep(2001:2010, times = 100)
                 )
df$values <- ifelse(df$year %in% 2001:2007 == T, 0, df$values)

# Plot
require(ggplot2)
p <- ggplot(data = df, aes(x = year, y = values, colour = as.factor(group))) + geom_line()
p

既然有这么多的团体，这个传说真的无济于事。 理想情况下，我只需要图例中的两个元素，一个用于组= 1，其他所有组（它们都应具有相同的颜色）。 有办法强制吗？

Answer 1

您可以定义一个只有两个值的新变量，但仍根据其原始组绘制线，

ggplot(data = df, aes(x = year, y = values, group = group,
                      colour = ifelse(group == 1, "1", "!1"))) +  
  geom_line() +
  scale_colour_brewer("groups", palette="Set1")