r - 将函数应用于名称中包含字符串的所有变量

Question

假设你有3个变量，即

VAR1 = 3
VAR2 = 4
VAR3 = 2

有没有办法将名称中带有字符串“VAR”的所有变量转换为字符？

Answer 1

通常人们会尝试将这些变量分组到一个列表中，但如果没有，那么我们可以这样做:

for(nm in ls(pattern = "^VAR")) .GlobalEnv[[nm]] <- as.character(.GlobalEnv[[nm]])

不是全局环境的环境

如果您在不是全局环境的环境中有这些，请按如下方式修改。函数体第一行定义测试数据，下一行将当前环境放入变量e中为方便起见，后面的行执行转换。最后我们检查变量被转换成什么。

f <- function() {
  VAR1 <- 1; VAR2 <- 2; VAR3 <- 3  # test data
  e <- environment()  # current environment
  for(nm in ls(pattern = "^VAR")) e[[nm]] <- as.character(e[[nm]])
  str(VAR1); str(VAR2); str(VAR3)  # check results 
}
f()

列表

如果您可以将它们安排在一个列表中，那么:

L <- list(VAR1 = 1, VAR2 = 2, VAR3 = 3) # test data
L <- lapply(L, as.character)

或者如果有一些元素不需要处理:

L2 <- list(VAR1 = 1, VAR2 = 2, VAR3 = 3, other = 4) # test data
ix <- grep("^VAR", names(L2))
L2[ix] <- lapply(L2[ix], as.character)

如果不想覆盖L和 L2 -- 覆盖会使调试更加困难 -- 然后使用 Lnew <- lapply(L, as.character)和 L2new <- replace(L2, ix, lapply(L2[ix], as.character))相反。