Объединение числовой переменной в r
Вопрос
У меня есть вектор x, который содержит положительные числа, которые я хочу бин/дискретизировать. Для этого вектора я хочу, чтобы числа [0, 10) отображались так же, как они существуют в векторе, но числа [10, ∞) составляли 10+.
Я использую:
x <- c(0,1,3,4,2,4,2,5,43,432,34,2,34,2,342,3,4,2)
binned.x <- as.factor(ifelse(x > 10,"10+",x))
Но это чувствует себя Klugey для меня. Кто -нибудь знает лучшее решение или другой подход?
Решение
Как насчет cut
:
binned.x <- cut(x, breaks = c(-1:9, Inf), labels = c(as.character(0:9), '10+'))
Который дает:
# [1] 0 1 3 4 2 4 2 5 10+ 10+ 10+ 2 10+ 2 10+ 3 4 2
# Levels: 0 1 2 3 4 5 6 7 8 9 10+
Другие советы
Вы сомневаетесь непоследовательным.
В описании 10
принадлежит группе "10+", но в коде 10
отдельный уровень. Если 10
должен быть в группе "10+", тогда вы должны быть
as.factor(ifelse(x >= 10,"10+",x))
В этом случае вы можете усечь данные до 10 (если вам не нужно коэффициент):
pmin(x, 10)
# [1] 0 1 3 4 2 4 2 5 10 10 10 2 10 2 10 3 4 2 10
x[x>=10]<-"10+"
Это даст вам вектор струн. Вы можете использовать as.numeric(x)
чтобы преобразовать обратно в числа («10+» становятся NA
), или же as.factor(x)
Чтобы получить свой результат выше.
Обратите внимание, что это изменит сам исходный вектор, поэтому вы можете скопировать в другой вектор и поработать над этим.