R语言技术问询：基于数据创建随机列及模拟数据列合并

我来帮你解决这两个R语言实操问题哈：

在R里生成随机列非常灵活，完全可以根据你需要的随机数据类型来选方法：

• 生成连续型随机数值列：如果需要均匀分布或正态分布的随机数，直接用runif()或rnorm()就行。比如你已有一个数据框，要新增随机列：

# 先模拟一个现有数据框
df <- data.frame(Product = c("prod_A", "prod_B", "prod_C", "prod_D", "prod_E"))
# 添加0-1区间的均匀分布随机列
df$Random_Uniform <- runif(nrow(df), min = 0, max = 1)
# 添加均值为0、标准差为1的正态分布随机列
df$Random_Normal <- rnorm(nrow(df))

• 生成随机分类列：如果需要从固定类别里随机抽取生成列，用sample()函数就好。比如从["low", "medium", "high"]里随机分配类别：

df$Random_Category <- sample(c("low", "medium", "high"), nrow(df), replace = TRUE)

小提示：如果需要让随机结果可重复，记得先设置随机种子set.seed(123)，这样每次运行代码得到的随机结果都完全一致~

你需要给每个产品随机分配若干个化学物质，最后合并成空格分隔的字符串列对吧？这里给你两种实用方案：

方案1：Base R 实现 #

product <- c("prod_A", "prod_B", "prod_C", "prod_D", "prod_E")
chemical <- c("chemA", "chemB", "chemC")

# 逐个处理每个产品：随机选1到3个化学物质，再用空格连接成字符串
chemical_strings <- lapply(product, function(x) {
  # 随机决定选几个化学物质（1-3个）
  select_count <- sample(1:length(chemical), 1)
  # 随机选对应数量的化学物质
  selected_chems <- sample(chemical, select_count)
  # 用空格拼接成字符串
  paste(selected_chems, collapse = " ")
})

# 转换成你需要的数据框格式
result_df <- data.frame(Product = product, Chemical = unlist(chemical_strings))
print(result_df)

运行后就能得到类似你期望的结果，比如：

Product       Chemical
1  prod_A    chemA chemB
2  prod_B    chemB chemC
3  prod_C    chemA chemC
4  prod_D          chemA
5  prod_E chemA chemB chemC

方案2：Tidyverse 风格实现（更简洁） #

如果你习惯用dplyr和purrr的语法，可以这样写：

library(tidyverse)

product <- c("prod_A", "prod_B", "prod_C", "prod_D", "prod_E")
chemical <- c("chemA", "chemB", "chemC")

result_df <- tibble(Product = product) %>%
  mutate(
    Chemical = map_chr(Product, function(x) {
      select_count <- sample(1:length(chemical), 1)
      sample(chemical, select_count) %>% paste(collapse = " ")
    })
  )

print(result_df)

注意：如果需要固定每次生成的化学物质组合，同样在代码开头加set.seed(123)，保证结果可复现~

内容的提问来源于stack exchange，提问作者mojek