R 将所有因子列转换为同一因子

我获得了以下调查数据（示例）：

我发现了

 levels(df$Q1) <- as.factor(c(1:5))

---

levels（df$Q1）我们可以为
factor
列创建索引，使用
lapply
循环数据集子集，指定
级别

i1 <- sapply(df, is.factor)
df[i1] <- lapply(df[i1], factor, levels = 1:5) 

i1感谢您的回复！不幸的是，这样输入
1=非常糟糕
和
5=非常好
和第Q3列就变成了
NA
@Kasper，但这不是代码显示的方式，即
级别（df$Q1）是的，当我做
级别（df$Q1）时
 levels(df$Q1) <- as.factor(c(1:5))

i1 <- sapply(df, is.factor)
df[i1] <- lapply(df[i1], factor, levels = 1:5)