R 中带有 read.dta 的弃用级别警告

Question

（这是一个初学者问题，但我在其他地方没有找到答案。相关帖子包括this one、this one 和this one，但不知道如何将这些应用于我的案例。）

当我使用read.dta将STATA格式数据导入R时，出现警告：

> lca <- read.dta("trial.dta")

Warning message:
In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else 
paste0(labels,  :
  duplicated levels in factors are deprecated

这是否仅仅意味着变量（R 中的“因子”）包含重复值？如果是这样，为什么这甚至是一个警告——这不是大多数变量的预期吗？

Answer 1

试试这个：

don <- read.dta("trial.dta",convert.dates = T,convert.factors = F)
for(i in 1:ncol(don)){
    valuelabel<-attributes(don)[[6]][i]
    if(valuelabel!=""){
       label<-paste("names(attributes(don)[[11]]$",valuelabel,")",sep="")
       level<-paste("attributes(don)[[11]]$",valuelabel,sep="")
       labels=(eval(parse(text=label)))
       levels=(eval(parse(text=level)))
       if(sum(duplicated(labels)) > 0){
          doublon<-which(duplicated(labels))
          remplace<-levels[doublon]
          valueremplace<-levels[unique(labels)==names(remplace)]
          don[don[,i]%in%remplace,i]<-valueremplace
          labels<-unique(labels)
          levels<-levels[labels]
       }
    don[,i]<-factor(don[,i],levels=levels,labels=labels)
  }
}