我使用的是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)
)用第一个散点图创建一个散点图很容易:
library(ggplot2)
ggplot(calculated, aes(x=x_c, y=y_c)) + geom_point()之后,我使用this helpful link创建了轨迹图。
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")有了这个结果:

如何将ideal数据覆盖到这个轨迹图(当然,没有轨迹,它们应该只是点)?
提前感谢!
发布于 2018-05-29 08:55:41
通常不推荐使用qplot。下面是如何绘制这两个数据文件的方法。但是,如果合并了数据格式,并且有一个x和y列,另外一个包含calculated或ideal的method列,则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")

https://stackoverflow.com/questions/50579887
复制相似问题