如何计算行（R）中的变化数量

Question

df <- data.frame(Num1=c(1,0,1,0,1), Num2=c(0,1,1,0,1), Num3=c(1,1,1,1,1), Num4=c(1,1,0,0,1), Num5=c(1,1,1,0,0))

我需要计算R中每一行的价值变化多少次。 谢谢你！

Answer 1

rowSums(df[-1] != df[-ncol(df)])
[1] 2 1 2 2 1

即第一行是从1到0的更改，然后返回1。因此总共2个更改等

Answer 2

这是一个尝试，

df <- data.frame(Num1=c(1,0,1,0,1), 
                 Num2=c(0,1,1,0,1),
                 Num3=c(1,1,1,1,1),
                 Num4=c(1,1,0,0,1),
                 Num5=c(1,1,1,0,0))


df$n_changes <- apply(df , MARGIN = 1 , function(x) sum(abs(diff(x))))

df
#>   Num1 Num2 Num3 Num4 Num5 n_changes
#> 1    1    0    1    1    1         2
#> 2    0    1    1    1    1         1
#> 3    1    1    1    0    1         2
#> 4    0    0    1    0    0         2
#> 5    1    1    1    1    0         1

^由

Answer 3

我们可以使用应用（ margin = 1 ）循环循环，然后使用 rle （运行长度编码），检查长度

apply(df, 1, function(x) lengths(rle(x)))[1,]-1
[1] 2 1 2 2 1