ggplot2，geom_line循环内仅显示一行

Question

通过循环“ geom_line”函数，我遇到了一些问题。

我有这段代码，对我来说没问题。

variables<-c("irritabilidad","duracionsuenho")
ggplot(dfu) + 
geom_line(data = dfu, aes(x = dfu[,c("fecha")], y = dfu[,c(variables[1])],color = "1") ) + 
geom_line(data = dfu, aes(x = dfu[,c("fecha")], y = dfu[,c(variables[2])],color = "2") ) +

scale_color_manual(name="Legenda",values=rainbow(length(variables)),labels=variables) +
xlab('Fecha') +
ylab('Variables')     

结果：

现在，我试图通过循环所有变量来添加“ geom_line”：

variables<-input$variables

variables<-c("irritabilidad","duracionsuenho")
c<-0    
p<-ggplot(dfu)

for (x in variables){        
    c<-c+1
    p<-p+geom_line(data = dfu, aes(x = dfu[,c("fecha")], y = dfu[,c(x)],color = as.character(c)) )
}

p<-p+scale_color_manual(name="Variables",values=rainbow(length(variables)),labels=variables) 
p<-p+xlab('Fecha') 
p<-p+ylab('Variables')             
p

这是结果：

我需要循环，因为我有几个变量。 你能告诉我怎么了吗？ 非常感谢