library(ggplot2)

connect_points <- function(df,x_name,y_name)
{
  ggplot(df, aes(x=df[,x_name], y=df[,y_name])) +
    geom_point()+
    geom_line()+
    scale_x_continuous(name = x_name, breaks=seq(0,nrow(df)))+
    ylab(y_name)+
    geom_smoth()
}

L1 <-  read.csv("c://users//alex//desktop//myfilel1.txt")
L1["L"] <- rep(1,nrow(L1))

L2 <-  read.csv("c://users//alex//desktop//myfilel2.txt")
L2["L"] <- rep(2,nrow(L2))

L3<-  read.csv("c://users//alex//desktop//myfilel3.txt")
L3["L"] <- rep(3,nrow(L3))

data <- rbind(L1, L2,L3)

connect_points(L1,"N","Time")
connect_points(L2,"N","Time")
connect_points(L3,"N","Time")


L1 <-  read.csv("c://users//alex//desktop//L1.txt")
L1["L"] <- rep(1,nrow(L1))

L2 <-  read.csv("c://users//alex//desktop//L2.txt")
L2["L"] <- rep(2,nrow(L2))

L3<-  read.csv("c://users//alex//desktop//L3.txt")
L3["L"] <- rep(3,nrow(L3))

data <- rbind(L1, L2,L3)

connect_points(L1,"N","Time")
connect_points(L2,"N","Time")
connect_points(L3,"N","Time")





write.csv(iris,"c://users//alex//desktop//myfile2.txt")