更改R中的内部因素级别(对于haven-write\u dta()很重要)

这个 haven 包提供了一个非常有用的函数,用于使用write\u dta()函数将数据帧/TIBLE导出到Stata。

将R因子写入Stata(使用write\u dta()函数)时,内部R因子级别将成为以Stata long格式保存的数值,级别将写入变量标签。(这些内部R系数水平与应用相同 as.numeric(factor) 达到一定程度。)

我想显式地设置R的内部因子级别,以便在Stata中获得numlabel所需的值。

举例说明:

eyes <- c("blue", "brown","green", "blue", "not disclose") 
eyes_factor <- as.factor(eyes)

levels(eyes_factor)
 #[1] blue         brown        green        blue         not disclose
 #Levels: blue brown green not disclose

as.numeric(as.factor(eyes)) 
#[1] 1 2 3 1 4 # which is to be expected

然而,我想根据一个非常具体的模式来设置R的内部因素水平。 例如,我希望内部级别用于:

蓝色=2,棕色=1,绿色=6,未披露=-1

因为这与问卷上的编码匹配。

我已尝试使用 forcats 包裹 函数如下所示:

forcats::lvls_reorder
function (f, idx, ordered = NA) 
{
    f <- check_factor(f)
    if (!is.numeric(idx)) {
        stop("`idx` must be numeric", call. = FALSE)
    }
    if (!setequal(idx, lvls_seq(f)) || length(idx) != nlevels(f)) {
        stop("`idx` must contain one integer for each level of `f`", 
            call. = FALSE)
    }
    refactor(f, levels(f)[idx], ordered = ordered)
}

但正如你在这里看到的,我需要指定的新idx我不能指定,因为只取序列号。

查看 stats::relevel() 太并没有解决问题。