Как назвать все элементы в списке, содержащем более одного (1) элемента

Question

У меня есть такой список: -

modellagvar <- vector(2, mode = "list")
for (i in 1:nrow(modelselectedlagsdf))      
    {for (j in 1:2)
        {modellagvar[[i]][[j]] <- lag(as.zooreg(dusagextsobjects[[(((j - 1) * 2) + i)]]), -(0:1))
    if (j == 2)
        {names(modellagvar)[[i]] = paste0("modellagvar_",  modelselectedlagsdf$entity[[i]])
        }
    else
        {names(modellagvar)[[i]] = paste0("modellagvar_",  modelselectedlagsdf$entity[[i]])
        }
        }

Это создает список из 2 элементов, каждый из которых представляет собой список из 2 элементов, каждый из которых является обычным объектом зоопарка.

Пример частичного извлечения 1 из этих отдельных предметов выглядит следующим образом: -

head(modellagvar[[1]][[2]])
            temp, lag1
2016-01-02 -1.40,NA
2016-01-03  1.75,-1.40
2016-01-04 -2.30,1.75
2016-01-05 -1.20,-2.30
2016-01-06 -0.30,-1.20
2016-01-07  1.85,-0.30

Есть ли способ назвать каждый из этих 4 отдельных предметов.Вот что я хотел бы: -

Name of List 1, item 1 >- "region1_usage"
Name of List 1, item 2 >- "region1_temp"
Name of List 2, item 1 >- "region2_usage"
Name of List 2, item 2 >- "region2_temp"

Я пытался, как показано в коде выше, но это только имена внешнего списка.

С уважением

Дипак