如何解决如何在函数内部使用 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 的新手。
谢谢。
解决方法
达到你想要的效果
- 利用命名列表和向量来存储变量和值标签
- 这样做您可以利用
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")
此外,我已经进行了设置,因此我的数据一次出现在一组值标签中,但是您扩展到第二个变量的示例也帮助我概括了这一点,再次感谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。