R语言实战送书活动中奖名单，快来看看有没有你
上一期送书活动开奖时间到了，12:00截止中奖名单：
最多点赞：ζ·ω·?，有人天天睡不醒 用心留言随机抽样：Freya、comrade xia、徐鸿彬 请中奖的朋友找我私聊发送收书地址，以及联系方式。 没抽到的朋友也别灰心，下次有送书活动再来参加哦。具体依据见下面截图及随机抽样证据，不包含任何好友偏倚纯运气。
一、依据最多朋友圈点赞：ζ·ω·?96个，有人天天睡不醒69个，城北64个，追随我心54个
二、依据精选用心的留言：根据作者留言顺序，设置随机种子20230612，
# 设置随机种子
set.seed(20230612)
# 按照精选人员列表顺序
people <- c("Person1", "Person2", "Person3", "Person4", "Person5", "Person6", "Person7", "Person8", "Person9", "Person10", "Person11", "Person12", "Person13", "Person14", "Person15", "Person16", "Person17")
# 从人员列表中抽取3人
sampled_people <- sample(people, 3)
# 打印抽取的人员
print(sampled_people)
#[1] "Person7" "Person14" "Person11"
#按照留言顺序为Freya、comrad xia、徐鸿彬
第6个精选留言内容少被我觉得不合适取消精选，变成16个人了。中午找了半天，尝试几次都没法恢复到随机的时候的样子。没找到当时点的那个人，所以恢复不回去最初的顺序了。但是，别的顺序都是设置seed的时候随机出的名单，这么一搞尴尬了。
但是吧，就当中奖的朋友算是运气爆炸吧，反正都是抽样随机，偶然事件影响之下还被抽中的你就是天选了。