R语言绘制barplot报错求助：非数值参数问题

这个报错的核心原因是你传给barplot()的不是纯数值向量——aggregate()返回的是一个包含两列的数据框（Year和汇总后的女性难民数），直接把整个数据框丢给barplot()的话，它无法区分分类列和数值列，就会触发类型错误。

步骤1：确认汇总数据的结构 #

先看看你汇总后的数据结构，用str()检查：

agg_result <- aggregate(`Female 0-4` ~ Year, data = Refugees_demographics, FUN = sum)
str(agg_result)

输出应该类似：

'data.frame':	11 obs. of  2 variables:
 $ Year       : num  2006 2007 2008 2009 2010 ...
 $ Female 0-4 : int  0 3 21 2475 1833 ...

可以看到Female 0-4是数值型，没问题，但整个对象是数据框，不是barplot()需要的数值向量。

步骤2：正确调用barplot() #

你需要明确提取数值列作为height参数，同时用Year列作为x轴的标签：

# 提取数值向量作为高度，指定x轴标签
barplot(
  height = agg_result$`Female 0-4`,
  names.arg = agg_result$Year,  # 用年份作为柱子的标签
  xlab = "Year",
  ylab = "Number of Female Refugees (0-4)",
  main = "Female Refugees Aged 0-4 by Year",
  col = "lightblue"
)

备选方案：用ggplot2绘制（更灵活） #

如果你习惯用tidyverse的工具，ggplot2的语法更直观，也不容易出错：

library(ggplot2)

ggplot(agg_result, aes(x = factor(Year), y = `Female 0-4`)) +
  geom_bar(stat = "identity", fill = "steelblue") +  # stat="identity"表示直接用y值作为柱子高度
  labs(
    x = "Year",
    y = "Number of Female Refugees (0-4)",
    title = "Female Refugees Aged 0-4 by Year"
  ) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 旋转x轴标签避免重叠

为什么转换数值无效？ #

你之前尝试转换数值无效，大概率是因为没有正确提取列——比如如果直接用as.numeric(agg_result)，会把整个数据框转成数值向量（把Year和数值列混在一起），这显然不是你想要的。正确的做法是单独提取Female 0-4列再确认类型：

# 确认列类型
is.numeric(agg_result$`Female 0-4`)  # 应该返回TRUE

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