獲取循環內對象的名稱

Question

我知道deparse + substitute技巧從作為參數傳遞給函數的對象中獲取名稱，但是循環中的相同技巧不起作用。

我的代碼（僅用於測試）：

mylist <- list(first = c("lawyer","janitor"), second = c("engineer","housewife"))

for (element in names(mylist)){
  print(deparse(substitute(mylist[[element]])))
}

[1] "mylist[[element]]"
[1] "mylist[[element]]"

有沒有辦法得到結果？：

first
second

Answer 1

使用lapply

lapply(mylist, function(x) { print(names(x))} )
# NULL
# NULL
# $first
# NULL
# 
# $second
# NULL

根據你的問題使用for循環

for (element in names(mylist)){
  print(element)
}
# [1] "first"
# [1] "second"

Answer 2

使用“名字”

for (element in names(mylist)){
  print(as.name(element))
}