使用for循环将全局变量（这里是'var'）放入ggplot的ggtitle中的粗体字符串中

Question

参考：如何在ggplot2中使用粗体、斜体和下划线

大家好，我想使用 for 循环将全局变量（此处为“var”）放入 ggplot 的 ggtitle 中的粗体字符串中。

该图没有与“var”相对应的值，它只是显示为“var”。

a <- data.frame(date = 1:5, co2 = 11:15, year = 2021:2025) 
var = 2021
for (var in 2021:2025) {
    print(
        a %>% 
            filter(year == var) %>% 
            ggplot(aes(date, co2)) +
            geom_point() +
            ggtitle(expression(paste(
                bolditalic(var),
                bolditalic("KOR CO2"))))
    )
}

我希望图表标题为 2021 KOR CO2、2022 KOR CO2、...、< strong>2025 KOR CO2。

你能解决这个问题吗？

Answer 1

除了 MrFlick 的解决方案之外：ggplot 还提供通过一两个分组变量自动进行子集化和绘制数据的功能。您可以使用 facet_wrap 和 facet_grid 方便地实现此类分面图。
在你的情况下：

a %>%
    ggplot(aes(date, co2)) +
    geom_point() +
    facet_wrap(~ year)