获取单列变量Rstudio的随机替换

我有一个Excel文件，在一列中包含500个单词。我想创建100组5个随机单词，存在于这个列中，没有任何重复。所以每个词都应该只出现一次。在Rstudio中，我设法获得了一个样本（样本n（df，5）），但这只产生一个输出

我怎样才能让这项工作适用于100个小组

x <- as.data.frame(c("Apple", "Banana", "Pear", "Orange", "Melon", "Mango"))
sample_n(x, 2)

---

x这里有一种可能的方法，创建一个数据帧。每组一行

library(tidyverse)

x <- data.frame(var = c("Apple", "Banana", "Pear", "Orange", "Melon", "Mango")) %>%
  pull(var) %>%
  sample() %>% 
  matrix(ncol = 2) %>%
  data.frame()


#     X1     X2
#1  Pear  Mango
#2 Apple Orange
#3 Melon Banana

库（tidyverse）
x%
拉力（var）%>%
示例（）%>%
基质（ncol=2）%>%
data.frame（）
#X1-X2
#1梨芒果
#2苹果橙
#3瓜香蕉

对于您的项目，您可以将
ncol
参数设置为5