Using a loop function or lapply funtion to have a plot : I have a very large data set including 200 variables (columns), I am looking for a way (Loop function, etc) to have multiple variables in the same plot. How can I modify the below code to have this kind of plot(instead of repeating each geom_line(aes(y=)) for each W?

    A<-seq(0,9,1)
    B<-seq(30,39,1)
    W1<-seq(0.3,1.2,0.1)
    r<-seq(32,41,1)
    f<-seq(33,42,1)
    W2<-seq(1.3,2.2,0.1)
    g<-seq(34,43,1)
    W3<-seq(4.3,5.2,0.1)
    s<-data.frame(A,B,m1,r,f,m2,g,m3)
    ggplot(s,aes(x=A,y=B))+geom_point()+geom_line(aes(y=W1))+
    geom_line(aes(y=W2))+
    geom_line(aes(y=W3))+theme_bw()