ggplot2: как добавить вторую строку сюжета

Question

Ok, [R3.4.2 + ggplot2] Используя приведенный ниже пример данных, как добавить второй график данных? Я попробовал этот пример, который я нашел на этом сайте;

library(ggplot2] 
** This is part of the origanl code **** 
rpt<-read.csv(file="rpt.csv,header=T) 
rpt1<-read.csv(file="rpt1.csv,header=T) 
*** code starts here ***** 
ggplot(rpt,aes(JulianDate,w)) + geom_line(aes(color="First line")) + 
      geom_line(data=rpt1, aes(color="Second line")) + labs(color="Legend text") 

Первый участок имеет x = rpt $ JulianDate, y = rpt1 $ w; а второй участок имеет x1 = RPT1 $ JDAy и y2 = RPT1 $ волк)

Данные (использование DGET (_), чтобы прочитать его):

structure(list(
JDay = c(57023, 57024, 57027, 57028, 57029, 57031, 57032, 57035, 57037), 
Obs = c(1, 1, 1, 1, 1, 1, 1, 1, 1), 
w = c(71, 105, 64, 44, 45, 38, 66, 49, 28), 
WStd = c(0, 0, 0, 0, 0, 0, 0, 0, 0), 
wolf = c(91.59, 135.45, 82.56, 56.76, 58.05, 49.02, 85.14, 63.21, 36.12), 
Adj = c(0, 0, 0, 0, 0, 0, 0, 0, 0)), 
.Names = c("JDay", "Obs", "w", "WStd", "wolf", "Adj"), 
class = "data.frame", 
row.names = c(NA, -9L)) 

Answer 1

В своем комментарии, вы говорите, что rpt и rpt1 имеют одинаковые данные. Поэтому, я думаю, что это то, что вы просите

library(ggplot2) 
ggplot(rpt, aes(x=JDay)) + 
    geom_line(aes(y=w, color="First line")) + 
    geom_line(aes(y=wolf, color="Second line")) + 
    labs(color="Legend text")