3

Quero filtrar meu banco de dados com base em duas variáveis: via e city. Este filtro, no entanto, é feito por intermédio de partículas de casos presentes nestas duas variáveis. Por exemplo, quero analisar quem tirou a primeira via (1via) e quem mora em Santa Mônica (Santa Monica).

As particulas seriam: 1v e ca das variáveis via e city, respectivamente.

Tentei fazer isto:

library(dplyr)
library(stringr)
library(magrittr)

df1<-data%>%
    filter(stringr::str_detect(via,'1v')%>%
               filter(stringr::str_detect(city,'ca')))

mas não deu certo.

Na verdade, tentei varias combinações, mas não consegui chegar ao resultado esperado.

dput para auxílio na reposta:

data=structure(list(bin = c(0, 0, 0, 0, 1, 1, 0, 0, 1, 1), group1 = c(1, 
2, 2, 1, 2, 1, 2, 1, 2, 1), missing = c(NA, 4, 5, NA, 7, 6, NA, 
NA, 4, 5), score1 = c(3, 2, 4, 4, 7, 6, 4, 3, 6, 7), valor = c(100, 
200, 321, 34, 3424, 2344, 4232, 43, 22, 22), gender = c("M", 
"M", "M", "M", "M", "F", "F", "F", "F", "F"), via = structure(c(2L, 
1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c("1via", "2via"
), class = "factor"), income = c(1605.52545357496, 1957.10460608825, 
3463.77286640927, 2241.49697413668, 2575.95523679629, 3004.28174249828, 
3458.30937661231, 1786.68619645759, 2065.093211364, 1561.55416276306
), city = c("San Francisco", "Santa Monica", "Santa Monica", 
"Santa Monica", "Santa Monica", "Hollywood", "Hollywood", "Hollywood", 
"Hollywood", "Hollywood"), desbloq = structure(c(10553, 9537, 
10553, 10553, 9212, 10658, 10957, 11822, 11822, 10188), class = "Date"), 
trans = structure(c(10556, 9541, 10555, 10554, 9218, 10660, 
10958, 11823, 11826, 10190), class = "Date")), .Names = c("bin", 
"group1", "missing", "score1", "valor", "gender", "via", "income", 
"city", "desbloq", "trans"), row.names = c(NA, -10L), class = "data.frame")

1 Resposta 1

4

Há um erro no código. O primeiro parêntese está fechando ao final do segundo filter. Eu uso asteriscos para destacar isso no código abaixo:

library(dplyr)
library(stringr)
library(magrittr)

df1<-data%>%
    filter*(*stringr::str_detect(via,'1v')%>%
               filter(stringr::str_detect(city,'ca'))*)*

O correto é

df1<-data%>%
    filter(stringr::str_detect(via,'1v'))%>%
    filter(stringr::str_detect(city,'ca'))
df1
  bin group1 missing score1 valor gender  via   income         city    desbloq      trans
1   0      2       4      2   200      M 1via 1957.105 Santa Monica 1996-02-11 1996-02-15
2   0      1      NA      4    34      M 1via 2241.497 Santa Monica 1998-11-23 1998-11-24

Além disso, é redundante carregar um pacote com o comando library(stringr) e chamar as suas função utilizando stringr::str_detect. Se o pacote foi carregado, é possível deixar o código mais limpo chamando a função diretamente pelo seu nome:

df1<-data%>%
    filter(str_detect(via,'1v'))%>%
    filter(str_detect(city,'ca'))
df1
  bin group1 missing score1 valor gender  via   income         city    desbloq      trans
1   0      2       4      2   200      M 1via 1957.105 Santa Monica 1996-02-11 1996-02-15
2   0      1      NA      4    34      M 1via 2241.497 Santa Monica 1998-11-23 1998-11-24

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .