如何仅将特定级别的因素包含到 facet_wrap 中？

如何解决如何仅将特定级别的因素包含到 facet_wrap 中？

我是一个相对较新的 R 用户 我有一个数据框“Lossl”如下：

'data.frame':   100 obs. of  18 variables:
 $ plot      : chr  "3" "1" "5" "1" ...
 $ day       : Factor w/ 3 levels "0","218","365": 1 1 1 1 1 1 1 1 2 2 ...
 $ ID        : chr  "A014" "A047" "A110" "A125" ...
 $ type      : chr  "litter" "litter" "litter" "litter" ...
 $ species   : Factor w/ 4 levels "birch leaves",..: 2 3 1 3 4 1 4 2 2 2 ...
 $ treat     : Factor w/ 2 levels "char","control": 2 2 2 1 2 1 1 1 2 2 ...
 $ inimass   : num  4.02 4 4.02 4 4.02 4 4.02 4 4.01 4.02 ...
 $ inichar   : num  0 0 0 0 0 0 0 0 0 0 ...
 $ fresh.mass: num  4.02 4 4.02 4 4.02 4 4.02 4 4.62 4.46 ...
 $ rem_g     : num  4.02 4 4.02 4 4.02 4 4.02 4 3.45 3.55 ...
 $ rem       : num  100 100 100 100 100 ...
 $ W         : num  0 0 0 0 0 ...
 $ Cot       : num  NA NA NA NA NA ... 

我正在尝试按因子“天”创建条形图。

ggplot(data=Lossr,aes(x=species,y=W)) +coord_cartesian(ylim=c(0,80)) +
 scale_colour_manual(values=c("black","3"))+
 stat_summary(fun = mean,geom = 'bar',aes(fill=treat),colour='black',width=0.5,position=position_dodge(0.6)) + 
scale_fill_manual(values=c("grey","green")) +
 stat_summary(fun.data = mean_se,geom = 'errorbar',position=position_dodge(0.6),aes(fill=treat)) + 
facet_wrap(. ~day) + theme_bw()

结果是

所以我希望从因子“day”中排除级别 1 的“0”， 如果我这样做：

ggplot(data=Lossr,80)) + scale_colour_manual(values=c("black","3"))+ 
stat_summary(fun = mean,"green")) + 
stat_summary(fun.data = mean_se,aes(fill=treat)) + 
facet_wrap(~day==c("218","365")) + theme_bw()

这是我需要的因素水平，但标签变成了逻辑上的真假，而不是我在上一张图中的天数。 有人可以帮我用标签解决这个问题吗？ 谢谢。