เลือกคอลัมน์เฟรมข้อมูลแบบไดนามิกโดยใช้ $ และค่าอักขระ

ฉันมีเวกเตอร์ของชื่อคอลัมน์ที่แตกต่างกันและฉันต้องการให้สามารถวนซ้ำแต่ละคอลัมน์เพื่อแยกคอลัมน์นั้นออกจาก 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) ระบุว่า:

/ * ตัวดำเนินการ $ ส่วนย่อย
เราต้องแน่ใจว่าได้ประเมินเฉพาะอาร์กิวเมนต์แรกเท่านั้น
อันที่สองจะเป็นสัญลักษณ์ที่ต้องจับคู่ไม่ได้รับการประเมิน
* /

ข้อโต้แย้งที่สอง? อะไร?! คุณต้องตระหนักว่า$เหมือนทุกสิ่งทุกอย่างใน 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

ถ้าฉันเข้าใจถูกต้องคุณมีเวกเตอร์ที่มีชื่อตัวแปรและต้องการวนซ้ำแต่ละชื่อและจัดเรียงกรอบข้อมูลของคุณตามพวกเขา หากเป็นเช่นนั้นตัวอย่างนี้ควรเป็นแนวทางสำหรับคุณ ปัญหาหลักในตัวคุณ (ตัวอย่างเต็มยังไม่สมบูรณ์ดังนั้นฉันจึงไม่แน่ใจว่ามีอะไรอีกบ้างที่คุณอาจขาดหายไป) คือมันควรจะเป็น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

การใช้ dplyr ให้ไวยากรณ์ที่ง่ายสำหรับการจัดเรียงเฟรมข้อมูล

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

อาจเป็นประโยชน์ในการใช้เวอร์ชัน NSE ดังที่แสดงไว้ที่นี่เพื่อให้สามารถสร้างรายการเรียงลำดับแบบไดนามิกได้

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

อีกวิธีหนึ่งคือการใช้ #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

มีปัญหาที่คล้ายกันเนื่องจากไฟล์ 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 คือ data frame และ xyz เป็นคอลัมน์ที่จะตั้งชื่อเป็น x ฉันก็ทำแบบนี้

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

อีกครั้งซึ่งสามารถเพิ่มในลูป

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

สายเกินไป .. แต่ฉันเดาว่าฉันมีคำตอบ -

นี่คือตัวอย่าง dataframe 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
>