如何使用R中的ggplot将两个不同绘图的点连接起来？
如何使用R中的ggplot将两个不同绘图的点连接起来？
提问于 2019-05-11 00:41:15
我有两个数据帧df1和df2，如下所示：
> df1
dateTime value
1 1 6
2 2 2
3 3 3
4 4 1
> df2
dateTime value
1 1 3
2 2 8
3 3 4
4 4 5我只想在一个图中绘制这些数据帧，将它们分成具有相同x轴的两个不同的图，并将df1的每个值连接到df2的相应值。实际上，这是我想要的图表：
我为获得上面的图表而编写的代码是：
library(grid)
library(dplyr)
plot1 <- df1 %>%
select(dateTime, value) %>%
na.omit() %>%
ggplot() +
geom_point(data = df1, aes(dateTime, value)) +
geom_line(data = df1, aes(x = dateTime, y = value), color = 'green') +
geom_segment(data = setNames(cbind(df1, df2), c("x1", "y1", "x2", "y2")),
aes(x = x1, y = y1, xend = x2, yend = y2), linetype = "dashed") +
theme(axis.text=element_text(size = 14), axis.title=element_text(size = 14),
axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank())
plot2 <- df2 %>%
select(dateTime, value) %>%
na.omit() %>%
ggplot() +
geom_point(data = df2, aes(dateTime, value)) +
geom_line(data = df2, aes(x = dateTime, y = value), color = 'red') +
geom_segment(data = setNames(cbind(df1, df2), c("x1", "y1", "x2", "y2")),
aes(x = x1, y = y1, xend = x2, yend = y2), linetype = "dashed") +
xlab("dateTime") +
theme(axis.text=element_text(size = 14), axis.title=element_text(size = 14))
grid.newpage()
grid.draw(rbind(ggplotGrob(plot1), ggplotGrob(plot2), size = "last"))但结果是：
回答 1
Stack Overflow用户
发布于 2019-05-11 04:54:02
我有一个用gtable来解决你的问题的方法。首先，我们将使绘图与您制作它们的方式相似。我所做的更改是在ggplot()调用中指定公共映射。接下来，在geom_segment()中，我将绘图的线段中的yend分别设置为-Inf和Inf。
plot1 <- df1 %>%
select(dateTime, value) %>%
na.omit() %>%
ggplot(aes(dateTime, value)) +
geom_point() +
geom_line(color = "green") +
geom_segment(aes(xend = dateTime, yend = -Inf), linetype = "dashed") +
theme(axis.text=element_text(size = 14), axis.title=element_text(size = 14),
axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank())
plot2 <- df2 %>%
select(dateTime, value) %>%
na.omit() %>%
ggplot(aes(dateTime, value)) +
geom_point() +
geom_line(color = "red") +
geom_segment(aes(xend = dateTime, yend = Inf), linetype = "dashed") +
xlab("dateTime") +
theme(axis.text=element_text(size = 14), axis.title=element_text(size = 14))此时，我们将组合的grobs转换为gtable：
library(gtable)
gt <- rbind(ggplotGrob(plot1), ggplotGrob(plot2), size = "last")从这个gtable中，我们查找在绘图面板之间放置额外图形对象所需的值。我建议不要盲目地相信您的面板grobs是在gt$grobs[[6]]中，而这些段不是在gt$grobs[[6]]$children[[5]]中。自己查看数据结构，并确认这些元素在gtable中的位置。
# Panel positioning
is_panel <- which(gt$layout$name == "panel")
panel_x <- unique(gt$layout$l[is_panel])
panel_y <- gt$layout$t[is_panel]
# Coordinates and graphical parameters for segments
x_coords <- gt$grobs[[is_panel[1]]]$children[[5]]$x0
gpar <- gt$grobs[[is_panel[1]]]$children[[5]]$gp现在，我们将创建一个新的grob，它模仿线段的x位置，但跨越整个视口。我们将把这个添加到gtable中。
linkgrob <- segmentsGrob(x0 = x_coords, y0 = 0, x1 = x_coords, y1 = 1, gp = gpar)
gt <- gtable_add_grob(gt, linkgrob,
t = panel_y[1] + 1, l = panel_x, b = panel_y[2] - 1)
grid.newpage()
grid.draw(gt)在我的手中，这产生了以下的情节：
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56081686
复制相关文章
相似问题
腾讯云开发者
