r - 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)
)
使用第一个创建散点图很容易:
library(ggplot2)
ggplot(calculated, aes(x=x_c, y=y_c)) + geom_point()
之后,我使用这个有用的链接创建了轨迹图:
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
数据叠加到这个轨迹图上(当然没有轨迹,它们应该只是点)?
提前致谢!
解决方案
qplot
通常不推荐。这是绘制两个数据框的方法。x
但是,如果数据框被合并,并且您有一个and列,以及一个包含 with ory
的附加列,那么 ggplot 可能对您更有效。method
calculated
ideal
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")
推荐阅读
- jquery - 循环遍历表数据并使用 jQuery 获取数据
- scala - 从依赖类型问题的 HList 中的 Scala 无形选择
- powerbi - DAX 查询返回 1 个月前的文本值
- salesforce - 我正在学习 Apex 代码中的面向对象概念,并且不断收到 "Variable does not exist: name" 。我究竟做错了什么?
- c# - 如何在 Entity Framework Core 中设置多个一对一关系?
- scala - 假/真列常数
- c# - 将 DynamicExpression.ParseLambda 与字符串插值一起使用
- java - 从 txt.file 读取并使用 java 打印出它的 2d 数字
- r - 每行生成一个条形图并在网格中对齐条形图
- javascript - 使用 Ajax 请求从 html 表单运行 php 脚本