在R中，可以使用下列代码将数据框按每n列进行子集化：

# 创建一个示例数据框
df <- data.frame(
  col1 = c(1, 2, 3, 4, 5),
  col2 = c("A", "B", "C", "D", "E"),
  col3 = c(6, 7, 8, 9, 10),
  col4 = c("F", "G", "H", "I", "J"),
  col5 = c(11, 12, 13, 14, 15),
  col6 = c("K", "L", "M", "N", "O")
)

# 按每n列对数据框进行子集化
n <- 2 # 设置每n列
subsets <- lapply(seq(1, ncol(df), n), function(i) {
  df[, i:min(i+n-1, ncol(df))]
})

# 输出子集化的数据框列表
print(subsets)

在上述代码中，首先创建了一个示例数据框df。然后，使用lapply()函数和seq()函数来迭代地对数据框进行子集化。seq(1, ncol(df), n)用于生成按每n列的索引序列，然后对每个索引序列应用一个自定义函数，该函数用于提取数据框的子集。最后，使用print()函数输出子集化的数据框列表。

上述代码的输出结果如下：

[[1]]
  col1 col2
1    1    A
2    2    B
3    3    C
4    4    D
5    5    E

[[2]]
  col3 col4
1    6    F
2    7    G
3    8    H
4    9    I
5   10    J

[[3]]
  col5 col6
1   11    K
2   12    L
3   13    M
4   14    N
5   15    O

输出结果是一个包含3个子集化的数据框的列表，每个子集都是按每2列进行提取的。