Несколько линейных диаграмм в том же ggplot

Question

Я создаю диаграммы строк из этих данных. Кто-нибудь знает, как добавить еще одну строку (со вторым набором точек отзыва и точности) на той же диаграмме?

recall11Point = c(0.2, 0.2, 0.4, 0.4, 0.4, 0.6, 0.6, 0.6, 0.8, 1.0) 
precision11Point = c(1.0, 0.5, 0.67, 0.5, 0.4, 0.5,0.43,0.38,0.44,0.5) 
d = data.frame("Recall" = recall11Point, "Precision" = precision11Point); 

# old fashioned plotting 
#plot(y=precision11Point, x=recall11Point, type="l") 

ggplot(data=d, aes(x=Recall, y=Precision)) + 
    geom_line(size=2, colour="red") + 
    geom_point(size=10) 

Answer 1

d = data.frame( "Recall" = c(0.2, 0.2, 0.4, 0.4, 0.4, 0.6, 0.6, 0.6, 0.8, 1.0) 
       , "Precision" = c(1.0, 0.5, 0.67, 0.5, 0.4, 0.5,0.43,0.38,0.44,0.5) 
       , "Recall2" = seq(0,0.9, by = 0.1) 
       , "Precision2" = seq(0,0.9, by = 0.1) 
) 

library(ggplot2) 

ggplot(data=d) + 
    geom_line(aes(x=Recall, y=Precision), size=1, colour="red") + 
    geom_point(aes(x=Recall, y=Precision), size=5, color = "red") + 
    geom_line(aes(x=Recall2, y=Precision2), size=1, colour="blue") + 
    geom_point(aes(x=Recall2, y=Precision2), size=5, colour="blue") + 
    theme_bw() + 
    theme(panel.grid.minor = element_blank(), panel.grid.major = element_blank()) 

Answer 2

вы можете создать второй кадр dt2 данных как этот

dt2 <- data.frame(Recall=recall11Point+runif(10), Precision=precision11Point+runif(10)) 
ggplot(data=d, aes(x=Recall, y=Precision)) + 
    geom_line(size=2, colour="red") + 
     geom_point(size=10)+ 
      geom_line(data=dt2, size=2, aes(x=Recall, y=Precision), colour="red") + 
       geom_point(data=dt2, aes(x=Recall, y=Precision), size=10) 

или вы можете создать один кадр данных и добавить group переменную, как это (что лучше при использовании ggplot).

df <- rbind(d, dt2) 
df$group <- gl(2, 10) 

ggplot(data=df, aes(x=Recall, y=Precision, group=group))+ 
    geom_point(size=2)+ 
     geom_line(sise=10)