[英]geom_rect on some panels of a facet_wrap
I am trying to get a shaded rectangle on the first three panels in my facet_wrap
plot. 我试图在
facet_wrap
图中的前三个面板上得到一个阴影矩形。 However, when I use geom_rect
for the job, it produces the rectangle on each of the panels. 但是,当我使用
geom_rect
作为作业时,它会在每个面板上生成矩形。 Is there a way to selectively get the rectangle only on the first three panels? 有没有办法只在前三个面板上选择性地获取矩形?
Here is some code 这是一些代码
dfTemp = data.frame(value = rnorm(100*4), variable = sort(rep(1:4, 100)),
date = rep(seq.Date(
from = as.Date('2011-01-01', format = '%Y-%m-%d'),
length.out = 100,
by = 'day'), 4))
ggplot(dfTemp) +
geom_rect(aes(xmin = as.Date('2011-02-01', format = '%Y-%m-%d'),
xmax = as.Date('2011-03-01', format = '%Y-%m-%d'),
ymin = -Inf,
ymax = Inf), alpha = 0.2, fill = 'grey') +
geom_line(aes(x = date, y = value, group = variable, color = factor(variable))) +
facet_wrap(~variable , scale = 'free', ncol = 1)
I updated my code to 我将我的代码更新为
dfTemp = data.frame(value = rnorm(100*4), variable = sort(rep(1:4, 100)),
date = rep(seq.Date(
from = as.Date('2011-01-01', format = '%Y-%m-%d'),
length.out = 100,
by = 'day'), 4))
ggplot(dfTemp) +
geom_rect(data = dfTemp[dfTemp$variable %in% c(2, 3),],
aes(xmin = as.Date('2011-02-01', format = '%Y-%m-%d'),
xmax = as.Date('2011-03-01', format = '%Y-%m-%d'),
ymin = -Inf,
ymax = Inf), alpha = 0.2, fill = 'grey') +
geom_line(aes(x = date, y = value, group = variable, color = factor(variable))) +
facet_wrap(~variable , scale = 'free', ncol = 1)
Note that I am now subsetting the data that I am passing to geom_rect
. 请注意,我现在将我传递给
geom_rect
的数据子集geom_rect
。 But this gives me this warning: 但这给了我这个警告:
Warning message: In
[<-.factor
(*tmp*
, rng, value = c(1L, 1L, 1L, 1L, 1L, 1L, : invalid factor level, NA generated警告信息:在
[<-.factor
。factor(*tmp*
,rng,value = c(1L,1L,1L,1L,1L,1L,:无效因子水平,NA生成)
What does this mean? 这是什么意思?
Here is a solution that creates a new data frame with variable
and then takes advantage of recycling in aes
to generate the rectangle coordinates for each value in variable
. 这是一个解决方案,它创建一个带有
variable
的新数据框,然后利用aes
的回收来为variable
每个值生成矩形坐标。
ggplot(dfTemp) +
geom_rect(
data=data.frame(variable=factor(1:3)),
aes(xmin=as.Date('2011-02-01'), xmax=as.Date('2011-03-01'), ymin=-Inf, ymax=Inf),
alpha = 0.5, fill = 'grey') +
geom_line(aes(x = date, y = value, group = variable, color = factor(variable))) +
facet_wrap(~variable , scale = 'free', ncol = 2)
There's a very simple way to do this: 有一种非常简单的方法可以做到这一点:
library(ggplot2)
library(plyr) # for .(...)
ggplot(dfTemp) +
geom_rect(subset= .(variable<4),aes(xmin = as.Date('2011-02-01', format = '%Y-%m-%d'),
xmax = as.Date('2011-03-01', format = '%Y-%m-%d'),
ymin = -Inf,
ymax = Inf), alpha = 0.2, fill = 'grey') +
geom_line(aes(x = date, y = value, group = variable, color = factor(variable))) +
facet_wrap(~variable , scale = 'free', ncol = 1)
The only difference with your original code is the addition of subset=.(variable<4)
to the call to geom_rect(...)
. 与原始代码的唯一区别是在对
geom_rect(...)
的调用中添加了subset=.(variable<4)
geom_rect(...)
。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.