Использование geom_line в цикле for

Question

Я хотел бы последовательно добавлять строки к объекту ggplot. Но я не могу получить следующий якобы простой код для работы:

фрейм данных содержит временные ряды, которые я хочу, чтобы построить на периоды от 0 до 20.

p <- ggplot(data=dfp, aes(x=seq(0,20,1), y=dfp)) 

for (i in 1:7) { 
    p <- p + geom_line(aes(y=dfp[i])) 
} 

p 

Answer 1

Самый простой способ заключается в использовании aes_string вместо aes.

# load necessary package 
require(ggplot2) 
# create sample data 
dfp <- data.frame(matrix(rnorm(147), nrow=21)) 
# original plot (removed unnecessary call to y) 
p <- ggplot(data=dfp, aes(x=seq(0,20,1))) 
# loop 
for (i in 1:7) { 
    # use aes_string with names of the data.frame 
    p <- p + geom_line(aes_string(y = names(dfp)[i])) 
} 
# print the result 
print(p) 

Answer 2

Используя тот же dfp от ответа Тени:

library(tidyr) 
library(dplyr) 

, а затем:

dfp %>% gather() %>% group_by(key) %>% 
     mutate(x=1:n()) %>% 
     ggplot(aes(x=x, y=value,group=key)) + geom_line() 

добавить colour=key к aes() вызова, если вы также хотите легенду. Попробуйте запустить часть трубы, чтобы увидеть, что gather, а остальные биты.