代码之家 › 专栏 › 技术社区 › 89_Simple

在ggplot中为每组插入垂直线

ggplot2 r

89_Simple · 技术社区 · 7 年前

dat <- data.frame(id = rep(1:4,each = 7), year = rep(2012:2018, times = 4),  
              y = runif(28), start = rep(2012:2015,each = 7), end = rep(2014:2017,each = 7))

ggplot(dat, aes(x = year, y = y)) + geom_line() + facet_wrap(~id)

如何为每个id插入两条垂直线,其位置由各自的起始列和结束列给出?

1 回复 | 直到 7 年前

joran 7 年前

尝试以下操作:

library(dplyr)
library(tidyr)
vlines <- dat %>% 
  select(id,start,end) %>% 
  distinct() %>% 
  gather(key = grp,value = x,start,end)

ggplot(dat, aes(x = year, y = y)) + 
  geom_line() + 
  facet_wrap(~id) +
  geom_vline(data = vlines,aes(xintercept = x))

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

3 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

3 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

4 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

4 月前

JBurns · ggplot2 x轴,其中许多天中的每一天都有许多小时。有没有办法将x轴上的日期跨越当天的小时?

4 月前

Jaken · 使用scale_*_steps进行合并时避免重新缩放

4 月前

a_todd12 · ggplot相关矩阵中的颜色完美相关图块

4 月前

a_todd12 · 修复使用带有ggplot的ifelse颜色填充时的图例

4 月前

Victoria Johnson · 如何删除R ggplot中的重复图例

4 月前

mmoore · 创建具有重叠特征的ggplot2地图并配置图例

4 月前