223

データベース バックエンドを持つ tbl から、dplyr tbl の 1 つの列をベクトルとして取得するより簡潔な方法はありますか (つまり、データ フレーム/テーブルを直接サブセット化することはできません)。

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.

しかし、それは少し不器用なようです。

4

7 に答える 7

111

@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

の v0.2 でこれを行う良い方法dplyr:

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

または、必要に応じて:

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

または、テーブルが大きすぎない場合は、単純に...

iris2 %>% collect %>% .[["Species"]]
于 2014-07-14T06:42:58.977 に答える
80

unlist列の名前を繰り返したり、インデックスを指定したりする必要がないため、読みやすい方を使用することもできます。

iris2 %>% select(Species) %>% unlist(use.names = FALSE)
于 2015-06-27T10:02:05.783 に答える
23

extract2次の便利な関数を使用しmagrittrます。

library(magrittr)
library(dplyr)

iris2 %>%
  select(Species) %>%
  extract2(1)
于 2014-11-26T04:12:19.453 に答える