当天填写的问卷

Question

我正在处理一个包含多个问卷的数据集，这些问卷应该在不同的时间点填写，即

173       9/13/2013     10/29/2013      9/26/2014
174      10/21/2013     11/25/2013      11/3/2014
175        7/1/2014       7/3/2015      4/27/2016
176       1/15/2014      2/24/2014      6/10/2015
177       3/15/2014                      4/1/2015
178       7/18/2014      9/18/2014      8/17/2015
179       6/30/2013      8/15/2013      7/15/2014
180       4/22/2013      6/24/2013      5/11/2014
181       12/7/2014                    12/26/2015
182        4/2/2015      5/17/2015      4/20/2016
183       1/12/2015      2/26/2015      1/28/2016
184       7/18/2014      8/26/2014      8/14/2015
185       8/27/2013     10/19/2013      9/21/2014
186      10/29/2013     11/30/2013      11/6/2014
187       9/17/2014     11/18/2014     10/20/2015
188       5/10/2014      6/27/2014       6/1/2015
189       10/4/2013                     10/5/2014
190       1/22/2013      4/11/2013               
191      10/21/2014     10/21/2014

我想知道有多少参与者在同一天填写了所有问卷，有多少参与者在同一天至少填写了2份问卷。同一天至少有多少 3 等任何帮助将不胜感激。

可重现的数据：

    Label = c( 
    "1/25/2015", "1/25/2016", "1/26/2014", "1/26/2015", "1/27/2014", 
    "1/27/2015", "1/28/2014", "1/28/2015", "1/29/2015", "1/3/2014", 
    "1/3/2015", "1/3/2016", "1/30/2015", "1/31/2014", "1/4/2014", 
    "1/4/2015", "1/4/2016", "1/5/2014", "1/5/2015", "1/6/2014", 
    "1/6/2015", "1/7/2014", "1/7/2015", "1/8/2014", "1/8/2015", 
    "1/9/2014", "1/9/2015", "1/9/2016", "10/1/2012", "10/1/2013", 
    "10/1/2014", "10/1/2015", "10/10/2013", "10/10/2014", "10/11/2013", 
    "10/11/2014", "10/11/2015", "10/12/2013", "10/12/2014", "10/12/2015", 
    "10/13/2013", "10/13/2014", "10/13/2015", "10/14/2013", "10/14/2014", 
    "10/14/2015", "10/15/2014", "10/15/2015", "10/16/2013", "10/16/2014", 
    "10/16/2015", "10/17/2013", "10/17/2014", "10/17/2015", "10/18/2013", 
    "10/18/2014", "10/18/2015", "10/19/2013", "10/19/2014", "10/19/2015", 
    "10/2/2013", "10/2/2014", "10/20/2013", "10/20/2014", "10/20/2015", 
    "10/21/2013", "10/21/2014", "10/22/2013", "10/22/2014", "10/22/2015", 
    "10/23/2012", "10/23/2013", "10/23/2014", "10/23/2015", "10/24/2013", 
    "10/24/2014", "10/24/2015", "10/25/2013", "10/25/2014", "10/26/2013", 
    "10/26/2014", "10/26/2015", "10/27/2013", "10/27/2014", "10/27/2015", 
    "10/28/2013", "10/28/2014", "10/29/2013", "10/29/2014", "10/3/2014", 
    "10/3/2015", "10/30/2014", "10/31/2012", "10/31/2013", "10/31/2014", 
    "10/31/2015", "10/4/2013", "10/4/2014", "10/4/2015", "10/5/2014", 
    "10/5/2015", "10/6/2013", "10/6/2014", "10/6/2015", "10/7/2013", 
    "10/7/2014", "10/8/2012", "10/8/2014", "10/8/2015", "10/9/2013", 
    "10/9/2014", "10/9/2015", "11/1/2013", "11/1/2014", "11/1/2015", 
    class = "factor")

