ループ内のオブジェクトの名前を取得

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]]" 

あたりとしてforループを使用してlapply

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

を使用して結果？：

first 
second 

Answer 1

使用 "名前"

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

Answer 2

を取得するどのような方法がありますあなたの質問

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