来自多列的随机样本[关闭]

Question

我有一个包含多列的数据集，其中每一行代表一个产品，每一列包含对相应产品的一个评论。对于每个产品，我们观察到多个 cmets，每个 cmets 都存储在自己的列中。

现在我想通过以下方式创建两个新数据集： (1) 一个只有一列的数据集，包括从多个评论列中随机抽取的 x (个) cmets 样本。 (2) 与 (1) 一样，但现在我想从每列中采样相同数量的 cmets（例如，“comment1”中的 2 个 cmets 和“comment2”中的 2 个 cmets。

Example data:
commentda = data.frame(product_id = c(1,2,3,4), comment1 = c("Very good", "Bad", "Would buy it", "Zero stars"), comment2 = c("Bad reputation", "Good seller", "Great service", "I will buy it again"))
> 
> commentda
  product_id     comment1            comment2
1          1    Very good      Bad reputation
2          2          Bad         Good seller
3          3 Would buy it       Great service
4          4   Zero stars I will buy it again

Answer 1

您可以获得长格式的数据，这将有助于有效地进行此类操作。

library(dplyr)
n <- 2

long_data <- commentda %>%  tidyr::pivot_longer(cols = starts_with('comment'))

1. 包含随机n cmets

long_data %>% slice_sample(n = n)

1. 从每列随机包含n cmets。

long_data %>%  group_by(name) %>%  slice_sample(n = n)