将数据框的两列转换为命名向量

Question

我需要将多行两列data.frame转换为命名字符向量.我data.frame会是这样的:

dd = data.frame(crit = c("a","b","c","d"), 
                name = c("Alpha", "Beta", "Caesar", "Doris")
                )

我真正需要的是:

whatiwant = c("a" = "Alpha",
              "b" = "Beta",
              "c" = "Caesar",
              "d" = "Doris")

Answer 1

使用names功能:

whatyouwant <- as.character(dd$name)
names(whatyouwant) <- dd$crit

as.character是必要的,因为data.frame并read.table使用默认设置将字符转换为因子.

如果你想要一个单行:

whatyouwant <- setNames(as.character(dd$name), dd$crit)

Answer 2

您可以从中创建矢量dd$name,并使用添加名称names(),但您可以通过以下步骤一步完成所有操作structure():

whatiwant <- structure(as.character(dd$name), names = as.character(dd$crit))

Answer 3

您也可以deframe(x)从tibble软件包中使用它。

tibble::deframe()

它将第一列转换为名称，第二列转换为值。

Answer 4

这是一个非常通用、简单、整洁的方法：

library(dplyr)

iris %>%
  pull(Sepal.Length, Species)

第一个参数是值，第二个参数是名称。

Answer 5

对于多样性,尝试split和unlist:

unlist(split(as.character(dd$name), dd$crit))
#        a        b        c        d 
#  "Alpha"   "Beta" "Caesar"  "Doris"