如何以编程方式在ggplot的一系列行中隔离一个行

我花了整天的时间进行黑客攻击和搜索。希望有人能提供帮助。我正在为一个节目季准备一系列下载。我想隔离一个情节并给它加上颜色，而让其他线条保持中性。我之前使用ifelse通过geom_point绘图完成了此操作。我没有尝试过使用geom_line。我觉得解决方案很简单，所以请原谅我。我知道我可以通过手动强制使用已定义颜色矢量的比例尺来做到这一点，但是我想切换变量，而不必每次都手动创建带有颜色值的矢量。

library(plyr)
library(dplyr)
library(ggplot2)

set.seed(407)
getResults <- function(ep_title) {
  days_in_release <- c(1:5)
  downloads <- rbinom(5, 1000, .2)
  cum_downloads <- cumsum(downloads)
  data.frame(days_in_release, downloads, cum_downloads, ep_title)
}

eps <- c("Foo", "Bar", "Gamma", "Ray", "Comet")

season <- lapply(eps, getResults)
season_tidy <- rbind.fill(season)

season_tidy %>% 
  ggplot(aes(days_in_release, cum_downloads, col = ep_title)) + 
  geom_line() +
  scale_color_manual(aes(color = ifelse("Foo" %in% ep_title, "red", "grey")))