CODEWITHSUNDEEP
rdplyrpurrrmagrittr
ℕʘʘḆḽḘ
ℕʘʘḆḽḘ

Reputation: 19375

how to extract single element from dataframe using magrittr?

this might be a simple question, but I wasn't able to figure out the answer. Consider this simple dataframe

library(dplyr)
library(purrr)
library(magrittr)
dataframe <- data_frame(id = c(1,2,3,4),
                        text = c("this is a this", "this is another",'hello','what???'))

> dataframe
# A tibble: 4 x 2
     id            text
  <dbl>           <chr>
1     1  this is a this
2     2 this is another
3     3           hello
4     4         what???

Here I want to write a pipe expression that extracts the element in row 4 and column text: what???.

I tried to use

dataframe %>% pull(text)[[4]]

but it does not work. What can I do here?

Upvotes: 2

Views: 1569

Answers (4)

Tunn
Tunn

Reputation: 1536

This works:

dataframe %>% select(text) %>% unlist() %>% .[4]

EDIT:

Not that it really matters for this, but there are faster options (from Moody's list):

microbenchmark(
  dataframe %$% text[4],
  dataframe %>% {.$text[4]},
  dataframe %>% .[[4,"text"]],
  dataframe %>% `[[`(4,"text"),
  dataframe %>% extract2(4,"text"),
  dataframe %$% text %>% extract(4),
  dataframe %>% extract2("text") %>% extract(4),
  dataframe %>% use_series(text) %>% extract(4),
  dataframe %>% pull(text) %>% .[4], # @andrey-kolyadin in the comments
  dataframe %>% select(text) %>% unlist() %>% .[4], # @stackTon's solution
  dataframe %>% filter(row_number() == 4) %>% pull(text) # Aramis7d's solution
  )

Unit: microseconds
                                                  expr      min        lq       mean    median        uq      max neval
                                 dataframe %$% text[4]   49.014   58.0065   74.18069   66.8210   76.5185  256.353   100
                       dataframe %>% {     .$text[4] }   92.739  102.7880  119.06888  112.6615  124.1220  290.205   100
                          dataframe %>% .[[4, "text"]]   65.235   70.5240   90.02727   79.5155   92.9155  344.507   100
                             dataframe %>% 4[["text"]]   69.466   76.8710   93.45829   85.6865  101.0250  224.618   100
                     dataframe %>% extract2(4, "text")   68.761   77.4005   90.49983   82.6890   99.6150  166.789   100
                     dataframe %$% text %>% extract(4)   81.455   87.6255  108.64541   99.9675  116.3640  332.519   100
         dataframe %>% extract2("text") %>% extract(4)   98.733  106.8440  120.75439  114.6010  125.3560  256.000   100
         dataframe %>% use_series(text) %>% extract(4)  137.521  147.3940  165.11001  156.7390  172.0780  409.741   100
                     dataframe %>% pull(text) %>% .[4] 1984.177 2042.0055 2189.99915 2076.0335 2172.6505 5512.815   100
      dataframe %>% select(text) %>% unlist() %>% .[4] 3241.256 3362.9095 3644.73124 3425.4990 3567.9555 8855.978   100
dataframe %>% filter(row_number() == 4) %>% pull(text) 3542.039 3635.4820 3941.44085 3767.7140 3980.3415 8704.705   100

I like (not on the list):

dataframe %>% .$text %>% .[4]

Mean 162

Upvotes: 6

moodymudskipper
moodymudskipper

Reputation: 47320

A few short possibilities:

dataframe %$% text[4]
dataframe %>% {.$text[4]}
dataframe %>% .[[4,"text"]]
dataframe %>% `[[`(4,"text")

Or this if you want to use only magrittr aliases:

dataframe %>% extract2(4,"text")
dataframe %$% text %>% extract(4)
dataframe %>% extract2("text") %>% extract(4)
dataframe %>% use_series(text) %>% extract(4) # @Brian'ssolution

Other proposed solutions are not pure magrittr(use dplyr) :

dataframe %>% pull(text) %>% .[4] # @andrey-kolyadin in the comments
dataframe %>% select(text) %>% unlist() %>% .[4] # @stackTon's solution
dataframe %>% filter(row_number() == 4) %>% pull(text) # Aramis7d's solution

Upvotes: 2

Brian
Brian

Reputation: 8275

For a magrittr-only solution, you want

dataframe %>% magrittr::use_series(text) %>% magrittr::extract(4)

Upvotes: 1

Aramis7d
Aramis7d

Reputation: 2496

you can try:

dataframe %>%
  filter(row_number() == 4) %>%
  pull(text)

Upvotes: 3

Related Questions