ggplot里面加判断

library(ggplot2)

df<-data.frame(x=1:10,y=11:20)
Switch=T

ggplot(df,aes(x,y))+
{if(Switch)geom_hline(yintercept=15)}+
  geom_point()

将判断语句整体放置在{}里就可以了，
而且判断语句不能放在最后