Если вы используете unlist
, я думаю, вы все еще можете использовать sample
:
df <- data.frame(
row.names = c("g1", "g2", "g3"),
t1 = c(1, 8, 4),
t2 = c(4, 7, 6),
t3 = c(7, 2, 8),
t4 = c(0, 9, 1)
)
df
shuffle <- sample(unlist(df), size = length(unlist(df)))
shuffled_matrix <- matrix(shuffle, nrow = nrow(df), ncol = ncol(df))
df_shuffled <- data.frame(shuffled_matrix)
row.names(df_shuffled) <- row.names(df)
colnames(df_shuffled) <- colnames(df)
df_shuffled