通过数据框的键重命名列表元素 数据

问题描述

我有一个看起来像这样的列表：

$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)

第二种方法的输出：

$`wash car`
[1] "yes"

$trash
[1] "no"

$vacuum
[1] "yes"

$`mow lawn`
[1] "yes"

,

假设data.frame的列为character，那么我们得到{list}和{key}的intersect的{​​{1}} ing个元素，并使用它们来分配{带有相应“标签”的{1}}值

names

数据

list

,

这是使用merge + stack + setNames

的基本R选项

with(
  merge(stack(lst),df,by.x = "ind",by.y = "key"),setNames(as.list(values),label)
)

给出

$`mow lawn`
[1] "yes"

$trash
[1] "no"

$vacuum
[1] "yes"

$`wash car`
[1] "yes"

数据

> dput(lst)
list(fec9 = "yes",`39c1` = "no",d387 = "yes",`0065` = "yes")

> dput(df)
structure(list(key = c("39c1","fec9","p731","0065","d387"
),label = c("trash","wash car","cook dinner","mow lawn","vacuum")),class = "data.frame",row.names = c(NA,-5L))