如何在每个小标题中保留组列并重命名它们？

Question

我的追随者list-column被称为my$data：

library(tidyverse)

dataset<-data.frame(matrix(rnorm(6*30,1000,100),ncol=6))
cluster<-kmeans(dataset,centers=3)
dataset$kmeans<-as.factor(cluster[['cluster']])

my<-dataset%>%
  group_by(kmeans)%>%
  nest()

我有两个疑问：

• 如何将每个kmeans中的tibble列保留在一个列表列中？
• 如何将tibble重命名为列表列（例如将 6个变量分别命名为data1，data2和data3）？

使用base::split函数，可以保留组列。示例：

mylist<-split(dataset,dataset$kmeans)

和base::names函数：

names(mylist)<-paste0('data',seq_along(mylist))

Answer 1

不确定是否可以在false中包含分组的列，但是，另一种方法是创建该列的副本，然后使用nest。

nest