さまざまな列名のベクトルがあり、それぞれをループしてdata.frameからその列を抽出できるようにしたいと考えています。たとえばmtcars、文字セットに格納されているデータセットといくつかの変数名を考えてみますcols。のmtcars動的サブセットを使用して変数を選択しようとすると、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]), ]
}回答:
そのようなサブセット化をで行うことはできません$。ソースコード（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私が正しく理解していれば、変数名を含むベクトルがあり、各名前をループしてデータフレームをそれらでソートしたいと思います。もしそうなら、この例はあなたのための解決策を説明するはずです。それがあるべきであるということであるあなたの主な問題は、（I "メートルないでください他に何あなたが欠落している可能性がありはして完全な例は完全ではない）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 -2dplyrを使用すると、データフレームをソートするための簡単な構文が提供されます
library(dplyr)
mtcars %>% arrange(gear, desc(mpg))ここに示すように NSEバージョンを使用すると、ソートリストを動的に構築できるので便利です。
sort_list <- c("gear", "desc(mpg)")
mtcars %>% arrange_(.dots = sort_list)同じ列にさまざまな名前が付けられた一部の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]))
}特定の名前の列を選択する場合は、次のようにします
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これもループに追加できます
遅すぎる..しかし、私は答えがあると思います-
これが私のstudy.dfデータフレームのサンプルです-
>study.df
study sample collection_dt other_column
1 DS-111 ES768098 2019-01-21:04:00:30 <NA>
2 DS-111 ES768099 2018-12-20:08:00:30 some_value
3 DS-111 ES768100 <NA> some_valueその後 -
> ## Selecting Columns in an Given order
> ## Create ColNames vector as per your Preference
>
> selectCols <- c('study','collection_dt','sample')
>
> ## Select data from Study.df with help of selection vector
> selectCols %>% select(.data=study.df,.)
study collection_dt sample
1 DS-111 2019-01-21:04:00:30 ES768098
2 DS-111 2018-12-20:08:00:30 ES768099
3 DS-111 <NA> ES768100
>