如何在函数内部使用 R 字符向量元素作为字符串和变量？

问题描述

我正在尝试将 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,vs = "Engine",vs = c("V-engine" = 1,"Straight engine" = 2,"Other engine" = 3)
)

现在，如果我将“变量名称”、“变量标签”、“值标签”和相应的“值数字代码”存储在某种 R 数据类型中，并且我尝试在 {{1} } 功能。例如，如果我将这些存储在字符向量中，如下所示：

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") 函数中使用我的字符向量元素？例如我将如何做这样的事情：

apply_labels

我尝试了 #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]) ) 和 paste 的各种组合，但都没有成功。我的下一步是将它应用到我的 500,000+ 行 x 20,000 列的数据中，并确定可能的值标签/数字编码的数量。 强制性：我是 R 的新手。 谢谢。

解决方法

达到你想要的效果

1. 利用命名列表和向量来存储变量和值标签
2. 这样做您可以利用 do.call 将变量和值标签传递给 apply_labels

为了使示例更有趣，我为第二个变量添加了标签。

library(expss)

# Variable Labels
var_labels <- list(vs = "Engine",am = "Transmission")
#Value Labels
val_labels <- list(
  vs = c("V-engine" = 0,"Straight engine" = 1),am = c("Automatic" = 0,"Manual" = 1)
)

mtcars2 <- do.call(apply_labels,c(list(data = mtcars),var_labels,val_labels))

table(mtcars2$am,mtcars2$vs)
#>            
#>             V-engine Straight engine
#>   Automatic       12               7
#>   Manual           6               7

,

太好了，谢谢！这让我了解了命名列表并使用 setNames 构建了一个解决方案。

我最终没有使用 expss。它似乎在 R 中工作并按预期标记了所有内容，但是当我使用 haven::write_sav 将最终数据框从 R 导出到 SPSS 时，值标签没有得到维护（但变量标签得到了维护）。

相反，我使用了 haven labelled vector class 来应用变量和值标签。我的最终解决方案如下所示：

#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")

此外，我已经进行了设置，因此我的数据一次出现在一组值标签中，但是您扩展到第二个变量的示例也帮助我概括了这一点，再次感谢！