извлечь имена объектов из списка

Question

У меня есть список объектов. Как получить имя одного объекта из списка? Как и в случае:

LIST <- list(A=1:5, B=1:10) 
LIST$A 
some.way.cool.function(LIST$A) #function I hope exists 
"A" #yay! it has returned what I want 

Имена (СПИСОК) неверны, поскольку они возвращают «A» и «B».

Просто для контекста Я рисую серию кадров данных, которые хранятся в списке. Когда я прихожу к каждому data.frame, я хочу включить имя data.frame в качестве заголовка. Таким образом, ответ имен (LIST) [1] неверен.

EDIT: Я добавил код для более контекста проблемы

x <- c("yes", "no", "maybe", "no", "no", "yes") 
y <- c("red", "blue", "green", "green", "orange") 
list.xy <- list(x=x, y=y) 

WORD.C <- function(WORDS){ 
require(wordcloud) 

L2 <- lapply(WORDS, function(x) as.data.frame(table(x), stringsAsFactors = FALSE)) 

    FUN <- function(X){ 
     windows() 
     wordcloud(X[, 1], X[, 2], min.freq=1) 
     mtext(as.character(names(X)), 3, padj=-4.5, col="red") #what I'm trying that isn't working 
    } 
    lapply(L2, FUN) 
} 

WORD.C(list.xy) 

Если это работает на имена х и у будет светиться красным цветом в верхней части обоих участков

Answer 1

Создание небольшой настройки для внутренней функции и используя lapply по индексу вместо самого фактического списка получает это делать то, что вы хотите

x <- c("yes", "no", "maybe", "no", "no", "yes") 
y <- c("red", "blue", "green", "green", "orange") 
list.xy <- list(x=x, y=y) 

WORD.C <- function(WORDS){ 
    require(wordcloud) 

    L2 <- lapply(WORDS, function(x) as.data.frame(table(x), stringsAsFactors = FALSE)) 

    # Takes a dataframe and the text you want to display 
    FUN <- function(X, text){ 
    windows() 
    wordcloud(X[, 1], X[, 2], min.freq=1) 
    mtext(text, 3, padj=-4.5, col="red") #what I'm trying that isn't working 
    } 

    # Now creates the sequence 1,...,length(L2) 
    # Loops over that and then create an anonymous function 
    # to send in the information you want to use. 
    lapply(seq_along(L2), function(i){FUN(L2[[i]], names(L2)[i])}) 

    # Since you asked about loops 
    # you could use i in seq_along(L2) 
    # instead of 1:length(L2) if you wanted to 
    #for(i in 1:length(L2)){ 
    # FUN(L2[[i]], names(L2)[i]) 
    #} 
} 

WORD.C(list.xy) 

Answer 2

Да, она существует :) Просто используйте

> names(LIST) 
[1] "A" "B" 

Очевидно имена первого элемента просто

> names(LIST)[1] 
[1] "A"