159

さまざまな列名のベクトルがあり、それぞれをループして、data.frame からその列を抽出できるようにしたいと考えています。たとえばmtcars、文字ベクトル に格納されているデータセットといくつかの変数名について考えてみますcolsmtcarsの動的サブセットを使用して変数を選択しようとするとcols、これらの機能のどちらも機能しません

cols <- c("mpg", "cyl", "am")
col <- cols[1]
col
# [1] "mpg"

mtcars$col
# NULL
mtcars$cols[1]
# NULL

これらを取得して同じ値を返すにはどうすればよいですか

mtcars$mpg

colsさらに、すべての列をループして、ある種のループで値を取得するにはどうすればよいですか。

for(x in seq_along(cols)) {
   value <- mtcars[ order(mtcars$cols[x]), ]
}
4

9 に答える 9

219

でそのようなサブセット化を行うことはできません$。ソースコード ( R/src/main/subset.c) には、次のように記載されています。

/* $ サブセット演算子。
最初の引数のみを評価するようにする必要があります。
2 番目は、評価ではなく、一致する必要があるシンボルです。
*/

第二引数?何?!は$、R の他のすべてのものと同様に (たとえば(、などを含む) +^引数を取り、評価される関数であることを認識する必要があります。df$V1として書き換えることができます

`$`(df , V1)

または実際に

`$`(df , "V1")

しかし...

`$`(df , paste0("V1") )

...たとえば、2番目の引数で最初に評価する必要があるものは機能しません。評価され ない文字列のみを渡すことができます。

代わりに[(または[[、1 つの列のみをベクトルとして抽出する場合) を使用します。

例えば、

var <- "mpg"
#Doesn't work
mtcars$var
#These both work, but note that what they return is different
# the first is a vector, the second is a data.frame
mtcars[[var]]
mtcars[var]

do.callへの呼び出しを構築するために使用して、ループなしで順序付けを実行できますorder。以下に再現可能な例を示します。

#  set seed for reproducibility
set.seed(123)
df <- data.frame( col1 = sample(5,10,repl=T) , col2 = sample(5,10,repl=T) , col3 = sample(5,10,repl=T) )

#  We want to sort by 'col3' then by 'col1'
sort_list <- c("col3","col1")

#  Use 'do.call' to call order. Seccond argument in do.call is a list of arguments
#  to pass to the first argument, in this case 'order'.
#  Since  a data.frame is really a list, we just subset the data.frame
#  according to the columns we want to sort in, in that order
df[ do.call( order , df[ , match( sort_list , names(df) ) ]  ) , ]

   col1 col2 col3
10    3    5    1
9     3    2    2
7     3    2    3
8     5    1    3
6     1    5    4
3     3    4    4
2     4    3    4
5     5    1    4
1     2    5    5
4     5    3    5
于 2013-08-14T09:57:03.800 に答える
6

dplyr を使用すると、データ フレームを並べ替えるための簡単な構文が提供されます

library(dplyr)
mtcars %>% arrange(gear, desc(mpg))

ここに示すように NSE バージョンを使用して、ソート リストを動的に作成できるようにすると便利な場合があります。

sort_list <- c("gear", "desc(mpg)")
mtcars %>% arrange_(.dots = sort_list)
于 2016-11-15T17:48:30.113 に答える
4

私が正しく理解していれば、変数名を含むベクトルがあり、各名前をループしてデータフレームを並べ替えたいと考えています。もしそうなら、この例はあなたのための解決策を示しているはずです。あなたの主な問題(完全な例は完全ではないので、他に何が欠けているのかわかりません)は、 parameter は、直接の列ではなく変数名を含む外部オブジェクトであるため、order(Q1_R1000[,parameter[X]])の代わりにする必要があることですorder(Q1_R1000$parameter[X])あなたのデータフレームの(これ$が適切な場合)。

set.seed(1)
dat <- data.frame(var1=round(rnorm(10)),
                   var2=round(rnorm(10)),
                   var3=round(rnorm(10)))
param <- paste0("var",1:3)
dat
#   var1 var2 var3
#1    -1    2    1
#2     0    0    1
#3    -1   -1    0
#4     2   -2   -2
#5     0    1    1
#6    -1    0    0
#7     0    0    0
#8     1    1   -1
#9     1    1    0
#10    0    1    0

for(p in rev(param)){
   dat <- dat[order(dat[,p]),]
 }
dat
#   var1 var2 var3
#3    -1   -1    0
#6    -1    0    0
#1    -1    2    1
#7     0    0    0
#2     0    0    1
#10    0    1    0
#5     0    1    1
#8     1    1   -1
#9     1    1    0
#4     2   -2   -2
于 2013-08-14T03:32:57.377 に答える