1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#----------------------------------------------------------------------------#
# 设置随机数种子
set.seed(20190507)
# 同学向量
name = c("克甝", "庞秀萍", "刘琦平", "刘冀", "乌云其其克",
"蔡青青", "李梦阳", "杨楠楠", "孙昕", "东木阳子",
"楚新元", "苏伟修", "吾丽娜", "徐小惠", "左喜梅")
# 对同学随机抽样
name_random = sample(name, size = 15, replace = FALSE)
#----------------------------------------------------------------------------#
# 设置随机数种子
set.seed(20190507)
# 出现一次的topic
topic1 = c("p104_3", "p127_2", "p127_3", "p145_3", "p183_1")
# 出现两次的topic
topic2 = c("p104_1", "p127_1", "p145_2", "p183_2", "bully")
# topic样本空间
topic = c(topic1, rep(topic2, 2))
# topic随机抽样
topic_random = sample(topic, size = 15, replace = FALSE)
#----------------------------------------------------------------------------#
# 合并结果
result = data.frame(name_random, topic_random)
# 显示结果
print(result)
|