Digamos que eu tenha o gráfico abaixo
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)
No entanto, em vez de uma faixa contínua para limites inferiores e superiores, quero ter uma barra vertical para cada dado separadamente com diferentes type
, algo como abaixo
Existe alguma maneira de atingir esse tipo de enredo?
Poderíamos usar
geom_linerange
:Criado em 2024-12-23 com reprex v2.0.2