计数重复变量中发生的次数(r)

计数重复变量中发生的次数(r),r,count,summary,R,Count,Summary,我需要总结一下人们一周工作的天数。 每个变量代表一天 我需要制作一份工作天数的总结 我不太确定做这件事的方便方式是什么(除了每天汇总表格) 有什么建议吗 data = structure(list(ACTWKDY1 = structure(c(2L, NA, 6L, 9L, 2L, 2L, 2L, NA, 2L, 3L), .Label = c("Friday", "Monday", "Not working at all",

我需要总结一下人们一周工作的天数。 每个变量代表一天

我需要制作一份工作天数的总结

我不太确定做这件事的方便方式是什么(除了每天汇总表格)

有什么建议吗

data = structure(list(ACTWKDY1 = structure(c(2L, NA, 6L, 9L, 2L, 2L, 
                                  2L, NA, 2L, 3L), .Label = c("Friday", "Monday", "Not working at all", 
                                                              "Saturday", "Scheduled working days not relevant", "Sunday", 
                                                              "Thursday", "Tuesday", "Wednesday"), class = "factor"), ACTWKDY2 = structure(c(6L, 
                                                                                                                                             NA, 2L, 5L, 6L, 6L, 6L, NA, 6L, NA), .Label = c("Friday", "Monday", 
                                                                                                                                                                                             "Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"), class = "factor"), 
           ACTWKDY3 = structure(c(7L, NA, 6L, 1L, 7L, 5L, 7L, NA, 7L, 
                                  NA), .Label = c("Friday", "Monday", "Saturday", "Sunday", 
                                                  "Thursday", "Tuesday", "Wednesday"), class = "factor"), ACTWKDY4 = structure(c(5L, 
                                                                                                                                 NA, 7L, 3L, 5L, 1L, 5L, NA, 5L, NA), .Label = c("Friday", 
                                                                                                                                                                                 "Monday", "Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"
                                                                                                                                 ), class = "factor"), ACTWKDY5 = structure(c(1L, NA, 5L, 
                                                                                                                                                                              4L, 1L, 3L, 1L, NA, 1L, NA), .Label = c("Friday", "Monday", 
                                                                                                                                                                                                                      "Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"), class = "factor"), 
           ACTWKDY6 = structure(c(NA_integer_, NA_integer_, NA_integer_, 
                                  NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
                                  NA_integer_, NA_integer_), .Label = c("Friday", "Monday", 
                                                                        "Saturday", "Sunday", "Thursday", "Tuesday", "Wednesday"), class = "factor"), 
           ACTWKDY7 = structure(c(NA_integer_, NA_integer_, NA_integer_, 
                                  NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_, 
                                  NA_integer_, NA_integer_), .Label = c("Friday", "Monday", 
                                                                        "Saturday", "Sunday", "Thursday", "Wednesday"), class = "factor")), row.names = c(NA, 
                                                                                                                                                          10L), class = "data.frame", .Names = c("ACTWKDY1", "ACTWKDY2", 
                                                                                                                                                                                                 "ACTWKDY3", "ACTWKDY4", "ACTWKDY5", "ACTWKDY6", "ACTWKDY7"))


             ACTWKDY1 ACTWKDY2  ACTWKDY3  ACTWKDY4 ACTWKDY5 ACTWKDY6 ACTWKDY7
              Monday  Tuesday Wednesday  Thursday   Friday     <NA>     <NA>
                <NA>     <NA>      <NA>      <NA>     <NA>     <NA>     <NA>
              Sunday   Monday   Tuesday Wednesday Thursday     <NA>     <NA>
           Wednesday Thursday    Friday  Saturday   Sunday     <NA>     <NA>
              Monday  Tuesday Wednesday  Thursday   Friday     <NA>     <NA>
              Monday  Tuesday  Thursday    Friday Saturday     <NA>     <NA>
              Monday  Tuesday Wednesday  Thursday   Friday     <NA>     <NA>
                <NA>     <NA>      <NA>      <NA>     <NA>     <NA>     <NA>
              Monday  Tuesday Wednesday  Thursday   Friday     <NA>     <NA>
 Not working at all     <NA>      <NA>      <NA>     <NA>     <NA>     <NA>
data=structure(列表)ACTWKDY1=structure(c(2L,NA,6L,9L,2L,2L,
2L,NA,2L,3L),.Label=c(“星期五”,“星期一”,“根本不工作”,
“周六”、“不相关的计划工作日”、“周日”,
“星期四”、“星期二”、“星期三”,class=“factor”),ACTWKDY2=结构(c(6L,
NA,2L,5L,6L,6L,NA,6L,NA),标签=c(“星期五”,“星期一”,
“星期六”、“星期日”、“星期四”、“星期二”、“星期三”),class=“factor”),
ACTWKDY3=结构(c(7L,NA,6L,1L,7L,5L,7L,NA,7L,
NA),.Label=c(“星期五”、“星期一”、“星期六”、“星期日”,
“星期四”、“星期二”、“星期三”,class=“factor”),ACTWKDY4=结构(c(5L,
NA,7L,3L,5L,1L,5L,NA,5L,NA),标签=c(“星期五”,
“星期一”、“星期六”、“星期日”、“星期四”、“星期二”、“星期三”
),class=“factor”),ACTWKDY5=结构(c(1L,NA,5L,
4L、1L、3L、1L、NA、1L、NA),.Label=c(“星期五”、“星期一”,
“星期六”、“星期日”、“星期四”、“星期二”、“星期三”),class=“factor”),
ACTWKDY6=结构(c(NA_整数,NA_整数,NA_整数,
NA_整数,NA_整数,NA_整数,NA_整数,NA_整数,NA_整数,
NA_整数,NA_整数,.Label=c(“星期五”、“星期一”,
“星期六”、“星期日”、“星期四”、“星期二”、“星期三”),class=“factor”),
ACTWKDY7=结构(c(NA_整数,NA_整数,NA_整数,
NA_整数,NA_整数,NA_整数,NA_整数,NA_整数,NA_整数,
NA_整数,NA_整数,.Label=c(“星期五”、“星期一”,
“星期六”、“星期日”、“星期四”、“星期三”),class=“factor”)),row.names=c(NA,
10L),class=“data.frame”,.Names=c(“ACTWKDY1”、“ACTWKDY2”,
“ACTWKDY3”、“ACTWKDY4”、“ACTWKDY5”、“ACTWKDY6”、“ACTWKDY7”))
ACTWKDY 1 ACTWKDY 2 ACTWKDY 3 ACTWKDY 4 ACTWKDY 5 ACTWKDY 6 ACTWKDY 7
星期一星期二星期三星期四星期五
星期日星期一星期二星期三星期四
星期三星期四星期五星期六星期日
星期一星期二星期三星期四星期五
星期一星期二星期四星期五星期六
星期一星期二星期三星期四星期五
星期一星期二星期三星期四星期五
根本不工作

这样的事情有意义吗

table(unlist(data))

View(table(unlist(data)))

Var1                                Freq
Friday                              6
Monday                              6
Not working at all                  1
Saturday                            2
Scheduled working days not relevant 0
Sunday                              2
Thursday                            7
Tuesday                             6
Wednesday                           6

您能否根据输入显示预期输出,但我甚至不确定预期输出应该是什么样子。仅计算天数,例如:星期一6日,星期日1日……无论如何,如果没有明确的预期输出,这篇文章可能会有不同的解释