第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問(wèn)題,去搜搜看,總會(huì)有你想問(wèn)的

使用$和列名稱向量動(dòng)態(tài)選擇數(shù)據(jù)框列

使用$和列名稱向量動(dòng)態(tài)選擇數(shù)據(jù)框列

鴻蒙傳說(shuō) 2019-05-25 15:46:50
使用$和列名稱向量動(dòng)態(tài)選擇數(shù)據(jù)框列我希望根據(jù)不同的列來(lái)訂購(gòu)數(shù)據(jù)框,一個(gè)轉(zhuǎn)彎。我有一個(gè)字符向量,其中的相關(guān)列名order應(yīng)該基于:parameter <- c("market_value_LOCAL", "ep", "book_price", "sales_price", "dividend_yield",               "beta", "TOTAL_RATING_SCORE", "ENVIRONMENT", "SOCIAL", "GOVERNANCE")我想循環(huán)遍歷名稱parameter并動(dòng)態(tài)選擇要用于order我的數(shù)據(jù)的列:Q1_R1000_parameter <- Q1_R1000[order(Q1_R1000$parameter[X]), ]這里X是1:10(因?yàn)槲矣?0個(gè)項(xiàng)目parameter)。為了使我的示例可重現(xiàn),請(qǐng)考慮mtcars存儲(chǔ)在字符向量中的數(shù)據(jù)集和一些變量名稱cols。當(dāng)我嘗試mtcars使用動(dòng)態(tài)子集選擇變量時(shí)cols,以與上面(Q1_R1000$parameter[X])類似的方式,未選擇該列:cols <- c("cyl", "am")mtcars$cols[1]# NULL
查看完整描述

3 回答

?
藍(lán)山帝景

TA貢獻(xiàn)1843條經(jīng)驗(yàn) 獲得超7個(gè)贊

如果我理解正確,你有一個(gè)包含變量名稱的向量,并希望遍歷每個(gè)名稱并按它們對(duì)數(shù)據(jù)框進(jìn)行排序。如果是這樣,這個(gè)例子應(yīng)該為您說(shuō)明一個(gè)解決方案。你的主要問(wèn)題(完整的例子不完整,所以我不確定你可能缺少什么)是它應(yīng)該是,order(Q1_R1000[,parameter[X]])而不是order(Q1_R1000$parameter[X]),因?yàn)閰?shù)是一個(gè)外部對(duì)象,包含一個(gè)與直接列相對(duì)的變量名您的數(shù)據(jù)框(當(dāng)$適當(dāng)時(shí))。


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


查看完整回答
反對(duì) 回復(fù) 2019-05-25
  • 3 回答
  • 0 關(guān)注
  • 793 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購(gòu)課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)