not - magritte

¿Cómo extraer/subcontratar un elemento de una lista con magrittr%>% pipe?

Question

Desde la introducción del operador %>% en el paquete magrittr (y su uso en dplyr ), comencé a usar esto en mi propio trabajo.

Sin embargo, una simple operación me ha dejado perplejo. Específicamente, esta es la extracción (o subconjunto) de elementos de una lista.

Un ejemplo: en la base RI usaría $ , [ o [[ para extraer un elemento de una lista:

iris$Species
iris[["Species"]]

Puedo lograr lo mismo usando el %>% pipe:

iris %>%
  subset(select = "Species") %>%
  head

  Species
1  setosa
2  setosa
3  setosa
4  setosa
5  setosa
6  setosa

O

iris %>%
  `[[`("Species") %>%
  levels

[1] "setosa"     "versicolor" "virginica" 

Sin embargo, esto se siente como una solución desordenada y torpe.

¿Existe una forma más elegante y canónica de extraer un elemento de una lista utilizando el tubo %>% ?

Nota: no quiero ninguna solución que incluya dplyr , por la sencilla razón de que quiero que la solución funcione con cualquier objeto R, incluidas listas y matrices, no solo marcos de datos.

Answer 1

En v 1.5 de magrittr en CRAN puede usar el operador %$% :

iris %$% 
  Species %>%
  levels

Es esencialmente una envoltura alrededor, pero más agradable que

iris %>% 
  with(Species %>% levels)

o

iris %>%
  with(Species) %>%
  levels

Está diseñado para ser conveniente cuando las funciones no tienen su propio argumento de datos, por ejemplo, con un gráfico que puede hacer

iris %>% 
  plot(Sepal.Length ~ Sepal.Width, data = .)

pero, por ejemplo, con ts.plot no puedes hacer eso, así que ahora:

iris %$%
  ts.plot(Sepal.Length)

[Sí, sé que el ejemplo no tiene sentido, pero ilustra el punto]

Tenga en cuenta también que [<- y [[<- también tienen alias, inset y inset2 ..

Answer 2

Use use_series , extract2 y extract para $ , [[ , [ , respectivamente.

?extract

magrittr proporciona una serie de alias que pueden ser más agradables de usar cuando se componen cadenas utilizando el operador %>% ".

Por tu ejemplo, podrías probar

iris %>%
  extract("Species")

y

iris %>%
  extract2("Species") %>%
  levels

Consulte la parte inferior de esta página para obtener más información: http://cran.r-project.org/web/packages/magrittr/vignettes/magrittr.html