Есть ли способ создать новую функцию df с несколькими уровнями факторов в одной строке?

Question

Есть ли способ добавить столбец с несколькими уровнями факторов, которые зависят от существующего столбца, к фрейму данных в одну строку? Изменится ли ответ, если новый столбец имеет два факторных уровня по сравнению с более чем двумя?

#two factor level example
df <- mtcars

df$mpg_rating <- "bad"
df$mpg_rating[df$mpg>30] <- "good"

#three factor level example
df <- mtcars

df$mpg_rating <- "bad"
df$mpg_rating[df$mpg>20] <- "ok"
df$mpg_rating[df$mpg>30] <- "good"

Я бы хотел создать "mpg_rating" в 1 строку вместо 2 или 3

Answer 1

Использование cut

transform(df, mpg_rating=cut(mpg, breaks=c(-Inf, 20, 30, Inf), labels = c("bad", "ok", "good")))

Answer 2

Однострочник будет с findInterval

df$mpg_rating <- with(df, c("bad", "ok", "good")[findInterval(mpg, c(20, 30))+1])

ПРИМЕЧАНИЕ: хорошо вписывается в одну строку