R、 统计Excel数据透视表等变量的出现次数

最困难的部分是从列中去掉“日”部分。

library(data.table)
dcast(setDT(df)[, day := sub(" .*$", "", v_time)], visitor ~ day, fun.aggregate = length)
#> Using 'day' as value column. Use 'value.var' to override
#>    visitor 1/2/2018 1/3/2018 1/4/2018
#> 1:   David        1        1        0
#> 2:    Jack        2        1        1
#> 3:    Kate        0        1        1

我们可以使用任意一个正则表达式删除时间组件(首选方法是将其转换为 Date 使用类 as.Date

df$v_time <- sub("\\s+.*", "", df$v_time)

或

df$v_time <- as.Date(df$v_time, "%m/%d/%Y")

然后做 table

as.data.frame.matrix(table(df[2:1]))

如果我们需要 sum 在两个页边距上,使用 addmargins

addmargins(table(df[2:1]))

OP代码不工作的原因是在转换为之后 日期 ,未分配给“v\U时间”