R函数报错‘Error in table(nothing to tabulate)’求助排查

核心原因 #

你传入2017作为参数时，R会把它当成列的索引序号，而非列名。但用read.csv读取纯数字开头的列名时，R会自动给列名加X前缀（比如原列名2017会变成X2017），这就导致函数里提取不到正确的列，最终first.digits是空向量，触发table()的报错。而你分步运行时手动指定了正确列名，所以没问题。

具体修复步骤 #

1. 先确认真实列名
   运行代码查看数据集的列名：

   colnames(my.data)
   

   你会发现年份列的真实名称是X2017。

2. 修改函数的参数处理逻辑
   让函数自动把数字年份转换成带前缀的列名，同时处理缺失值和特殊数值（比如负数）：

   build.digit.freqs <- function(data, year) {
     # 生成正确的列名
     target_col <- paste0("X", year)
     # 提取列并去掉缺失值
     year_vals <- na.omit(data[[target_col]])
     # 提取首位数字（处理负数，取绝对值后转字符再截第一位）
     first_digits <- substr(as.character(abs(year_vals)), 1, 1)
     # 生成频率表
     freq_table <- table(first_digits)
     return(freq_table)
   }
   

3. 正常调用函数
   直接传数字年份即可：

   build.digit.freqs(my.data, 2017)
   

额外检查项 #

• 如果运行后还是报错，检查该列是否全是缺失值：

  sum(is.na(my.data$X2017))
  

  如果结果等于该列的行数，说明没有有效数据，自然没法生成频率表。
• 确保数据里的数值都是可转换为字符的有效数字，避免非数值型内容干扰。

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