R语言函数报错：count不适配NULL对象，且无法向Tabel添加变量

核心问题点 #

• count(x)使用错误：dplyr的count()是用于统计分组频数的函数，返回的是数据框而非单个数值，无法直接参与除法运算，这是报错「No applicable method for 'count' applied to object of class "NULL"」的根源。
• 全局变量操作不规范：直接在函数内修改未定义的Tabel对象，既不符合函数封装的原则，也会导致赋值失效。
• 占比计算的数值类型问题：原代码中count(x)返回数据框，会导致计算结果不是预期的数值型向量。

修正后的代码 #

步骤1：准备数据（模拟dif数据集） #

# 用提供的timedif数据创建dif数据集
dif <- data.frame(timedif = c(-5, 34, -3, -8, 26, -3, -18, -4, 0, 21, 1229, 63, -3, -7, -2, 
                              0, -31, -15, -26, 0, 1691, 5, -3, 7, -186, -7, -3, -52, 0, -1, 
                              -1, -29))

步骤2：修改函数 #

library(dplyr)

procentfunc <- function(x){
  absdi <- abs(x$timedif)
  # 用nrow(x)获取观测总数，替代错误的count(x)
  total <- nrow(x)
  pro0 <- (sum(x$timedif == 0) / total) * 100
  pro1 <- (sum(absdi < 7) / total) * 100
  pro30 <- (sum(absdi < 30) / total) * 100
  pro90 <- (sum(absdi < 90) / total) * 100
  pro1y <- (sum(absdi < 365.25) / total) * 100
  pro2y <- (sum(absdi < 365.25*2) / total) * 100
  pro3y <- (sum(absdi < 365.25*3) / total) * 100
  
  # 返回计算结果向量，而非直接修改全局变量
  return(as.numeric(c(pro0, pro1, pro30, pro90, pro1y, pro2y, pro3y)))
}

步骤3：执行函数并赋值给Tabel #

# 先初始化Tabel数据框（如果之前不存在）
Tabel <- data.frame()
# 调用函数并将结果存入Tabel的对应列
Tabel$dif_group <- procentfunc(x = dif)

# 查看结果
Tabel

进阶优化（带阈值标签） #

如果需要给结果添加明确的阈值名称，可修改函数返回带标签的数据框，更直观：

procentfunc <- function(x){
  absdi <- abs(x$timedif)
  total <- nrow(x)
  result_df <- data.frame(
    threshold = c("等于0天", "<7天", "<30天", "<90天", "<1年", "<2年", "<3年"),
    percentage = c(
      (sum(x$timedif == 0)/total)*100,
      (sum(absdi <7)/total)*100,
      (sum(absdi <30)/total)*100,
      (sum(absdi <90)/total)*100,
      (sum(absdi <365.25)/total)*100,
      (sum(absdi <365.25*2)/total)*100,
      (sum(absdi <365.25*3)/total)*100
    )
  )
  return(result_df)
}

# 调用后直接得到带标签的结果
Tabel <- procentfunc(x = dif)

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