Ведение имен при сведении списков в R - PullRequest
Новая
       34

Ведение имен при сведении списков в R

0 голосов
/ 28 августа 2018

Ниже приведены некоторые фиктивные данные и код. Я думаю, что пытаюсь сделать прямо противоположное этому вопросу.

После манипуляции для статистического теста у меня остался очень уродливый список. Когда я распаковываю этот список согласно этому методу с unlist, кодировка переменной / страны, хранящаяся в именах, полностью теряется.

Я хотел бы иметь фрейм данных со странами в качестве имен строк и категорий в качестве имен столбцов.

Любые указатели приветствуются! 

set.seed(1)

CVtest <- list()

for (i in c("AT","BE","DE")) { #For all countries

  # Test all categories together

  CVtest[[i]][["EveryCat"]] <-  sample(seq(0, 1, by=0.01), 1)

    for (j in c("All", "Sub", "Key", "Sel")) { # Test each category

      CVtest[[i]][[j]] <- sample(seq(0, 1, by=0.01), 1)
    }
}

Токовый выход: 

> class(CVtest)
[1] "list"
> CVtest

$`AT` EveryCat      All      Sub      Key      Sel 
    0.26     0.37     0.57     0.91     0.20 

$BE EveryCat      All      Sub      Key      Sel 
    0.90     0.95     0.66     0.63     0.06 

$DE EveryCat      All      Sub      Key      Sel 
    0.20     0.17     0.69     0.38     0.77

Желаемый выход 

> class(CVtest)
[1] "data.frame"
> CVtest
       EveryCat  All  Sub  Key  Sel
AT     0.26 0.37 0.57 0.91 0.20
BE     0.90 0.95 0.66 0.63 0.06
DE     0.20 0.17 0.69 0.38 0.77

1 Ответ

0 голосов
/ 30 августа 2018

Ваш вопрос все еще неясен (см. Мой последний комментарий). Я могу только догадываться, что вы хотите. Не могли бы вы попробовать: 

x <- purrr::transpose(CVtest)
y <- rlist::list.stack(x)
rownames(y) <- names(x)
y

Скажите, является ли y желаемым выводом? В противном случае я удалю этот ответ и уточню ваш вопрос.

...