R技术咨询：递归函数小数点检测与数值占比计算方法

嗨，我来帮你搞定这两个R语言的问题～

其实检测小数点和递归函数本身没啥绑定关系，核心是判断一个数值是否带有小数部分，不管是不是在递归里都能用这些方法：

• 数值比较法：用trunc()（或者floor()）取整数部分，和原数对比，如果不相等，说明有小数。比如x != trunc(x)——注意哦，像3.0这种数值型数据，R会自动把它当成整数3处理，所以这个方法会判断它没有小数；如果你的数据是字符型的"3.0"，那得用下面的字符串匹配法。
• 字符串匹配法：把数值转成字符串，用grepl()匹配小数点，比如grepl("\\.", as.character(x))，这个能检测到字符串里的小数点，哪怕是"3.0"也能识别。

给你写个递归函数的例子，用来遍历向量里的每个元素，检测是否有小数：

check_decimal_recursive <- function(vec, index = 1) {
  # 递归终止条件：遍历完所有元素
  if (index > length(vec)) {
    return(NULL)
  }
  current_val <- vec[index]
  # 判断是否有小数
  has_decimal <- current_val != trunc(current_val)
  cat("第", index, "个元素：", current_val, "，是否带小数？", has_decimal, "\n")
  # 递归调用，处理下一个元素
  check_decimal_recursive(vec, index + 1)
}

# 测试一下
test_data <- c(1, 1.5, 3.0, 2.8)
check_decimal_recursive(test_data)

先说说你原来代码的问题：你循环的i是1到10的整数，但你的数据里有1.5、3.0这种带小数的数值，table2$xbar2.i.==i根本匹配不到这些小数，所以自然得不到正确的占比结果啦。

其实R里有更简单高效的方法，不用写循环：

方法一：用基础包的table() + prop.table() #

这是最直接的基础方法：

# 先统计每个数值的出现次数
value_counts <- table(table2$xbar2.i.)
# 直接计算占比（单个次数/总行数）
value_proportions <- prop.table(value_counts)
# 转成数据框，方便查看结果
result <- data.frame(数值 = names(value_proportions), 占比 = as.numeric(value_proportions))
print(result)

用你给的例子测试的话，1.5对应的占比就是0.1，3.0就是0.2，完全符合你的需求。

方法二：用dplyr（tidyverse工具）更直观 #

如果你习惯用tidyverse的语法，这个方法可读性更强：

library(dplyr)

result <- table2 %>%
  # 统计每个数值的出现次数
  count(xbar2.i.) %>%
  # 计算占比：当前次数 / 总次数（总行数）
  mutate(占比 = n / sum(n))

print(result)

这里count()帮你统计每个数值的出现次数，mutate()里的sum(n)就是数据集的总行数，一步到位算出占比。

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