r

당신은 그런 종류의 부분 집합을 할 수 없습니다 $. 소스 코드 ( R/src/main/subset.c)에서 다음과 같이 설명합니다.

/ * $ 하위 집합 연산자.
우리는 첫 번째 주장 만 평가해야합니다.
두 번째는 평가되지 않고 일치해야하는 기호입니다.
* /

두 번째 논쟁? 뭐?! 당신은 그 실현이 $R에서 다른 모든 것들처럼, (예를 들면 포함, (, +, ^인수를 평가하는 기능이며, 등). df$V1다음과 같이 다시 작성할 수 있습니다.

`$`(df , V1)

또는 실제로

`$`(df , "V1")

그러나…

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

… 예를 들어 결코 작동하지 않을 것이며 두 번째 인수에서 먼저 평가되어야하는 다른 어떤 것도 작동하지 않을 것입니다. 평가 되지 않는 문자열 만 전달할 수 있습니다 .

대신 사용하십시오 [(또는 [[단일 열만 벡터로 추출하려는 경우).

예를 들면

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

답변

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

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

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

> 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

# 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$tmp=xyz
colnames(A)[colnames(A)=="tmp"]=x

mtcars[do.call(order, mtcars[cols]), ]