Label = c(
    "4/6/2015", "4/7/2015", "4/9/2012", "5/12/2015", "5/13/2014", 
    "5/14/2015", "5/15/2014", "5/15/2015", "5/17/2014", "5/19/2014", 
    "5/20/2014", "5/25/2014", "5/27/2014", "5/29/2014", "5/30/2014", 
    "5/30/2015", "5/31/2015", "5/4/2014", "5/9/2015", "6/1/2015", 
    "6/10/2014", "6/11/2014", "6/11/2015", "6/12/2015", "6/16/2014", 
    "6/16/2015", "6/18/2014", "6/21/2014", "6/24/2015", "6/25/2014", 
    "6/25/2015", "6/26/2015", "6/27/2015", "6/29/2015", "6/5/2014", 
    "6/6/2015", "6/8/2014", "7/1/2014", "7/13/2014", "7/14/2015", 
    "7/16/2014", "7/2/2014", "7/21/2014", "7/25/2014", "7/27/2014", 
    "7/27/2015", "7/28/2014", "7/29/2014", "7/30/2014", "7/31/2014", 
    "7/31/2015", "7/4/2014", "7/4/2015", "8/1/2014", "8/11/2014", 
    "8/11/2015", "8/25/2014", "8/27/2015", "8/5/2014", "8/8/2014", 
    "8/9/2015", "9/1/2014", "9/10/2015", "9/15/2015", "9/22/2013", 
    "9/3/2012", "9/30/2014", "9/8/2014", "9/8/2015"), class = "factor")

Label = c(" ", 
    "1/16/2016", "1/26/2015", "10/11/2015", "10/14/2015", "10/16/2015", 
    "10/6/2014", "10/7/2013", "11/11/2015", "11/15/2015", "11/17/2013", 
    "11/18/2013", "11/2/2015", "11/20/2013", "11/29/2013", "2/17/2014", 
    "2/17/2015", "2/21/2015", "2/23/2014", "2/25/2014", "2/25/2015", 
    "3/11/2016", "3/2/2014", "3/22/2015", "3/4/2014", "3/4/2016", 
    "4/11/2014", "4/12/2013", "4/18/2016", "4/21/2015", "4/23/2015", 
    "4/29/2015", "4/3/2015", "4/5/2016", "5/23/2015", "5/26/2015", 
    "5/27/2015", "5/28/2015", "5/29/2014", "5/29/2015", "5/8/2015", 
    "6/16/2015", "6/22/2015", "6/28/2015", "7/24/2015", "7/27/2015", 
    "7/4/2014", "7/8/2015", "9/14/2015", "9/15/2015", "9/16/2014", 
    "9/17/2014", "9/22/2014", "9/23/2014", "9/24/2014", "9/24/2015", 
    "9/26/2014", "9/28/2015", "9/30/2015", "9/9/2015"), class = "factor")), .Names = c("1A_RespDate", 
"1B_RespDate", "1C_1_RespDate", "1C_2_RespDate", 
"1C_RespDate", "2A_1_RespDate", "2A_RespDate", "2B_RespDate", 
"2C_RespDate"), row.names = c(NA, -4831L), class = "data.frame")

Answer 1

我就叫你dataframe df:

sapply(apply(df,1,unique),length)

将为您提供每个人的唯一日期数作为向量。最高值为 7，最低值为 1（所有问卷均在同一天回答）。

which(sapply(apply(df,1,unique),length)<7)

将为您提供同一天至少填写2份问卷的个人指数。

length(which(sapply(apply(df,1,unique),length)<7))

会告诉您有多少人在同一天至少填写了 2 份问卷。

编辑：这很不优雅（必须有更清洁的方法）但它似乎有效

which(sapply(sapply(sapply(apply(df,1,table),function(x) x==Z),which),function(x) any(x>0)))

Z设置为当天填写的问卷数
解释：

apply(df,1,table)

列出每个人的唯一日期及其出现次数。

sapply(apply(df,1,table),function(x) x==Z)

将为您提供与 True/False 相同的列表，以判断日期是否正好出现 Z 次。

sapply(sapply(apply(df,1,table),function(x) x==Z),which)

将给出 "interger(0)" 或一个正整数，它是个人日期的索引（这不是我们感兴趣的东西）。

sapply(sapply(sapply(apply(df,1,table),function(x) x==Z),which),function(x) any(x>0))

会给出一个True/False的向量对应个体的索引然后 "which" 的下一步是获取 True 的索引。
因此，我们得到了日期恰好出现 Z 次的个人。

当天填写的问卷

questionnaires filled on the same day

time

r

zero

days

difference