Question

这是为我的实验创建采样设计。我想在2018年的每个星期一调查8个不同的人。我调查的顺序需要在每个星期一随机。例如。 A，B，C，D ......为一个星期一，然后是下一个C，B，A，D ....

要使用R尝试此操作，我有一个名称列表：namelist<- ("A", "B", "C",...)包含8个不同的名称。我想以随机顺序将这些分配给一年中的每个星期一。为此，我创建了2018年全年的日期列表。X<- ("01-01-2018", "02-01-2018",...)以及相应工作日的列表Y<- ("Monday", "Tuesday",...)。

我需要在一年中的所有星期一以随机顺序分配的整个名单。最好的方法是什么？我可以使用for循环吗？还是有另一种方法可以做到这一点？

Answer 1

您可以使用sample()循环中的for函数从名单中随机抽样到数据框中：

获取一年中的所有星期一并创建名单：

dates = as.Date("2018-01-01") +7*(0:52)
namelist = c("A","B","C","D","E","F","G","H")

您尚未指定输出的显示效果，但以下是两种选择：

多列方法：

samples=matrix(0,length(dates),length(namelist))
for(i in 1:length(dates)){samples[i,]=sample(namelist)}
df=data.frame(dates,samples)

> head(df)
       dates X1 X2 X3 X4 X5 X6 X7 X8
1 2018-01-01  E  G  B  D  H  C  A  F
2 2018-01-08  F  D  B  C  G  H  A  E
3 2018-01-15  A  E  H  D  B  C  G  F
4 2018-01-22  E  C  F  H  A  D  G  B
5 2018-01-29  C  E  F  B  G  H  A  D
6 2018-02-05  C  G  A  H  D  F  B  E

单列方法：

df2 = data.frame(dates, samples_char="")
for(i in 1:nrow(df2)){df2[i,'samples_char']=paste0(sample(namelist),collapse=", ")}

> head(df2)
       dates           samples_char
1 2018-01-01 E, A, G, D, C, B, F, H
2 2018-01-08 B, E, F, A, C, H, G, D
3 2018-01-15 H, D, E, C, F, A, G, B
4 2018-01-22 G, F, A, D, E, H, C, B
5 2018-01-29 A, E, D, H, G, C, B, F
6 2018-02-05 C, H, G, F, E, B, D, A

Answer 2

#I have figured this out. Thank you#
  ##Create calender and list of names for Group01, empty variable for random order and make a dataframe##
Startdate<- as.Date("2017-12-4")
Date<-Startdate + 0:365
Day<-weekdays(FullCalendar)
MONTHS<-months(FullCalendar)
Focal_Order<-""
Group<- ""
Focal_Calender<-data.frame(Date, Day, Group, Focal_Order , stringsAsFactors 
= FALSE)
head(Focal_Calender)
Group01<- c("A", "B", "C", "D", "E", "F", "G", "H")
## Use For  loop to assign random order to every Monday ##
for(i in 1:nrow(Focal_Calender) ){
  if(Focal_Calender[i,2]=='Monday'){
  Focal_Calender[i,'Focal_Order']=paste0(sample(Group01),collapse=", ")
  Focal_Calender[i,'Group']=paste0("Group 01")}
  else {}
}
head(Focal_Calender)
Focal_Calender
write.csv(Focal_Calender, file = "Focal_Calender.csv",row.names=FALSE, 
na="")

将事件分配给R中的日历日期

2 个答案: