如何使用R字符向量元素作为函数内的字符串和变量?
我试图将SPSS风格的类别标签应用到R中的数据集。我想我的问题是因为我不知道如何正确解析变量,所以不一定只与这些类型的数据相关。 首先,按照如何使用R字符向量元素作为函数内的字符串和变量?,r,spss,expss,R,Spss,Expss,我试图将SPSS风格的类别标签应用到R中的数据集。我想我的问题是因为我不知道如何正确解析变量,所以不一定只与这些类型的数据相关。 首先,按照expss库文档手动执行此操作很好: library(expss) #Load in the data data(mtcars) #Apply Variable Labels and Value Labels (and Numeric Coding) to each Variable. mtcars = apply_labels(mtcars,
expss
库文档手动执行此操作很好:
library(expss)
#Load in the data
data(mtcars)
#Apply Variable Labels and Value Labels (and Numeric Coding) to each Variable.
mtcars = apply_labels(mtcars,
vs = "Engine",
vs = c("V-engine" = 1,
"Straight engine" = 2,
"Other engine" = 3)
)
现在,如果我的“变量名称”、“变量标签”、“值标签”和相应的“值数字代码”存储在某个R数据类型中,并且我尝试在apply_Labels
函数中使用它们,我的问题就会出现。例如,如果我将这些存储在字符向量中,如下所示:
#Load in the data
data(mtcars)
#Value Labels
value_lab<-c("V-engine","Straight engine","Other engine")
#Value's Numeric coding
value_num<-c("1","2","3")
#Variable names
var <- c("vs")
#Variable Labels
var_lab<-c("Engine")
我尝试了各种组合的paste
和toString
,但都没有成功。我的下一步是将其应用于500000多行x2000列数据,可能的值标签/数字编码数量有待确定。
义务:我是R的新手。
谢谢。以达到您想要的效果
do.call
将变量和值标签传递给apply\u标签
库(expss)
#可变标签
var_标签自动12 7
#>手册6 7
太好了,谢谢!这使我了解了命名列表,并使用setNames
构建了一个解决方案
我最终没有使用expss
。它似乎在R中工作,并按预期标记了所有内容,但当我使用haven::write_sav
将最终数据帧从R导出到SPSS时,没有维护值标签(但变量标签被保留)
相反,我使用了haven
标签向量类来应用变量和值标签。我的最终解决方案如下所示:
#Apply Variable Labels and Value Labels (and Numeric Coding) to each Variable.
mtcars = apply_labels(mtcars,
var[1] = var_lab[1],
var[1] = c(value_lab[1] = value_num[1],
value_lab[2] = value_num[2],
value_lab[3] = value_num[3])
)
#Load in the data
data(mtcars)
#Variables
var <- c("vs")
#Variable Labels
var_labels<-c("Engine")
#Value Labels (for first Variable)
value_labs<-c("V-engine","Straight engine","Other engine")
#Value's Numeric coding )
value_num<-c("1","2","3")
#Make a named list to use as the value labels
value_labels <- setNames(as.integer(value_num),value_labs)
#Apply the label with haven
mtcars[,c(var[1])]<-labelled(mtcars[, c(var[1])],
labels=value_labels,
label=var_labels[1])
#Save out in spss format
haven::write_sav(mtcars, "test.sav")
#加载数据
数据(mtcars)
#变数
变量