在r中随机化数据帧

Question

下面显示了一个使用Object 列随机排序的数据框作为示例。 order 应用于sample 仅用于将相似的对象组织在一起。是否有可能避免order 操作并在重复的Object 列内实现随机化？谢谢。

set.seed(7)
# read csv
df <- read.csv("~/Documents/test.csv", header = T)
df
     Object Tag Comment
1         1   A      C1
2         1   B      C2
3         1   C      C3
4         1   D      C4
5         2   A      A1
6         2   C      A2
7         2   F      A3
8         2   G      A4
9         3   P      C1
10        3   N      A1
11        3   P      B5
# randomize the order of the df
dfr <- df[sample(nrow(df)),]
dfr
    Object Tag Comment
11      3   P      B5
4       1   D      C4
2       1   B      C2
1       1   A      C1
9       3   P      C1
5       2   A      A1
7       2   F      A3
10      3   N      A1
8       2   G      A4
3       1   C      C3
6       2   C      A2 
#sort dfr using Object field
dfrSort <- dfr[with(dfr, order(Object)), ]
dfrSort
     Object Tag Comment
4         1   D      C4
2         1   B      C2
1         1   A      C1
3         1   C      C3
5         2   A      A1
7         2   F      A3
8         2   G      A4
6         2   C      A2
11        3   P      B5
9         3   P      C1
10        3   N      A1

Answer 1

在按“对象”分组后，请执行 sampleing 以不打破关系

library(dplyr)
df %>%
     group_by(Object) %>% 
     slice(sample(row_number()))
# A tibble: 11 x 3
# Groups:   Object [3]
#   Object   Tag Comment
#    <int> <chr>   <chr>
# 1      1     C      C3
# 2      1     B      C2
# 3      1     A      C1
# 4      1     D      C4
# 5      2     C      A2
# 6      2     F      A3
# 7      2     G      A4
# 8      2     A      A1
# 9      3     P      B5
#10      3     P      C1
#11      3     N      A1