我用如下代码，花了很多的折线图叠加，像调一下透明度，也就是密度高的地方深一点，密度低的地方浅一点，用如下代码不能实现（alpha=0.5），请问是为什么？

ggplot(alpha=0.5)+
  geom_line(data=S17,aes(V2,V3))+
  geom_line(data=S18,aes(V2,V3))+
  geom_line(data=S19,aes(V2,V3))+
  geom_line(data=S20,aes(V2,V3))+
  geom_line(data=S22,aes(V2,V3))+
  geom_line(data=S23,aes(V2,V3))+
  geom_line(data=S24,aes(V2,V3))+
  geom_line(data=S25,aes(V2,V3))+
  geom_line(data=S26,aes(V2,V3))+
  geom_line(data=S27,aes(V2,V3))+
  geom_line(data=S28,aes(V2,V3))+
  geom_line(data=S30,aes(V2,V3))+
  geom_line(data=S32,aes(V2,V3))+
  geom_line(data=S34,aes(V2,V3))+
  geom_line(data=S35,aes(V2,V3))+
  geom_line(data=S36,aes(V2,V3))+
  geom_line(data=S38,aes(V2,V3))+
  geom_line(data=S39,aes(V2,V3))+
  geom_line(data=S41,aes(V2,V3))+
  geom_line(data=S43,aes(V2,V3))+
  geom_line(data=S45,aes(V2,V3))+
  geom_line(data=S46,aes(V2,V3))