एक वेक्टर के रूप में एक dplyr tbl कॉलम निकालें




lazy-evaluation collect (4)

@ ल्यूक 1018 ने इस समाधान को एक टिप्पणी में प्रस्तावित किया:

डेटा फ्रेम से वेक्टर खींचने के लिए आप magrittr एक्सपोज़शन ऑपरेटर ( %$% ) का भी उपयोग कर सकते हैं।

उदाहरण के लिए:

iris2 %>% select(Species) %>% collect() %$% Species

मैंने सोचा कि यह अपने उत्तर के लायक है।

क्या डेटाबेस बैक-एंड के साथ एक टीबीएल से (यानी डेटा फ्रेम / तालिका सीधे सबसेट नहीं हो सकती है) एक वेक्टर के रूप में एक dplyr tbl के एक कॉलम प्राप्त करने के लिए एक और संक्षिप्त तरीका है?

require(dplyr)
db <- src_sqlite(tempfile(), create = TRUE)
iris2 <- copy_to(db, iris)
iris2$Species
# NULL

यह इतना आसान होता, तो

collect(select(iris2, Species))[, 1]
# [1] "setosa"     "setosa"     "setosa"     "setosa"  etc.

लेकिन यह थोड़ा बेकार लगता है।


@nacnudus की टिप्पणी के अनुसार, ऐसा लगता है कि एक pull फ़ंक्शन dplyr 0.6 में लागू किया गया था:

iris2 %>% pull(Species)

Dplyr के पुराने संस्करणों के लिए, यहां एक कॉलम को थोड़ा अच्छा करने के लिए एक साफ फ़ंक्शन है (टाइप करने में आसान, और पढ़ने में आसान):

pull <- function(x,y) {x[,if(is.name(substitute(y))) deparse(substitute(y)) else y, drop = FALSE][[1]]}

यह आपको इनमें से किसी एक को करने देता है:

iris2 %>% pull('Species')
iris2 %>% pull(Species)
iris2 %>% pull(5)

जिसके परिणामस्वरूप...

 [1] 21.0 21.0 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 17.8 16.4 17.3 15.2 10.4 10.4 14.7 32.4 30.4 33.9 21.5 15.5 15.2 13.3 19.2 27.3 26.0 30.4 15.8 19.7 15.0 21.4

और यह डेटा फ्रेम के साथ भी ठीक काम करता है:

> mtcars %>% pull(5)
 [1] 3.90 3.90 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 3.92 3.07 3.07 3.07 2.93 3.00 3.23 4.08 4.93 4.22 3.70 2.76 3.15 3.73 3.08 4.08 4.43
[28] 3.77 4.22 3.62 3.54 4.11

dplyr v0.2 में ऐसा करने का एक अच्छा तरीका:

iris2 %>% select(Species) %>% collect %>% .[[5]]

या यदि आप पसंद करते हैं:

iris2 %>% select(Species) %>% collect %>% .[["Species"]]

या यदि आपकी मेज बहुत बड़ी नहीं है, तो बस ...

iris2 %>% collect %>% .[["Species"]]

आप unlist भी उपयोग कर सकते हैं जिसे मुझे पढ़ने में आसान लगता है क्योंकि आपको कॉलम के नाम को दोहराने या इंडेक्स निर्दिष्ट करने की आवश्यकता नहीं है।

iris2 %>% select(Species) %>% unlist(use.names = FALSE)

मैं extract2 से magrittr 2 सुविधा समारोह का उपयोग करेंगे:

library(magrittr)
library(dplyr)

iris2 %>%
  select(Species) %>%
  extract2(1)  




collect