要按组切割Tibble并将其作为列合并起来，可以使用tidyverse包中的函数。下面是一个示例代码：

library(tidyverse)

# 创建一个示例的Tibble
df <- tibble(
  group = rep(1:2, each = 4),
  value = 1:8
)

# 按组切割Tibble，并将其作为列合并起来
split_df <- df %>%
  group_split(group) %>%
  map_dfc(~ .x)

# 输出结果
print(split_df)

这段代码的输出结果如下：

# A tibble: 4 x 4
  group value group value
     
1     1     1     2     5
2     1     2     2     6
3     1     3     2     7
4     1     4     2     8

在这个示例中，我们创建了一个包含两个组的Tibble。然后，使用group_split()函数按组切割Tibble，并使用map_dfc()函数将切割的结果作为列合并起来。最后，我们打印出合并后的Tibble。

请注意，这里使用的是tidyverse包中的函数，因此在运行代码前需要先安装和加载tidyverse包。