也许这会有所帮助：

library(tidyverse)
df <- data.frame( price_range=sample(seq(0,3,1),20,replace = T),
                  x=rnorm(20,10,1))
df2 <- df %>% 
  mutate(price_range=case_when(price_range==0 ~ 'poor',
                               price_range==1 ~ 'normal',
                               price_range==2 ~ 'medium',
                               price_range==3 ~ 'high'),
         price_range=factor(price_range, levels = c('poor','normal','medium','high')))
df2

可以使用factor()函数将整数值直接转换为因子标签。

df <- data.frame( price_range=sample(seq(0,3,1),20,replace = T),
                  x=rnorm(20,10,1))
df$price_range<- factor(df$price_range, labels = c('poor','normal','medium','high'))

df$price_range
[1] poor   poor   high   medium normal high   medium normal medium normal normal high   normal normal normal medium poor   poor   medium
[20] medium
Levels: poor normal medium high

根据您的分析，您可能需要考虑在函数调用中添加“order=TRUE”。有关详细信息，请参阅?factor。