R语言：使用增量变量统计字符串出现次数的赋值问题求助

嘿，我完全懂你碰到的这个坑！你说的情况大概率是因为你把同一个计数器变量x复用在了所有预设字符串的统计中，导致每次更新x都会影响所有关联的条目。R里确实没有像Java那样的new关键字来显式创建新变量实例，但咱们有几个简单又靠谱的解决办法：

方法一：每次循环重新初始化计数器 #

最直接的修正方式是把计数器的初始化放到外层循环内部，这样每遍历一个预设字符串，都会生成一个全新的局部计数器，不会和其他字符串的计数互相干扰。举个实际代码例子：

# 预设的目标字符串列表
preset_strings <- c("apple", "banana", "cherry")
# 你的数据示例
your_data <- c("I love apple pie", "banana is sweet", "apple juice", "cherry tart", "banana bread")

# 用来存储结果的列表
count_result <- list()

# 外层循环：遍历每个要统计的字符串
for (target_str in preset_strings) {
  # 关键！每次循环都新建一个计数器，初始化为0
  x <- 0
  # 内层循环：遍历所有数据条目
  for (data_entry in your_data) {
    # 检查当前数据条目是否包含目标字符串
    if (grepl(target_str, data_entry)) {
      x <- x + 1
    }
  }
  # 将当前字符串的计数存入结果列表
  count_result[[target_str]] <- x
}

# 查看结果
print(count_result)

运行这段代码后，每个字符串的计数都是独立的，不会出现同步变化的问题。

方法二：用R的向量化函数替代双层循环 #

其实在R里，手动写双层循环并不是最优解——R是向量型语言，用向量化函数会更高效、更简洁，还能彻底避免计数器管理的麻烦。比如用基础R的sapply，或者结合stringr包的工具：

基础R实现（统计包含目标字符串的数据条目数） #

counts <- sapply(preset_strings, function(target) {
  # 用grepl生成逻辑向量，再求和得到计数
  sum(grepl(target, your_data))
})

# 结果会是一个带命名的向量，直接展示每个字符串的计数
print(counts)

进阶：统计所有数据中目标字符串的总出现次数（包括单个条目里多次出现的情况） #

如果你需要统计的不是“包含该字符串的条目数”，而是“该字符串在所有数据里的总出现次数”，可以用stringr包的str_count：

library(stringr)

total_counts <- sapply(preset_strings, function(target) {
  sum(str_count(your_data, target))
})

print(total_counts)

为什么你的原代码会出问题？ #

简单来说，你之前应该是把x定义在了外层循环外面，这样所有预设字符串共享同一个x变量，每次递增都会修改这个唯一的变量，自然会同步影响所有关联的列表条目。把x放到外层循环内部后，每次循环都会创建一个新的x，彼此之间完全独立，就不会有同步更新的问题了。

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