如何读取可变名称的列表并在R中的函数中替换它们？

Question

我想编写一个读取可变名称列表的脚本。这些变量名称是data.frame中的一些列标题。然后，我想做一个前面的循环，以对数据中的指定变量执行各种操作。框架并因此以命名的文件打印，但是我不知道如何进行必要的变量替换。数据帧有1260列和2600行。并非所有列都是连续变量，有些是因素，描述符等，因此我使用Varlist选择要分析的列。

我在

#Example script scaled down for simplicity
Dataset <- iris
varlist <- data.frame("Sepal.Length", "Sepal.Width", "Petal.Length")
for (i in 1:length(varlist)){
    model <- lm(SOMETHINGHERE_i ~ Petal.Width, data = Dataset)
    printing <- data.frame(SOMETHINGHERE_i = model$coefficients['Petal.Width'])
    write.csv(printing,paste0("C://Users/Me/Desktop/",SOMETHINGHERE_i,"/",SOMETHINGHERE_i,"PetalWidthSlope.csv"))
}

我上面链接的页面说我应该放置varlist [i]，它适用于保存部分，但该模型给出了错误：

错误：意外'='在： “模型＆lt; - lm（varlist [i] 〜petal.width，data = dataset） 打印＆lt; - data.frame（varlist [i] =“

）

它也建议使用sapply（dataset [varlist]，function），但我不知道如何将其应用于lm，但是无论如何，如果我尝试使用`sapply（dataset [varlist]，均值），它将打印：

中的错误[。默认值（数据集，varlist）：无效的下标类型'list'

我该怎么办？

提前致谢！

Answer 1

您可以使用as.formula将文本转换为有效的R公式。 （但是当您发现时，您不能将R公式用作宏。）我还将varlist项目用作循环变量而不是顺序整数。

Dataset <- iris
varlist <- data.frame("Sepal.Length", "Sepal.Width", "Petal.Length")
for (i in varlist ){ form <- as.formula( paste( i, "~ Petal.Width"))
     model <- lm(form, data = Dataset)
     printing <- data.frame(i = model$coefficients['Petal.Width'])
     write.csv(printing,paste0("~/Desktop/",i,"PetalWidthSlope.csv"))
    }

我现在在桌面上还有3个文件：