Licząc liczbę „0” tego czynnika

Question

Rozważmy następujący czynnik

x = factor(c("1|1","1|0","1|1","1|1","0|0","1|1","0|1")) 

chciałbym policzyć liczbę wystąpień znaku „0” tego czynnika. Jedynym rozwiązaniem znalazłem tak daleko jest

sum(grepl("0",strsplit(paste(sapply(x, as.character), collapse=""), split="")[[1]])) 
# [1] 4 

To rozwiązanie wydaje się bardzo skomplikowane dla takiego prostego procesu. Czy istnieje "lepsza" alternatywa? (Jako że proces zostanie powtórzony około 100.000 razy na czynnikach, które są 2000 elementy długo, mogę skończyć dbając o wydajność, jak również.)

Answer 1

x = factor(c("1|1","1|0","1|1","1|1","0|0","1|1","0|1")) 
x 
# [1] 1|1 1|0 1|1 1|1 0|0 1|1 0|1 
# Levels: 0|0 0|1 1|0 1|1 

sum(unlist(lapply(strsplit(as.character(x), "|"), function(x) length(grep('0', x))))) 
# [1] 4 

lub

sum(nchar(gsub("[1 |]", '', x))) 
# [1] 4 

podstawie @Rich Scriven za komentarz

sum(nchar(gsub("[^0]", '', x))) 
# [1] 4 

oparciu o użytkownika @ thelatemail komentarz - używając tabulate działa znacznie szybciej niż powyższego roztworu. Oto porównanie.

sum(nchar(gsub("[^0]", "", levels(x))) * tabulate(x)) 

Czas profilu:

x2 <- sample(x,1e7,replace=TRUE) 
system.time(sum(nchar(gsub("[^0]", '', x2)))); 
# user system elapsed 
# 14.24 0.22 14.65 
system.time(sum(nchar(gsub("[^0]", "", levels(x2))) * tabulate(x2))); 
# user system elapsed 
# 0.04 0.00 0.04 
system.time(sum(str_count(x2, fixed("0")))) 
# user system elapsed 
# 1.02 0.13 1.25 

Answer 2

Oto trzy opcje.

Opcja 1:scan() wektora stosując sep="|"

sum(scan(text=as.character(x), sep="|") == 0) 
# [1] 4 

Opcja 2: stałą postacią gregexpr()

sum(unlist(gregexpr("0", x, fixed=TRUE)) > 0) 
# [1] 4 

Wariant 3: bardzo prosty i szybki pakowane opcja z stringr

library(stringr) 
sum(str_count(x, fixed("0"))) 
# [1] 4