library(ggplot2)
dat<-data.frame(x=letters[1:5],y=1:5,z=c(9,7,6,3,2))
ggplot(dat,aes(x=x,y=y,group=1))+
  geom_line(colour = 'red')+
  geom_line(aes(y=z,group=1),colour='blue')
需要group=1因为x不是连续型变量。