Tạo danh sách có tên từ hai vectơ (tên, giá trị)

Question

Có cách nào để sử dụng ánh xạ trên hai vectơ để xây dựng danh sách được đặt tên không? Vectơ đầu tiên sẽ là loại character và chứa các tên được sử dụng cho danh sách trong khi thứ hai chứa các giá trị.

Cho đến nay, giải pháp duy nhất tôi có là:

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

$bar 
`2` 

Điều này có vẻ giống như một giải pháp khá giả tạo, nhưng tôi không thể tìm ra cách để làm điều đó bằng cách khác. Những vấn đề tôi có với nó là:

1. Nó đòi hỏi sự sáng tạo của dummyList mặc dù dummyList không bao giờ thay đổi và là một danh sách rỗng sau khi cuộc gọi đến mapply.

2. Nếu vectơ số, c(1, 2), không được chuyển đổi thành danh sách, thì kết quả của cuộc gọi đến mapply là một vector có tên là tăng gấp đôi.

Để khắc phục vấn đề 2, tôi có thể luôn luôn chỉ cần gọi mapply trên hai vectơ và sau đó gọi as.list vào kết quả, nhưng có vẻ như không nên có một cách để trực tiếp tạo ra một danh sách với các giá trị là trong một vector.

Answer 1

Bạn có thể sử dụng setNames()

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

(để có danh sách) hoặc

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

(cho một vector)

Answer 2

tôi chia sẻ sự bối rối của Ben về lý do tại sao bạn có thể muốn làm điều này, và đề nghị của anh ấy.

Chỉ vì sự tò mò của, có một loại tính năng "ẩn" trong mapply mà sẽ cho phép điều này:

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 

Ghi nhận rằng các tài liệu cho USE.NAMES nói:

USE.NAMES logic ; sử dụng tên nếu đối số ... đầu tiên có tên hoặc nếu đó là một vectơ ký tự, hãy sử dụng ký tự đó làm tên.