我想计算一个数字序列在R中出现的次数，这种情况下说1，然后是2（依次是1和2），尝试使用for循环。
set.seed(123)
df<-as.data.frame(replicate(1,sample(0:2,50,rep=TRUE)))
> df
V1
1 2
2 2
3 2
4 1
5 2
6 1
7 1
8 1
...
counter = 0
for(i in seq_along(var1$df)){
if(i == 1 & i + 1 == 2){
counter = counter + 1
}
}
counter
基本上，我试图计算序列在列中出现的次数。我喜欢for循环（出于学习目的）的想法，但对其他方法持开放态度。谢谢。
无需for循环即可实现
f1 <-function(vec, val){
rl <- rle(vec)
sum(rl$values[-length(rl$values)] == val[1] & rl$values[-1] == val[2])
}
f1(df$V1, 1:2)
#[1] 1
或使用 rleid
library(dplyr)
library(data.table)
df %>%
group_by(grp = rleid(V1), V1) %>%
slice(1) %>%
ungroup %>%
mutate(V2 = lead(V1, default = last(V1))) %>%
summarise(n = sum(V1 == 1 & V2 == 2))
或另一种选择是paste将元素放在一起并用str_count
library(stringr)
str_count(str_c(df$V1, collapse=""), "12")
#[1] 1
另外，使用for循环
counter <- 0
for(i in seq_len(nrow(df)-1)) {
if(df$V1[i] == 1 & df$V1[i+1] == 2) {
counter <- counter + 1
}
}
counter
#[1] 1
df <- structure(list(V1 = c(2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L)),
class = "data.frame", row.names = c("1",
"2", "3", "4", "5", "6", "7", "8"))
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句