我有一个如下的小组。我想在未使用的空间中添加一些信息,但是不知道如何将自定义图例或注释合并到我用蓝色指示的空间中:
这是我的代码
p %>%
ggplot( aes(x=year, y=prop1)) +
geom_line( group=1, aes(color=group), color="black", size=1.2 )+
geom_line(data=p %>% dplyr::select(-group), aes(group=group2), color="grey", size=0.5, alpha=0.5) +
theme_bw() +
ggtitle("a panel") +
facet_wrap(~name)+
theme(
strip.background = element_blank(),
strip.text.x = element_blank()
)