如何在facet wrap中修改多个图表标题？

Question

我使用

facet_wrap()

使用此代码创建了 6 个图表::

library(ggplot2)
p <- ggplot(data = kenmerken_ot, aes(x = Persoonskenmerken, y = slachtoffers, fill = 
kenmerk))
p + geom_col(position = "dodge") +
facet_wrap(~ soort + kenmerk) +
labs(x = NULL, y = "Slachtoffers in %", fill = "Test") +
guides(fill = FALSE) +
theme(axis.text.x = element_blank())

数据是这样的：

玛吉斯	Persoonskenmerken	经期	slachtoffers	排序	肯默克
瓦尔德	Leeftijd: 15 tot 25 jaar	2021	19.5	在线	1
瓦尔德	Leeftijd: 25 tot 45 jaar	2021	18.4	在线	1
瓦尔德	Leeftijd: 45 tot 65 jaar	2021	18	在线	1
瓦尔德	Onderwijsniveau: 1 Laag	2021	12	在线	2
瓦尔德	Onderwijsniveau：2 Middelbaar	2021	17.7	在线	2
瓦尔德	Onderwijsniveau：3 Hoog	2021	17.7	在线	2
瓦尔德	Gestandaardiseerd inkomen: 1e 20%-groep	2021	17.7	在线	2

• 我想删除“Online and Tradioneel”标签并将它们放在图的右侧（水平）。
• 我也想把1、2、3标签换成年龄、学历、收入
• 我希望它们在每个图表中只出现一次而不是两次。

我怎样才能做到这一点？

kenmerken_ot <- structure(list(Marges = c("Waarde", "Waarde", "Waarde", "Waarde", 
"Waarde", "Waarde", "Waarde", "Waarde", "Waarde", "Waarde", "Waarde", 
"Waarde", "Waarde", "Waarde", "Waarde", "Waarde", "Waarde", "Waarde", 
"Waarde", "Waarde", "Waarde", "Waarde", "Waarde", "Waarde"), 
    Persoonskenmerken = c("Leeftijd: 15 tot 25 jaar", "Leeftijd: 25 tot 45 jaar", 
    "Leeftijd: 45 tot 65 jaar", "Leeftijd: 65 jaar of ouder", 
    "Onderwijsniveau: 1 Laag", "Onderwijsniveau: 2 Middelbaar", 
    "Onderwijsniveau: 3 Hoog", "Gestandaardiseerd inkomen: 1e 20%-groep", 
    "Gestandaardiseerd inkomen: 2e 20%-groep", "Gestandaardiseerd inkomen: 3e 20%-groep", 
    "Gestandaardiseerd inkomen: 4e 20%-groep", "Gestandaardiseerd inkomen: 5e 20%-groep", 
    "Leeftijd: 15 tot 25 jaar", "Leeftijd: 25 tot 45 jaar", "Leeftijd: 45 tot 65 jaar", 
    "Leeftijd: 65 jaar of ouder", "Onderwijsniveau: 1 Laag", 
    "Onderwijsniveau: 2 Middelbaar", "Onderwijsniveau: 3 Hoog", 
    "Gestandaardiseerd inkomen: 1e 20%-groep", "Gestandaardiseerd inkomen: 2e 20%-groep", 
    "Gestandaardiseerd inkomen: 3e 20%-groep", "Gestandaardiseerd inkomen: 4e 20%-groep", 
    "Gestandaardiseerd inkomen: 5e 20%-groep"), Perioden = c(2021, 
    2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 
    2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 
    2021, 2021, 2021), slachtoffers = c(19.5, 18.4, 18, 12, 15.4, 
    17.7, 17.7, 17.7, 15.6, 16.9, 17.1, 17.3, 23.7, 20.8, 16.1, 
    9.8, 15.2, 16.7, 19, 22.6, 16.4, 15.6, 15.7, 17.1), soort = c("Online", 
    "Online", "Online", "Online", "Online", "Online", "Online", 
    "Online", "Online", "Online", "Online", "Online", "Traditioneel", 
    "Traditioneel", "Traditioneel", "Traditioneel", "Traditioneel", 
    "Traditioneel", "Traditioneel", "Traditioneel", "Traditioneel", 
    "Traditioneel", "Traditioneel", "Traditioneel"), kenmerk = c(1, 
    1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 1, 1, 1, 1, 2, 2, 2, 3, 
    3, 3, 3, 3)), row.names = c(NA, -24L), spec = structure(list(
    cols = list(Marges = structure(list(), class = c("collector_character", 
    "collector")), Persoonskenmerken = structure(list(), class = c("collector_character", 
    "collector")), Perioden = structure(list(), class = c("collector_double", 
    "collector")), `Online criminaliteit/Totaal slachtoffers (%)` = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), delim = ";"), class = "col_spec"), problems = <pointer: 0x00000238df1bcd50>, class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

Answer 1

要获得有关您问题的帮助，您可能需要输入一些示例代码。我在这里链接了一个指南（MDE 指南）