如何使用R的split函数对数据帧的连续列进行分组

这是我的大数据帧的一个简短版本

>k
a b c d e f
1 3 4 5 7 8
2 1 7 9 0 3
3 2 2 5 6 9

我想以某种方式进行拆分，这样我就可以像这样分别创建a、b和c以及d、e和f的数据帧

>k
$`1`
a b c 
1 3 4 
2 1 7 
3 2 2

$`2`
d e f
5 7 8
9 0 3
5 6 9

我试过这样的东西-

range = seq(3,6,3)
k<-split(k, cut(colnames(k), range))

range=seq（3,6,3）
像这样的事

group <- rep(1:2, each=3)

lapply(unique(group), FUN=function(n) k[group==n])
# [[1]]
#   a b c
# 1 1 3 4
# 2 2 1 7
# 3 3 2 2
# 
# [[2]]
#   d e f
# 1 5 7 8
# 2 9 0 3
# 3 5 6 9

组