私はこのようなリストを持っています:
$fec9
[1] "yes"
$`39c1`
[1] "no"
$d387
[1] "yes"
$`0065`
[1] "yes"
リストの要素に一致するキーを持つデータフレーム。
dataframe <- data.frame(key = c('39c1', 'fec9', 'p731' '0065', 'd387'),
label = c('trash', 'wash car', 'cook dinner', 'mow lawn', 'vacuum'))
リスト内の各要素の名前を対応するキーのラベルに変更しようとしていますが、データフレームがリストと同じ順序ではなく、データフレーム内にリストに表示されないキーがいくつかあります。現在私が試しているのは:
for(i in names(list)){
names(list[i]) <- dataframe %>% filter(key == names(list[i])) %>% select(label)
}
しかし、名前がすべて同じままだった後でリストを調べると
私はあなたがこれを探していることを願っています:
#method 1
#get common key from dataframe
df <- df[df$key %in% names(list), ]
list <- list[df$key] #getting the same order as of dataframe
names(list) <- df$label
#method 2
#if you want to preserve the order of labels:
df <- df[df$key %in% names(list), ]
row.names(df) <- df$key
names(list) <- df[names(list), ]$label
データ
list <- list(fec9 = 'yes', `39c1` = 'no', 'd387' = 'yes', `0065` = 'yes')
df <- data.frame(key = c('39c1', 'fec9', 'p731', '0065', 'd387'),
label = c('trash', 'wash car', 'cook dinner', 'mow lawn', 'vacuum'), stringsAsFactors = FALSE)
2番目の方法からの出力:
$`wash car`
[1] "yes"
$trash
[1] "no"
$vacuum
[1] "yes"
$`mow lawn`
[1] "yes"
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加