一个因素的意大利面图

如何解决一个因素的意大利面图

df_A<-data.frame(cost=ceiling(c(1:100)/10),gamma=c(1:10),error=sample(0:10,100,replace=TRUE),id="Test")

df_B<-data.frame(cost=ceiling(c(1:100)/10),id="Validation")

df_A_B<-rbind(df_A,df_B)

我根据 ID 和 Gamma 对它们进行了意大利面条式绘图

ggplot(df_A_B,aes(x=cost,y=error,color=factor(gamma),fill=interaction(id,gamma))) + 
  geom_line()+geom_point()+theme_bw()+scale_y_continuous(limits = c(0,10))

结果是

没关系，现在我会画一个这样的情节：

对于所有 Gamma，如果相同的 Gamma 为彩色，其他为灰色，我该怎么办？

非常感谢

附言对不起我的英语

解决方法

以下代码将使用包 {gghighlight} 生成以下图。

ggplot(df_A_B,aes(x=cost,y=error,color=factor(gamma),fill=interaction(id,gamma))) + 
  geom_line() + 
  geom_point() + 
  theme_bw() + 
  scale_y_continuous(limits = c(0,10)) +
  facet_wrap(~gamma) + 
  gghighlight()