求助：ggplot在自定义函数内部无法显示绘图的问题

你的函数核心问题是filter条件里错误地将参数x当成了字符串常量，导致筛选出的数据为空，自然无法生成有效图形。以下是具体修正方案：

错误原因 #

原代码中filter(city == "x")里的"x"是硬编码的字符串，它会尝试匹配city列值为"x"的行，而不是你传入的函数参数x对应的城市名称。如果你的数据里没有city为"x"的记录，ggplot就会基于空数据绘图，最终看不到任何图形。

修正后的代码 #

方案1：函数内部显式打印图形 #

graph <- function(x, y) {
  p <- df %>% 
    filter(city == x, year == y) %>%  # 去掉x的引号，使用参数值
    ggplot(aes(log(income))) +
    geom_histogram()
  print(p)  # 显式打印绘图对象
}

方案2：函数返回绘图对象，调用时打印 #

graph <- function(x, y) {
  df %>% 
    filter(city == x, year == y) %>% 
    ggplot(aes(log(income))) +
    geom_histogram()
}

# 调用函数并打印图形
print(graph("目标城市名", 2023))

额外建议 #

为了函数的健壮性，建议将df作为参数传入函数，避免依赖全局环境中的数据对象：

graph <- function(data, x, y) {
  data %>% 
    filter(city == x, year == y) %>% 
    ggplot(aes(log(income))) +
    geom_histogram()
}

# 调用示例
print(graph(df, "目标城市名", 2023))

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