如何创建嵌套在另一个列表下的列表？

问：

我正在尝试制作一个嵌套列表，该列表位于四列数据框中的另一个列表下。这是我的数据帧（总共有 661,599 行）的片段。

df:

我需要格式，因为我正在使用的 r 包需要特定的列表格式才能实际计算出我需要的结果。

我想要实现的结果如下所示：其中最外层的列表来自“调节器”列，其中该列表在每个“调节器”下嵌套了两个列表，即“tfmode”和“likelihood”。“likelihood”来自“可能性”列，而“tfmode”是包含“TG”和“MOA”的列表。

#attempt number 1
first_list <- split(df, df$Regulator)
second_list <- lapply(first_list, function(x) x[!names(x) %in% c("Regulator")])

#attempt number two
another_list <- list(TFMODE = list(df$`TG`, df$MOA), likelihood = df$likelihood)

我觉得从第一次尝试开始工作会更容易，所以这是我的问题，请随时回答其中任何一个，我会努力解决它：

1. 如何访问嵌套在每个监管机构下的列表中的数据帧列（TG 和 MOA）？我认为 for 循环可能是我拥有的海量数据帧的答案，但我不知道如何访问每个调节器内部的列。

   我试过了：但结果都一样second_list[["ABCA1"$TG]]second_list[1][2]$<NA> NULL

2. 如何在每个监管机构（已经是一个列表）下将三列（静止数据帧）带到一个列表中？

任何意见或建议都非常感谢，谢谢！