如何创建一个循环访问R中的列索引号的函数？

# 创建一个循环访问列索引号的函数
access_columns <- function(data) {
  for (i in 1:ncol(data)) {
    column <- data[, i]
    # 在这里可以对列进行操作，例如打印列名或进行其他处理
    print(names(data)[i])
    print(column)
  }
}

# 示例数据
data <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6), C = c(7, 8, 9))

# 调用函数
access_columns(data)