変数をレベルにパイプすることができません

Question

大きなデータフレームで作業しています。メモリに操作を書き込むのではなく、パイプでIを実行しようとしています。中間段階で因子レベルをチェックしようとすると、levels関数を使用して問題に遭遇し、問題の原因を誰かが知っているかどうか疑問に思っていました。

例：

library(dplyr) 
Data <- data.frame(x = rep(LETTERS[1:5],3), 
        y = sample(1:10,length(x), replace=T)) 

通常の方法では動作します：

levels(Data$x) 
[1] "A" "B" "C" "D" "E" 

それはほとんど私がsapplyを使用している場合に動作します：

Data %>% select(x) %>% sapply(levels) 
    x 
[1,] "A" 
[2,] "B" 
[3,] "C" 
[4,] "D" 
[5,] "E" 

しかし、配管が動作しないとNULLを返します。

Data %>% select(x) %>% levels() 
NULL 

なぜですかData %>% select(x) %>% levels()返信NULL？

パイプでデータにレベルを使用する方法はありますか？

Answer 1

selectはデータフレームを与えますが、levelsはベクトルを引数として想定しています。そのため、それらは一緒に動作しません。 pipeでlevelsを使用するには：

を次のいずれかのレベルの方法で列を抽出するために.$xを使用することができます。

Data %>% select(x) %>% {levels(.$x)} 
# [1] "A" "B" "C" "D" "E" 

またはより良いアプローチの使用をpull代わりにselect、pullはベクトル/因子として列を与えます：

Data %>% pull(x) %>% levels() 
# [1] "A" "B" "C" "D" "E"