總是最好的,如果你可以提供人們可以使用的數據。例如:
library(dplyr)
df <- data_frame(col1 = sample(c(-1, 0, 1), 10, replace = TRUE),
col2 = sample(c(-1, 0, 1), 10, replace = TRUE),
col3 = sample(c(-1, 0, 1), 10, replace = TRUE),
col4 = sample(c(-1, 0, 1), 10, replace = TRUE))
這在我的情況給我們:
col1 col2 col3 col4
1 1 1 0 0
2 -1 0 -1 -1
3 0 -1 1 0
4 -1 -1 0 -1
5 -1 1 1 1
6 0 0 0 1
7 -1 -1 -1 1
8 1 -1 1 -1
9 0 -1 -1 1
10 0 1 1 -1
現在就可以輕鬆實現你要尋找的是這樣的:
(df <- df %>% mutate(sums = rowSums(df == 1)))
col1 col2 col3 col4 sums
1 1 1 0 0 2
2 -1 0 -1 -1 0
3 0 -1 1 0 1
4 -1 -1 0 -1 0
5 -1 1 1 1 3
6 0 0 0 1 1
7 -1 -1 -1 1 1
8 1 -1 1 -1 2
9 0 -1 -1 1 1
10 0 1 1 -1 2
'rowSums(DF == 1)' – Sotos