Sélectionner de façon dynamique trame de données de colonnes à l'aide de $ et un vecteur de noms de colonne

Vous ne pouvez pas faire ce genre de subsetting avec $. Dans le code source ( R/src/main/subset.c ), il est indiqué:

/*Le $ sous-ensemble de l'opérateur.

Nous avons besoin pour être sûr d'évaluer uniquement le premier argument.

Le second sera un symbole qui doit être mis en correspondance, pas d'évaluation.

*/

Deuxième argument? Quoi?! Vous devez comprendre que $, comme tout le reste dans R, (y compris, par exemple ( , + , ^ etc) est une fonction qui prend en arguments et est évaluée. df$V1 pourrait être réécrit comme

`$`(df , V1)

ou en effet

`$`(df , "V1")

Mais...

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

...par exemple ne fonctionnera jamais, ni rien d'autre qui doit d'abord être évalué dans le deuxième argument. Vous ne pouvez passer une chaîne de caractères qui est jamais évalué.

Au lieu d'utiliser [ (ou [[ si vous voulez extraire une seule colonne comme un vecteur).

Par exemple,

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]

Vous pouvez exécuter la commande sans boucles, à l'aide de do.call pour construire l'appel à order. Voici un exemple reproductible ci-dessous:

#  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

Si je comprends bien, vous avez un vecteur contenant les noms de variables et voudrais en boucle sur chaque nom et le tri de vos données d'image par eux. Si oui, cet exemple devrait illustrer une solution pour vous. Le principal problème dans la vôtre (l'exemple complet n'est pas complète si je ne suis pas sûr de ce que vous pourriez manquer), c'est qu'il doit être order(Q1_R1000[,parameter[X]]) au lieu de order(Q1_R1000$parameter[X]), puisque paramètre est un objet externe qui contient un nom de variable opposition à une colonne de votre bloc de données (qui, quand la $ serait approprié).

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

Eu le même problème en raison de certains fichiers CSV qui avaient des noms différents pour la même colonne.

C'était la solution:

J'ai écrit une fonction pour renvoyer le premier qui valide le nom de colonne dans une liste, puis utilisé que...

# 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]))
}

Une autre solution est d'utiliser #get:

> cols <- c("cyl", "am")
> get(cols[1], mtcars)
 [1] 6 6 4 6 8 6 8 4 4 6 6 8 8 8 8 8 8 4 4 4 4 8 8 8 8 4 4 4 8 6 8 4