Talvez algo assim...
### <code r>
{
set.seed(123)
df <- data.frame(
municipio=sample(c("Limeira", "Manaus", "Dourados"), 30, repl=T),
diasemanaincident=sample(c("terca", "quarta", "sexta"), 30, repl=T),
trechoklmetros=sample(0:400000, 30),
turnoincidente=sample(c("manha", "tarde"), 30, repl=T),
stringsAsFactors=F)
}
which(df$municipio == 'Limeira')
# [1] 1 6 15 17 18 19 29 30
which(df$municipio == 'Limeira' & df$diasemanaincident == 'terca')
# [1] 15 17 19
vec <- c("df$municipio == 'Limeira'",
"df$municipio == 'Limeira' & df$diasemanaincident == 'terca'");
cbind(vec)
for (a in vec) print(with(df, which(eval(parse(text=a)))))
# [1] 1 6 15 17 18 19 29 30
# [1] 15 17 19
### </code>
Éder Comunello <c <[email protected]>[email protected]>
Dourados, MS - [22 16.5'S, 54 49'W]
Em 16 de abril de 2015 14:32, Fernando Gama <[email protected]>
escreveu:
> Obrigado pela resposta Eder. :)
>
> mas os dados não estão em um dataframe e sim eu tenho um vetor de
> caracteres na forma de:
>
> [1] "municipio == Limeira"
>
> [2] "municipio == Limeira & diasemanaincident == terca"
>
> [3] "municipio == Limeira & diasemanaincident == terca & *trechoklmetros
> == ]12.200, 245.000]*" [1] [1] "municipio == Manaus"
>
>
> [4]"municipio == Manaus & diasemanaincident == sexta"
>
> [5] "municipio == Manaus & diasemanaincident == sexta & turnoincidente ==
> manha"
>
> Meu objetivo é ler essas strings de busca de maneira automática. Como elas
> seguem um padrão, posso aplicar o mesmo script em cima de proximas strings
> de busca que surgirem...
>
>
>
>
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
