是否有 R 函数可以按 n 个列表中的元素创建嵌套列表？

Question

我正在重新格式化数据集my_data ，以便输入到另一个需要非常特定格式的程序中。 我很难获得所需的适当嵌套列表，特别是使用usagedata元素。 本质上， usagedata是一个包含两个变量var和time的列表，每个变量有五个观察值。 相反，我需要使用usagedata作为 4 个观察值的列表，每个观察值都以var和time作为元素。

示例数据框如下。

my_data <- data.frame(
  Id.1 = as.character(c("A", "B", "C")),
  Id.2 = as.character(c("D", "E", "F")),
  Var.1 = as.numeric(c(100,150,200)),
  Time.1 = as.character(c("Jan","Jan","Jan")),
  Var.2 = as.numeric(c(75,125,175)),
  Time.2 = as.character(c("Feb", "Feb", "Feb")),
  Var.3 = as.numeric(c(80,120,140)),
  Time.3 = as.character(c("Mar", "Mar", "Mar")),
  Var.4 = as.numeric(c(80,120,140)),
  Time.4 = as.character(c("Apr", "Apr", "Apr")),
  )

然后我创建df.1以将 Var 和 Time 列表作为单个元素逐行保存。

df.1 <- my_data %>%
  transmute(
    var = transpose(as.list((select(., starts_with("Var"))))),
    time = transpose(as.list((select(., starts_with("Time")))))
  )

inputdata <- my_data %>%
  transmute(
    Name = Id.1,
    Unit = Id.2,
    usagedata = df.1 
  )

inputdata <- split(inputdata, seq(nrow(inputdata)))

但是，最终结果是usagedata元素是一个包含var和time的单个元素的列表，每个元素有 4 个观察值。 我想要的是使用usagedata是一个 4 的列表，包含每个元素一个元素的var和time 。 我不知道如何格式化这个。 任何帮助表示赞赏。

最终输出应遵循此层次结构。

inputdata           list [3]
  [[1]]             list [3]
    Name            character
    Unit            character
    usagedata       list [4]
      [[1]]         list [2]
        Var         double
        Time        character
      [[2]]         list [2]
        Var         double
        Time        character
etc...