Question

我正在尝试建立一个保留的同类群组表，但是我很难将其设置为独立于第一次见面的每个时段返回不同的计数ID（因为与第一次见面无关）数据。）

我一直在尝试一种解决方案，但是大多数情况下，我会每个时期吸引新用户，而不管他们是否出现在该期间中，而不管它们是否出现在上一个期间中。

Ex：对于这组值：

id  quarter
7   Q1
7   Q1
5   Q1
8   Q1
3   Q1
6   Q1
10  Q1
3   Q2
10  Q2
8   Q2
2   Q2
7   Q2
6   Q2
6   Q3
9   Q3
6   Q3
4   Q3
9   Q3
2   Q3
5   Q4
8   Q4
10  Q4
7   Q4
1   Q4
8   Q4

而不是：（仅当首次在数据中看到用户时，才将其计入群组）

#   [,1] [,2] [,3] [,4]
#Q1    6    5    1    5
#Q2    1    1    0    0
#Q3    2    0    0    0
#Q4    1    0    0    0

我想要这样：（无论用户是首次出现在该时段内，该用户都被计入同类群组）

#   [,1] [,2] [,3] [,4]
#Q1    6    5    1    4
#Q2    6    2    3    0
#Q3    4    0    0    0
#Q4    5    0    0    0

我尝试过的事情：

test <- list(id = c(7, 7, 5, 8, 3, 6, 10, 3, 10, 8, 2, 7, 6, 
                    6, 9, 6, 4, 9, 2, 5, 8, 10, 7, 1, 8), quarter = c("Q1", "Q1", 
                                                                      "Q1", "Q1", "Q1", "Q1", "Q1", "Q2", "Q2", "Q2", "Q2", "Q2", "Q2", 
                                                                      "Q3", "Q3", "Q3", "Q3", "Q3", "Q3", "Q4", "Q4", "Q4", "Q4", "Q4", 
                                                                      "Q4"))

test <- as.data.table(test)
quarts <- sort(unique(test$quarter))
test$occur <- 1
mat <- dcast.data.table(test, id ~ quarter, value.var = "occur", fun.aggregate = sum)
mat[mat > 1] <- 1
mat<-as.data.frame(mat)

res2<-matrix(0, nrow = ncol(mat)-1, ncol = ncol(mat)-1)
res2<-as.data.frame(res2)
i<-2

for (i in 2:ncol(mat)){
  res2[i-1,1]<-sum(mat[,i])  
}

for (i in 2:ncol(mat)){
  for (t in 1:nrow(mat)){
    if (mat[t,i] > 0) {
     res2[i-1,i]<-res2[i-1,i]+mat[i,i+1]
    } 
  }
}

但这给我一个错误。将不胜感激任何建议。谢谢！

Answer 1

我想我已经为需要它的人弄清楚了：

library (dplyr)
library(data.table)

test <- list(id = c(7, 7, 5, 8, 3, 6, 10, 3, 10, 8, 2, 7, 6, 
                    6, 9, 6, 4, 9, 2, 5, 8, 10, 7, 1, 8), quarter = c("Q1", "Q1", 
                                                                      "Q1", "Q1", "Q1", "Q1", "Q1", "Q2", "Q2", "Q2", "Q2", "Q2", "Q2", 
                                                                      "Q3", "Q3", "Q3", "Q3", "Q3", "Q3", "Q4", "Q4", "Q4", "Q4", "Q4", 
                                                                      "Q4"))

test <- as.data.frame(test)
quarters <- as.vector(unique(test$quarter))

f<-1
my_list <- list()
for(i in quarters) {
  print(i)
  d1<- setDT(test)[, sum(unique(id) %in% test[quarter==i, id]), by = quarter]
  print(d1)
  my_list[[f]]<- d1[,2]
  f=f+1
}
print(my_list)

mydf <- data.frame(my_list)
print(mydf)
final<-mydf
for (i in 1:ncol(mydf)){
final<-final %>% mutate_at(c(i), funs(lead), n = i-1 )
}
print(final)
final <-t(final)

R中的同类群组分析（与首次看到的情况无关）

1 个答案: