Question

我使用read_sav包中的haven函数导入SPSS文件。因此，我有列名和关联标签（类labelled）。

订购数据框时，我丢失了标签。我可以在订单之前避免因素转换的问题，但它是错误还是正常行为？

这是一个简单的例子。

DataForExample <- structure(list(CollectorNm = structure(c("Email Invitation 8", "Email Invitation 8", "Email Invitation 8", "Email Invitation 8", "Email Invitation 8", "Email Invitation 8"), label = "CollectorNm"), q0001 = structure(c(1, 1, 1, 1, 1, 1), label = "Avez-vous déjà suivi la formation Atlas-Vente des 18 et 19 octobre ?", class = "labelled", labels = structure(c(1, 2), .Names = c("Oui, j'ai bien suivi cette formation.", "Non, je n'y ai pas participé." ))), q0002_0001 = structure(c(3, 3, 3, 2, 3, 3), label = "La formation dans son ensemble", class = "labelled", labels = structure(c(1, 2, 3, 4), .Names = c("pas du tout satisfait", "plutôt pas satisfait", "plutôt satisfait", "très satisfait")))), .Names = c("CollectorNm", "q0001", "q0002_0001"), class = c("tbl_df", "tbl", "data.frame" ), row.names = c(NA, -6L))

View(DataForExample) # OK Toto <- DataForExample[order(DataForExample$q0001_0001),] View(Toto) # NOK : the labels disappeared

由于

Answer 1

您需要加载包，以支持类labelled的子集化操作。最好在haven之后加载它。至少有两个包含此类支持的包：Hmisc和expss。免责声明：我是expss包的作者。

更新。修复带标签的课程。

似乎haven没有为所有带标签的变量设置labelled类。所以我们需要解决它：

library(expss)

for(each in colnames(DataForExample)){
    if(!("labelled" %in% class(DataForExample[[each]])) && 
       (!is.null(var_lab(DataForExample[[each]])) ||
        !is.null(val_lab(DataForExample[[each]]))
       )) {
        class(DataForExample[[each]]) = union("labelled", class(DataForExample[[each]]))
    }
}

View(DataForExample) # OK
Toto <- DataForExample[order(DataForExample$q0001),]
View(Toto) # OK

R - 在使用来自避货包的read_sav后订购数据帧时的丢失标签

1 个答案: