Преобразование имен векторных объектов в теги списка векторов с R

У меня есть несколько векторов, например:

months <- c("january", "february", "march", "october", "december") 
weekdays <- c("Sunday", "Monday", "Tuesday")
seasons <- c("Summer", "Winter", "Fall", "autumn")

И я хочу создать такой список

timeWords_list <- list(months,  weekdays, seasons)

Есть ли способ пометить объекты списка непосредственно именами векторных объектов?

Желаемого результата можно добиться так:

names(timeWords_list) <- c("months",  "weekdays", "seasons")

Но есть ли способ сделать это напрямую? Без переписывания этих имен (в строковом векторе)?


r list data-transform
person Fidel Alencar    schedule 05.01.2021    source источник
comment
tibble::lst сделает это за вас, если хотите.   -  person r2evans    schedule 05.01.2021

Ответы (2)


arrow_upward
4
arrow_downward

Попробуйте любой из этих однострочных. Первый требует, чтобы каждое имя было написано дважды, но не нужно указывать символьный вектор имен, а цель кода очень ясна. Второй требует только, чтобы имена были написаны один раз. Третий не требует, чтобы имена были записаны вообще, но работает только в том случае, если нет других переменных, имена которых заканчиваются на s - если бы такие имена были, эти переменные также были бы включены в список.

Пакеты не используются.

L1 <- list(months = months, weekdays = weekdays, seasons = seasons)

L2 <- mget(c("months", "weekdays", "seasons"))

L3 <- mget(ls(pattern = "s$"))
person G. Grothendieck    schedule 05.01.2021
comment
Я предположил, что первое было известно, но, оглядываясь назад, я все равно должен был включить его, на всякий случай. Я так часто рекомендую не использовать _1 _ / _ 2_ функции (при злоупотреблении), что постоянно забываю о них при законном использовании, подобном этому. - person r2evans; 05.01.2021

arrow_upward
2
arrow_downward

Если вы уже используете пакеты из tidyverse, tibble::lst уже делает это:

tibble::lst(months,  weekdays, seasons)
# $months
# [1] "january"  "february" "march"    "october"  "december"
# $weekdays
# [1] "Sunday"  "Monday"  "Tuesday"
# $seasons
# [1] "Summer" "Winter" "Fall"   "autumn"

Однако если вы этого не сделаете, вы можете испечь свою собственную, заимствовав из https://stackoverflow.com/a/55019843/3358272 < / а>:

mylist <- function(...) setNames(list(...), as.character(match.call(expand.dots = FALSE)$...))
mylist(months,  weekdays, seasons)
# $months
# [1] "january"  "february" "march"    "october"  "december"
# $weekdays
# [1] "Sunday"  "Monday"  "Tuesday"
# $seasons
# [1] "Summer" "Winter" "Fall"   "autumn"

Учтите, однако, что это не всегда получается так, как вы могли задумать.

mylist(months,  weekdays, seasons, c(1,27,pi))
# $months
# [1] "january"  "february" "march"    "october"  "december"
# $weekdays
# [1] "Sunday"  "Monday"  "Tuesday"
# $seasons
# [1] "Summer" "Winter" "Fall"   "autumn"
# $`c(1, 27, pi)`
# [1]  1.000000 27.000000  3.141593

tibble::lst делает то же самое (как и многие другие функции, которые пытаются использовать этот тип обмана), так что это не новая проблема.

person r2evans    schedule 05.01.2021