重新编码因子的最简单方法是意识到该levels函数可以接受可用于重新映射因子水平的值列表。
我假设您的数据已经是一个因素(正如您所说的“受访者必须选择以下 19 个选项之一”),这意味着使用该cut功能实际上没有意义。
这是一个简单的例子:
z <- gl(3, 2, 12) # [1] 1 1 2 2 3 3 1 1 2 2 3 3, Levels: 1 2 3
levels(z) <- list(A = c(1,3), B = 2)
z # [1] A A B B A A A A B B A A, Levels: A B
从上面的例子可以看出,我们已经将级别 1 和 3 重新编码为 A 组,将级别 2 重新编码为 B 组。所以你的问题可以用类似的方式完成:
groups <- as.factor(sample(c("Less than $5,000",
"$5,000 to $7,499",
"$7,500 to $9,999",
"$10,000 to $12,499",
"$12,500 to $14,999",
"$15,000 to $19,999",
"$20,000to $24,999",
"$25,000 to $29,999",
"$30,000 to $34,999",
"$35,000 to $39,999",
"$40,000 to $49,999",
"$50,000 to $59,999",
"$60,000 to $74,999",
"$75,000 to $84,999",
"$85,000 to $99,999",
"$100,000 to $124,999",
"$125,000 to $149,999",
"$150,000 to $174,999",
"$175,000 or more"), size=100, replace=T))
levels(groups) <- list(
"Under poverty line"=c("Less than $5,000",
"$5,000 to $7,499",
"$7,500 to $9,999",
"$10,000 to $12,499",
"$12,500 to $14,999",
"$15,000 to $19,999",
"$20,000to $24,999"),
"Working class"=c("$25,000 to $29,999",
"$30,000 to $34,999"),
"Lower middle class"=c("$35,000 to $39,999",
"$40,000 to $49,999",
"$50,000 to $59,999"),
"Middle class"=c("$60,000 to $74,999",
"$75,000 to $84,999",
"$85,000 to $99,999"),
"Upper middle class"=c("$100,000 to $124,999",
"$125,000 to $149,999"),
"Top 5 percent"=c("$150,000 to $174,999",
"$175,000 or more")
)