web-dev-qa-db-ja.com

$および列名のベクトルを使用してデータフレーム列を動的に選択する

順番に1つずつ、異なる列に基づいてデータフレームを注文したいと思います。 orderのベースとなる関連列名を持つ文字ベクトルがあります。

parameter <- c("market_value_LOCAL", "ep", "book_price", "sales_price", "dividend_yield",
               "beta", "TOTAL_RATING_SCORE", "ENVIRONMENT", "SOCIAL", "GOVERNANCE")

parameterの名前をループし、orderデータに使用する列を動的に選択します。

Q1_R1000_parameter <- Q1_R1000[order(Q1_R1000$parameter[X]), ]

ここで、Xは1:10です（parameterに10個のアイテムがあるため）。

この例を再現可能にするために、データセットmtcarsと、文字ベクトルcolsに格納されているいくつかの変数名を検討します。 mtcarsの動的サブセットを使用して、上記と同様の方法（Q1_R1000$parameter[X]）でcolsから変数を選択しようとすると、列が選択されません。

cols <- c("cyl", "am")
mtcars$cols[1]
# NULL
rdataframer-faq
95
Samuel Song

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

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

第二引数？何？！ $は、Rの他のすべてと同様に（たとえば(、+、^などを含む）関数であり、引数を取り、評価されることを理解する必要があります。 。 df$V1は次のように書き換えられます

`$`(df , V1)

または確かに

`$`(df , "V1")

しかし...

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

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

代わりに、[（またはベクトルとして単一の列のみを抽出する場合は[[）を使用します。

例えば、

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
155
Simon O'Hanlon

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

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

NSEバージョンを使用すると便利な場合があります ここに示すように 並べ替えリストを動的に構築できるようにする

sort_list <- c("gear", "desc(mpg)")
mtcars %>% arrange_(.dots = sort_list)
5
manotheshark

私が正しく理解している場合、変数名を含むベクトルがあり、各名前をループして、それらによってデータフレームを並べ替えたいと考えています。その場合、この例はあなたのためのソリューションを説明する必要があります。あなたの主な問題（完全な例は完全ではないので、他に何が欠けているのかわからない）は、パラメータが外部オブジェクトであるため、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
3
David

同じ列にさまざまな名前を持つCSVファイルが原因で、同様の問題が発生していました。
これが解決策でした：

リスト内の最初の有効な列名を返す関数を作成し、それを使用しました...

# Return the string name of the first name in names that is a column name in tbl
# else null
ChooseCorrectColumnName <- function(tbl, names) {
for(n in names) {
    if (n %in% colnames(tbl)) {
        return(n)
    }
}
return(null)
}

then...

cptcodefieldname = ChooseCorrectColumnName(file, c("CPT", "CPT.Code"))
icdcodefieldname = ChooseCorrectColumnName(file, c("ICD.10.CM.Code", "ICD10.Code"))

if (is.null(cptcodefieldname) || is.null(icdcodefieldname)) {
        print("Bad file column name")
}

# Here we use the hash table implementation where 
# we have a string key and list value so we need actual strings,
# not Factors
file[cptcodefieldname] = as.character(file[cptcodefieldname])
file[icdcodefieldname] = as.character(file[icdcodefieldname])
for (i in 1:length(file[cptcodefieldname])) {
    cpt_valid_icds[file[cptcodefieldname][i]] <<- unique(c(cpt_valid_icds[[file[cptcodefieldname][i]]], file[icdcodefieldname][i]))
}
0
R Keene

特定の名前の列を選択する場合は、

A=mtcars[,which(conames(mtcars)==cols[1])]
#and then
colnames(mtcars)[A]=cols[1]

ループ内で実行することも、逆の方法で動的な名前を追加することもできます。たとえば、Aがデータフレームで、xyzがxという名前の列の場合、このようにします

A$tmp=xyz
colnames(A)[colnames(A)=="tmp"]=x

これもループで追加できます

0
makarand kulkarni
Q1_R1000[do.call(order, Q1_R1000[parameter]), ]
0
Hong Ooi