R 如何在GGPlot中控制多个图例和线型

使用下面的代码，我试图制作一个具有顶部和底部面板/面的图形，同时按状态和类别进行分组.

由于这个互动分组，我想做三件我正在苦苦挣扎的事情:

1. 将图例一个接一个地放在一起，而不是并排
2. 将标签添加到状态图例，使其为"不包括"(对于0)和"包括"(对于1)
3. 将线型更改为点线而不是虚线

代码:

d %>% 
  filter(outcome != "alcohol") %>% 
ggplot(., aes(x = wave, y = mean, group = interaction(as.factor(status), category),
              color = category, linetype = as.factor(status))) +
  geom_point(size = 2.5) +
  geom_line(linewidth = 1.5) +
  facet_wrap(~outcome,
             ncol = 1,
             scales = "free_y") +
  labs(x = "",
       y = "") +
  theme_minimal() +
  theme(legend.position = "bottom")

生效日期:

d <- structure(list(wave = c(1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 1, 1, 2, 
2, 3, 3, 4, 4, 5, 5, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 1, 1, 2, 2, 
3, 3, 4, 4, 5, 5, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5), mean = c(2.068, 
2.221, 2.044, 2.225, 1.965, 2.122, 2.269, 2.52, 2.416, 2.666, 
2.042, 2.237, 2.006, 2.256, 1.94, 2.176, 2.187, 2.5, 2.348, 2.668, 
2.053, 2.132, 2.069, 2.11, 1.998, 2.006, 2.4, 2.482, 2.593, 2.639, 
2.038, 2.189, 2.012, 2.177, 1.945, 2.127, 2.228, 2.5, 2.639, 
2.609, 2.166, 2.31, 2.132, 2.362, 2.067, 2.121, 2.458, 2.57, 
2.624, 2.815), category = c("all", "all", "all", "all", "all", 
"all", "all", "all", "all", "all", "white", "white", "white", 
"white", "white", "white", "white", "white", "white", "white", 
"black", "black", "black", "black", "black", "black", "black", 
"black", "black", "black", "nopoverty", "nopoverty", "nopoverty", 
"nopoverty", "nopoverty", "nopoverty", "nopoverty", "nopoverty", 
"nopoverty", "nopoverty", "poverty", "poverty", "poverty", "poverty", 
"poverty", "poverty", "poverty", "poverty", "poverty", "poverty"
), status= c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 
0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 
1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1)), row.names = c(NA, 
-50L), class = c("tbl_df", "tbl", "data.frame"))