在R中应用数据帧的分层混洗/排序

Question

我有一个数据帧，我想在其中打乱或更一般地按层次对值进行排序，但我被卡住了。这是我的例子：

library(plyr)
set.seed(123)
df <- data.frame(a = rep(letters[1:4], each = 10), b = rnorm(40))
> head(df)
a          b
1 a -0.1264280
2 a  0.7284234
3 a -1.8782385
4 a  0.2530623
5 a  0.7577013
6 a -0.9339964

在这个例子中，我想给值加后缀(采样(，但只在字母中，这样分配给a列中字母a的值就不能分配给任何其他字母，只能分配给不同的a行，而不能分配给b、c或d。

我试过这个ddply(df, c('a'), b = sample(b))，但没有用。

Answer 1

使用dplyr、group_by(a)，然后使用mutate(b = sample(b))

library(dplyr)
head(df, 10)
a           b
1  a -0.56047565
2  a -0.23017749
3  a  1.55870831
4  a  0.07050839
5  a  0.12928774
6  a  1.71506499
7  a  0.46091621
8  a -1.26506123
9  a -0.68685285
10 a -0.44566197
df %>% group_by(a) %>% mutate(b = sample(b))
# A tibble: 40 x 2
# Groups:   a [4]
a           b
<chr>   <dbl>
1 a      1.56  
2 a      0.461 
3 a      0.0705
4 a      1.72  
5 a     -0.560 
6 a     -0.446 
7 a     -1.27  
8 a      0.129 
9 a     -0.230 
10 a     -0.687 
# ... with 30 more rows