添加标签削减功能中的R

有关示例数据框：添加标签削减功能中的R

df1 <- structure(list(X = 1:15, a = c(2L, 3L, 4L, 3L, 7L, 5L, NA, 2L, 
9L, 7L, 0L, 1L, 20L, 15L, 14L)), .Names = c("X", "a"), 
    class = "data.frame", row.names = c(NA, 
-15L))

我使用下面的代码来划分列“A”到四分：

cut.at.n.tile <- function(X , n = 4){ 
    cut(X , breaks = quantile(X , 
    probs = (0:n)/n , na.rm = TRUE) , include.lowest = TRUE)} 
df1$a.quartile <- cut.at.n.tile(df1$a , n = 4)

如何更换标签与1 - 4（1是最低）？我不想简单地重新编码这些值，因为我将用不同的连续变量来运行这么多次。

任何帮助将不胜感激。

来源

2015-05-27 KT_1

使用labels参数cut ...

cut.at.n.tile <- function(X , n = 4){ 
    cut(X , breaks = quantile(X , 
     probs = (0:n)/n , na.rm = TRUE) , 
     labels = 1:n, 
     include.lowest = TRUE)} 
cut.at.n.tile(df1$a , n = 4) 
## [1] 1 2 2 2 3 3 <NA> 1 4 3 
##  1 1 4 4 4 
## Levels: 1 2 3 4

您可能也有兴趣ggplot2::cut_number，这确实本质上是一回事...

ggplot2::cut_number(df1$a, n = 4, labels = 1:4)

来源

2015-05-27 19:34:54

添加标签削减功能中的R

回答

相关问题