如何为r中的每三列添加相同的列名？

# 创建一个包含列名的向量
column_names <- c("Column1", "Column2", "Column3")

# 获取r的列数
num_columns <- ncol(r)

# 计算需要添加的列名的个数
num_new_columns <- num_columns %/% 3

# 生成新的列名向量
new_column_names <- rep(column_names, num_new_columns)

# 将新的列名添加到r中
colnames(r) <- c(colnames(r), new_column_names)