如何在函数中包含帮助器函数，以便使用前缀从data.frame查找和更改数据？还需要计数和使用循环

main_function <- function(df, prefix) {
  # 调用帮助器函数进行数据查找和更改操作
  modified_df <- helper_function(df, prefix)
  
  # 返回修改后的data.frame
  return(modified_df)
}

helper_function <- function(df, prefix) {
  # 初始化计数器
  count <- 0
  
  # 使用循环遍历data.frame的列
  for (col in colnames(df)) {
    # 检查列名是否以指定前缀开头
    if (startsWith(col, prefix)) {
      # 对符合条件的列进行数据更改操作
      # 这里只是示例，可以根据具体需求进行相应的数据处理
      df[[col]] <- df[[col]] + 1
      
      # 计数器加1
      count <- count + 1
    }
  }
  
  # 打印符合条件的列数
  print(paste("符合条件的列数：", count))
  
  # 返回修改后的data.frame
  return(df)
}

# 创建一个示例data.frame
df <- data.frame(
  prefix_A_col1 = c(1, 2, 3),
  prefix_A_col2 = c(4, 5, 6),
  prefix_B_col1 = c(7, 8, 9),
  prefix_B_col2 = c(10, 11, 12)
)

# 调用主函数进行数据查找和更改操作
modified_df <- main_function(df, "prefix_A")

# 打印修改后的data.frame
print(modified_df)