R：上覆轨迹图和散点图

我正在使用ggplot2和轨迹图，这些图类似于散点图，但使用的是连接点的线，因为有特定的规则。
我的目标是用散点图覆盖轨迹图，每个散点图都有不同的数据。 首先，数据：

# first dataset
ideal <- data.frame(ideal=c('a','b')
                ,x_i=c(0.3,0.8)
                ,y_i=c(0.11, 0.23))

# second dataset
calculated <- data.frame(calc = c("alpha","alpha","alpha")
                     ,time = c(1,2,3)
                     ,x_c = c(0.1,0.9,0.3)
                     ,y_c = c(0.01,0.26,0.17)
                     )

之后，我创建了轨迹图，使用：

因此：

如何将

理想的

数据覆盖到此轨迹图（当然没有轨迹，它们应该只是点）？

---

提前谢谢

通常不推荐使用qplot。下面是如何绘制这两个数据帧。但是，如果数据帧被合并，并且您有一个

x

和

y

列，另外还有一个

方法
列，其中包含with
计算的
或
理想的
，那么ggplot可能对您更有效

library(ggplot2)

ideal <- data.frame(ideal=c('a','b')
                    ,x_i=c(0.3,0.8)
                    ,y_i=c(0.11, 0.23)
                    )

# second dataset
calculated <- data.frame(calc = c("alpha","alpha","alpha")
                         ,time = c(1,2,3)
                         ,x_c = c(0.1,0.9,0.3)
                         ,y_c = c(0.01,0.26,0.17)
                         )

ggplot(aes(x_c, y_c, color = "calculated"), data = calculated) + 
  geom_point( size = 5) +
  geom_path (linetype=1, size=0.5, arrow = arrow(angle=15, type="closed"))+ 
  geom_point(aes(x_i, y_i, color = "ideal"), data = ideal, size = 5) + 
  labs(x = "x", y = "y", color = "method")

库（ggplot2）
你好，非常感谢。它的方向是正确的，但是在
计算的
数据中没有轨迹。你知道如何添加它吗？更新答案。
library(grid)
library(data.table)

qplot(x_c, y_c, data = calculated, color = calc, group = calc)+ 
  geom_path (linetype=1, size=0.5, arrow=arrow(angle=15, type="closed"))+ 
  geom_point (data = calculated, colour = "red")+
  geom_point (shape=19, size=5, fill="black")

library(ggplot2)

ideal <- data.frame(ideal=c('a','b')
                    ,x_i=c(0.3,0.8)
                    ,y_i=c(0.11, 0.23)
                    )

# second dataset
calculated <- data.frame(calc = c("alpha","alpha","alpha")
                         ,time = c(1,2,3)
                         ,x_c = c(0.1,0.9,0.3)
                         ,y_c = c(0.01,0.26,0.17)
                         )

ggplot(aes(x_c, y_c, color = "calculated"), data = calculated) + 
  geom_point( size = 5) +
  geom_path (linetype=1, size=0.5, arrow = arrow(angle=15, type="closed"))+ 
  geom_point(aes(x_i, y_i, color = "ideal"), data = ideal, size = 5) + 
  labs(x = "x", y = "y", color = "method")