Создание именованного списка из двух векторов (имена, значения)

Question

Есть ли способ использовать mapply для двух векторов для создания именованного списка? Первый вектор будет иметь тип character и содержать имена, используемые для списка, а второй - значения.

До сих пор единственное решение, у меня есть:

> dummyList = list() 
> addToList <- function(name, value) { 
+ dummyList[[name]] <- value 
+ } 
> mapply(addToList, c("foo", "bar"), as.list(c(1, 2)) 
$foo 
`1` 

$bar 
`2` 

Это кажется довольно надуманным решением, но я не могу понять, как это сделать иначе. Проблемы у меня с ней:

1. Это требует создания dummyListdummyList, хотя никогда не изменяется, и является пустой список после вызова mapply.

2. Если числовой вектор, c(1, 2), не преобразован в список, то результатом вызова mapply является именованный вектор удвоений.

Чтобы обойти проблему 2, я всегда могу просто позвонить mapply на двух векторов, а затем вызвать as.list на результат, но мне кажется, что там должен быть способ непосредственного создания списка, величина которых в вектор.

Answer 1

Вы можете использовать setNames()

setNames(as.list(c(1,2)), c("foo", "bar")) 

(для списка) или

setNames(c(1,2), c("foo", "bar")) 

(для вектора)

Answer 2

Я разделяю озадаченность Бена о том, почему вы можете захотеть сделать это, и его рекомендацию.

Просто ради любопытства, есть своего рода «скрытый» особенность в mapply, что позволит этому:

x <- letters[1:2] 
y <- 1:2 
mapply(function(x,y) { y }, x, y, SIMPLIFY = FALSE,USE.NAMES = TRUE) 
$a 
[1] 1 

$b 
[1] 2 

отмечая, что документация USE.NAMES говорит:

USE.NAMES логический ; используйте имена, если у первого ... аргумента есть имена, или , если это вектор-символ, используйте этот символьный вектор в качестве имен.