从列x开始每隔n列交错数据帧？

Question

说我想从第2列开始从mtcars中提取每个第4个元素。我可以这样做：

cars_subdf <- mtcars[seq(2, ncol(mtcars), 4)]

我怎么能这样做呢？例如将cars_df col 1插入mtcars col 2，然后将cars_df的第2列插入四列，依此类推？我知道有交错和类似，但他们只是直接'拉链'，例如：

1a 1b 2a 2b

感谢。