代码之家 › 专栏 › 技术社区 › Bogaso

创建具有下限和上限的条形图

ggplot2 r

Bogaso · 技术社区 · 7 月前

假设我有下面的情节

library(ggplot2)
library(zoo)
dat = rbind(data.frame('Quarter' = as.yearqtr(as.Date(c('2000-01-01', '2002-01-01', '2004-01-01', '2006-01-01'))), 'Val' = c(10,20,30,40), 'Val_Lower' = c(10,20,30,40) - 5, 'Val_Upper' = c(10,20,30,40)+5, type = rep('A', 4)), 
            data.frame('Quarter' = as.yearqtr(as.Date(c('2000-01-01', '2002-01-01', '2004-01-01', '2006-01-01'))), 'Val' = c(10,20,30,40)-5, 'Val_Lower' = c(10,20,30,40)-5 - 5, 'Val_Upper' = c(10,20,30,40)+5-5, type = rep('B', 4)))

ggplot(dat, aes(x = Quarter, y = Val)) +
  geom_point(aes(color = type)) +
  geom_ribbon(aes(fill = type, ymin = Val_Lower, ymax = Val_Upper), alpha = .3)

然而,我希望为每个数据分别设置垂直条,而不是为下限和上限设置连续的带状线 type ,大致如下

有什么方法可以实现这种情节吗?

1 回复 | 直到 7 月前

M-- 7 月前

我们可以用 geom_linerange :

ggplot(dat, aes(x = Quarter, y = Val, color = type)) +
  geom_linerange(aes(ymin = Val_Lower, ymax = Val_Upper), 
                 alpha = .3, linewidth = 15) +
  geom_point()

^{创建于2024年12月23日

reprex v2.0.2}

推荐文章

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

5 月前

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

5 月前

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

5 月前

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

6 月前

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

6 月前

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

6 月前

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

6 月前

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

6 月前

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

6 月前

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

6 月前