将数字转换为因子时数据丢失

Question

我使用包memisc

将一个SPSS文件导入到R中

data <- as.data.set(spss.portable.file("C:/Users/...por")

返回以下结构

str(data)
Data set with 1937 obs. of 209 variables:
 $ swe1    : Nmnl. item w/ 4 labels for 1,2,3,... + ms.v.  num  3 2 1 4 3 3 3 4 4 4 ...
 $ swe2    : Nmnl. item w/ 4 labels for 1,2,3,... + ms.v.  num  3 3 2 3 3 3 4 3 4 4 ...

我想在poLCA中执行潜类分析，因此尝试使用

转换为具有正整数的因子

swe1 <- factor(sample(1:1937, replace=TRUE), 
  levels=1:4, labels=c("Trifft gar nicht zu", "Trifft eher nicht zu", 
  "Trifft eher zu", "Trifft voll und ganz zu"))

问题是，在此步骤中数据似乎丢失了。除了一些随机值，我只会返回NAs（重复此步骤时，返回的值不同，但仍然主要是NAs。同时定义实际的NAs不会有帮助）

str(swe1)
 Factor w/ 4 levels "Trifft gar nicht zu",..: NA NA NA NA NA NA NA NA NA NA ...

有谁知道这个问题的解决方案？ 提前谢谢！