首先，你的函数思路完全没问题，问题出在函数的返回值逻辑上。在R中，函数默认返回最后一行代码的执行结果，而你写的names(data)[1] <- 'Y'是一个赋值操作，它返回的是被赋予的值（也就是'Y'），而不是修改后的整个数据集。只需要调整函数，确保最后返回修改后的data即可：

# 修正后的自定义函数
rename_first_col <- function(data) {
  names(data)[1] <- 'Y'
  data  # 明确返回修改后的数据集，这行是关键
}

现在你就可以用管道（R 4.1及以上版本支持原生|>管道，也可以用magrittr包的%>%）把read.csv和这个函数串联起来，实现读取文件时自动修改首列列名：

# 使用原生管道 |> 实现一站式操作
data <- read.csv('filename.csv') |> rename_first_col()

# 如果习惯用 magrittr 的 %>%，需要先加载包
# library(magrittr)
# data <- read.csv('filename.csv') %>% rename_first_col()

更直观的替代方案：用dplyr的rename函数 #

如果你正在接触tidyverse工具集，dplyr包的rename函数会让这个操作更简洁易懂，甚至不需要自己写函数：

library(dplyr)

data <- read.csv('filename.csv') |> 
  rename(Y = 1)  # 直接指定"把第1列重命名为Y"

这里rename(Y = 1)的语法非常直观，适合新手快速理解和复用。

另一种思路：读取时直接指定列名 #

如果你不想依赖自定义函数或额外包，也可以在read.csv阶段直接完成列名修改：

# 先读取原文件的列名（只读1行即可）
original_names <- names(read.csv('filename.csv', nrows = 1))
# 修改首列的名字
original_names[1] <- 'Y'
# 用修改后的列名读取完整数据
data <- read.csv('filename.csv', col.names = original_names)

这种方法不需要管道，适合偏好原生R基础功能的场景。

内容的提问来源于stack exchange，提问作者Dodo