r - 同一个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() )