ggplot2可视化封装为函数后显示异常，寻求解决方案

你遇到的问题核心是变量名冲突：函数参数名country和数据框中的列名country重名了，导致filter(country == country)的逻辑完全不符合预期。

为什么会异常？ #

在filter语句里，R会优先解析函数的参数country，所以country == country等价于传入的参数值（比如"Germany"）和自身比较，结果永远是TRUE。这就意味着你没有过滤任何数据，而是保留了data_verylong里的所有行，数据量过大导致可视化完全异常。

两种解决方法 #

方法1：修改函数参数名，避免重名

把函数的参数名改成和列名不同的名称，比如selected_country：

deepdive <- function(selected_country) {
  data_verylong %>%
    filter(country == selected_country)%>%
    ggplot(aes(year, value, color=indicator))+
    geom_line()+
    facet_wrap(vars(indicator), scales = "free_y", ncol = 1, strip.position = "top")+
    theme(strip.background = element_blank(), strip.placement = "outside")
}

deepdive("Germany")

方法2：使用.data代词明确引用数据框列（tidyverse推荐）

通过.data$country明确指定要引用数据框中的country列，避免和函数参数混淆：

deepdive <- function(country) {
  data_verylong %>%
    filter(.data$country == country)%>%
    ggplot(aes(year, value, color=indicator))+
    geom_line()+
    facet_wrap(vars(indicator), scales = "free_y", ncol = 1, strip.position = "top")+
    theme(strip.background = element_blank(), strip.placement = "outside")
}

deepdive("Germany")

两种方法都能正确过滤出指定国家的数据，生成和原代码一致的可视化结果。

内容的提问来源于stack exchange，提问作者justforjan