[英]ggplot2: Mark years with geom_ribbon
我有一个看起来像这样的数据集:
library(tidyverse)
df <- tribble(
~year, ~value, ~dummy,
#--|--|----
2003, 3, 0,
2004, 4, 0,
2005, 7, 1,
2006, 9, 1,
2007, 15, 1,
2008, 17, 0,
2009, 7, 0,
2010, 8, 0,
2011, 8, 0,
2012, 7, 0,
2013, 2, 0,
2014, 9, 1,
2015, 5, 0
)
我正在尝试绘制value
系列,并在背景中的灰色长条中标记为dummy == 1
。 (像这样 )
我在将正确的年份传递给R时遇到了麻烦。我尝试了以下操作,但是它不起作用:
dummy_years <- df$year[df$dummy == 1]
ggplot(df , aes(x = year)) +
geom_ribbon(aes(x = dummy_years, ymin = -Inf, ymax = Inf)) +
geom_line(aes(y = value))
我得到: Error: Aesthetics must be either length 1 or the same as the data (13): x, ymin, ymax
。
我们可以使用geom_rect
,由dummy
填充,并使用scale_fill_manual
:
library(ggplot2)
ggplot(df) +
geom_line(aes(year, value)) +
geom_rect(aes(ymax = Inf,
ymin = -Inf,
xmin = year,
xmax = year + 1,
fill = factor(dummy)),
alpha = .5,
show.legend = FALSE) +
scale_fill_manual(values = c('transparent', 'grey45')) +
theme_minimal()
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.