如何统计一个某个数同行和下一行数值

4488dsq

比方说我现在有个表格，一列十格，共一百列。所有数为1-100整数。我想要统计所有和5在一行的出现的每个数字次数，和5的下一行每个数字出现次数。谁能给我个大概用什么函数和思路

yiqunhs

sample <- matrix(sample(1:100, 1000, replace=TRUE), 10, 100)
results <- list(NA)

for (i in 1:9) {
   row <- sample[i,]
   row2 <- sample[i+1,]
   if(any(which(row==5))){
     results[[i]] <- list(v1=table(row),v2=table(row2))
     }
}
results