如何在R语言引号内使用全局变量？循环动态赋值怎么实现？

嘿，我来帮你搞定这个R语言里的循环文本赋值问题～

你想要给age_only$CI_Age.at.Adverse.Event按10-14、15-19…75-79的区间分组，给每个区间对应的agecat列赋值带具体数字的描述文本，但卡在了循环里怎么把变量i和j嵌入到引号里的字符串中。

在R里把变量插入字符串有几种实用方法，下面给你逐一演示：

方法1：用基础R的paste()拼接（无需额外包） #

这是最经典的字符串拼接方式，把固定文本和变量拼接在一起：

# 先初始化agecat列，避免出现NA值
age_only$agecat <- NA

i <- 10
while (i <= 80) {
  j <- i + 5
  # 用paste把变量和文本拼接成目标字符串
  age_only$agecat[age_only$CI_Age.at.Adverse.Event >= i & age_only$CI_Age.at.Adverse.Event < j] <- paste("Between", i, "and", j-1)
  i <- j
}
# 补上你原代码里的"Above 85"分组
age_only$agecat[age_only$CI_Age.at.Adverse.Event >= 85] <- "Above 85"

方法2：用字符串插值（更简洁，推荐） #

从R 4.0.0版本开始支持类似glue的字符串插值，直接用{}包裹变量就能嵌入字符串；如果不想加载额外包，也可以用sprintf()：

age_only$agecat <- NA

i <- 10
while (i <= 80) {
  j <- i + 5
  # 方法2.1：用glue包的插值（代码更易读）
  age_only$agecat[age_only$CI_Age.at.Adverse.Event >= i & age_only$CI_Age.at.Adverse.Event < j] <- glue::glue("Between {i} and {j-1}")
  
  # 方法2.2：用base R的sprintf（无需额外包）
  # age_only$agecat[...] <- sprintf("Between %d and %d", i, j-1)
  
  i <- j
}
age_only$agecat[age_only$CI_Age.at.Adverse.Event >= 85] <- "Above 85"

额外小技巧：其实不用循环也能高效实现 #

R是向量化语言，处理分组这类操作，用cut()函数比循环更高效简洁，一行代码就能搞定：

# 定义分组的断点
breaks <- c(10, seq(15, 80, by=5), 85, Inf)
# 定义每个断点对应的标签文本
labels <- c(paste(seq(10,75,by=5), seq(14,79,by=5), sep=" and "), "Above 85")
# 直接生成分组结果
age_only$agecat <- cut(age_only$CI_Age.at.Adverse.Event, breaks=breaks, labels=labels, include.lowest=TRUE)

这种方式不仅代码更短，运行速度也比循环快，尤其当你的数据集很大时优势更明显～

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