以下是一个数据框示例:
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表示最低)? 我不希望仅仅重新编码值,因为我将多次运行此代码,并使用不同的连续变量。
非常感谢任何帮助。