根据行值分配值

我有一个大的向量（数据帧的列），其中包含整数1到30的值。我想用1，6到10替换数字1到6,5到11到15与9 ...根据行值分配值

> x3 <- sample(1:30, 100, rep=TRUE) 
> x3 
    [1] 13 24 16 30 10 6 15 10 3 17 18 22 11 13 29 7 25 28 17 27 1 5 6 20 15 15 8 10 13 26 27 24 3 24 5 7 10 6 28 27 1 4 22 25 14 13 2 10 4 29 23 24 30 24 29 11 2 28 23 1 1 2 
[63] 3 23 13 26 21 22 11 4 8 26 17 11 20 23 6 14 24 5 15 21 11 13 6 14 20 11 22 9 6 29 4 30 20 30 4 24 23 29

正如我所提到，这是在一个数据帧中的柱上，并用上述分配我想创建不同的列。如果我做了以下，我必须做这30次。

myFrame$NewColumn[myFrame$oldColumn==1] <- 1 
myFrame$NewColumn[myFrame$oldColumn==2] <- 1 
myFrame$NewColumn[myFrame$oldColumn==3] <- 1 
...

最好的方法是什么？

来源

2017-03-29 Null-Hypothesis

我们可以cut做到这一点（假设你的意思是什么 '...' 是10，11，12）：

x4 <- cut(x3, 
      breaks = c(seq(1, 30, 5), 30), right = F, include.lowest = T, # generate correct intervals 
      labels = 4 * (0:5) + 1) # number to fill 

# x4 is factor. We should convert it to character first then to the number 
x4 <- as.numeric(as.character(x4))

来源

2017-03-29 16:45:30 mt1022

我真不明白标签有10,11是不是应该是c（1,5,9,13,17）等。 –

对不起。我没有得到你的逻辑。 – mt1022

这是一个梦幻般的答案！ –

你尝试：

myFrame$NewColumn[myFrame$oldColumn > 0 & myFrame$oldColumn< 6] <- 1 
myFrame$NewColumn[myFrame$oldColumn > 5 & myFrame$oldColumn< 11] <- 1 
...

甚至更好：

myFrame$NewColumn <- as.integer((myFrame$oldColumn - 1)/5)) * 4 + 1

来源

2017-03-29 16:37:56 Mhd

根据行值分配值

回答

相关问题