在R语言中如何批量替换数据框所有列名中的指定字符？

你代码的报错来自lapply调用str_replace时的参数传递逻辑错误：
str_replace的参数顺序为str_replace(字符串, 匹配模式, 替换值)，你写的lapply(colnames, str_replace("-", "_"))会优先执行str_replace("-", "_")，此时仅传入了前两个参数，缺少替换值参数，直接触发报错。lapply并不会自动把迭代的列名字符串补到已部分传参的函数的参数空缺位。
另外你当前的写法即使修复参数问题，lapply返回的是列表格式，直接赋值给列名还需要额外转成字符向量，多了不必要的步骤。

1 修复你原有代码的写法 #

如果要沿用lapply+str_replace的逻辑，可以显式声明匿名函数指定参数位置：

colnames <- names(exampleData)
# 显式定义匿名函数指定入参
colnames <- lapply(colnames, function(x) str_replace(x, "-", "_"))
# 列表转字符向量后再赋值回数据集
names(exampleData) <- as.character(colnames)

2 更推荐的简洁写法 #

Tidyverse风格（适配你已加载的包） #

直接用dplyr::rename_with一步完成列名修改，不需要单独提取列名再回写，同时用str_replace_all避免单个列名存在多个连字符时替换不全的问题：

exampleData <- exampleData %>%
  rename_with(~str_replace_all(.x, "-", "_"))

基础R写法（无需加载任何包，大样本效率更高） #

gsub本身是向量化操作，不需要套循环，直接对整个列名字符向量执行替换：

names(exampleData) <- gsub("-", "_", names(exampleData))

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