R 未列出TIBLE中的嵌套列

我试图用

dplyr

创建一个嵌套的数据帧来编写一些JSON，但是在获得所需的输出时遇到了一些问题。一些示例代码：

library(tidyr)
library(dplyr)

df <- data.frame("ID" = c("A", "A", "B", "B"), "level_1" = c("C", "C", "D", 
             "D"),  "values" = c(1,1,2,2), "other_values" = c(1,2,3,4))

df <- df %>% group_by(ID, values) %>% nest() %>% group_by(ID) %>% nest()

甚至可以将TIBLE存储为列表中不包含的TIBLE元素吗？我尝试过的大多数事情都会抛出错误，表明情况就是这样

实际输出：

[{
        "ID": "A",
        "data": [{
            "values": 1,
            "data": [{
                    "level_1": "C",
                    "other_values": 1
                },
                {
                    "level_1": "C",
                    "other_values": 2
                }
            ]
        }]
    },
    {
        "ID": "B",
        "data": [{
            "values": 2,
            "data": [{
                    "level_1": "D",
                    "other_values": 3
                },
                {
                    "level_1": "D",
                    "other_values": 4
                }
            ]
        }]
    }
]

[{
        "ID": "A",
        "data": {
            "values": 1,
            "data": [{
                    "level_1": "C",
                    "other_values": 1
                },
                {
                    "level_1": "C",
                    "other_values": 2
                }
            ]
        }
    },
    {
        "ID": "B",
        "data": {
            "values": 2,
            "data": [{
                    "level_1": "D",
                    "other_values": 3
                },
                {
                    "level_1": "D",
                    "other_values": 4
                }
            ]
        }
    }
]

所需的toJSON输出：

[{
        "ID": "A",
        "data": [{
            "values": 1,
            "data": [{
                    "level_1": "C",
                    "other_values": 1
                },
                {
                    "level_1": "C",
                    "other_values": 2
                }
            ]
        }]
    },
    {
        "ID": "B",
        "data": [{
            "values": 2,
            "data": [{
                    "level_1": "D",
                    "other_values": 3
                },
                {
                    "level_1": "D",
                    "other_values": 4
                }
            ]
        }]
    }
]

[{
        "ID": "A",
        "data": {
            "values": 1,
            "data": [{
                    "level_1": "C",
                    "other_values": 1
                },
                {
                    "level_1": "C",
                    "other_values": 2
                }
            ]
        }
    },
    {
        "ID": "B",
        "data": {
            "values": 2,
            "data": [{
                    "level_1": "D",
                    "other_values": 3
                },
                {
                    "level_1": "D",
                    "other_values": 4
                }
            ]
        }
    }
]

---

据我所知，连接在一起的一组data.frames必须是一个

列表。我真的不明白你是怎么想象他们最终会合并成一个角色向量的。您能提供更多关于您希望从tibble中写出的JSON的信息吗？添加了一个JSON示例。老实说，输出是我在四处搜索解决方案时在随机幻灯片中看到的。也许我应该采取一种完全不同的方法？我不知道您想要的json输出是否会有所帮助，因为它们根本不相关。
jsonlite:：toJSON（df）
提供了有用的东西吗？这应该是一个更好的例子