如何将R自定义函数处理结果存入指定名称的数据框

我来帮你解决这个问题，同时给你一些代码优化的建议！

你当前的函数里，直接用newObject<<- data.frame(data)没法实现预期效果——当你调用cleanGios("-PM2.5-1g", df, pm25_2016)时，R会把pm25_2016当成一个变量（未定义的话会直接报错），而非对象名称的字符串。

正确的思路是：

• 将新对象名称以字符串形式传入函数（比如"pm25_2016"）
• 使用assign()函数在全局环境中创建指定名称的对象

结合tidyverse的现代语法（用across替代已软弃用的mutate_at），同时完成所有需求，优化后的函数如下：

cleanGios <- function(pollutantCode, data) {
  # 推荐在函数外加载包，或用::调用避免依赖问题
  library(tidyverse)
  
  data_cleaned <- data %>%
    # 一步完成逗号转点+转数值型，更高效
    mutate(across(contains("-"), ~as.numeric(str_replace(., ",", ".")))) %>%
    # 清洗列名：删除指定后缀，同时把空格替换为点
    rename_with(~str_remove(., pollutantCode) %>% str_replace_all(" ", "."))
  
  # 返回清洗后的tbl_df对象（符合你的需求）
  return(tibble(data_cleaned))
}

方式1：推荐——函数返回结果，自行赋值（更符合R的函数设计） #

这种方式不需要传入对象名，避免全局赋值的副作用：

# 调用函数并赋值给指定对象
pm25_2016 <- cleanGios("-PM2.5-1g", df)

方式2：按你的需求——传入对象名称字符串创建全局对象 #

如果你坚持要在函数内部创建指定名称的对象，可以修改函数加入assign：

cleanGios <- function(pollutantCode, data, newObject) {
  library(tidyverse)
  
  data_cleaned <- data %>%
    mutate(across(contains("-"), ~as.numeric(str_replace(., ",", ".")))) %>%
    rename_with(~str_remove(., pollutantCode) %>% str_replace_all(" ", ".")) %>%
    tibble()
  
  # 在全局环境创建指定名称的对象
  assign(newObject, data_cleaned, envir = .GlobalEnv)
}

# 调用时传入对象名称字符串
cleanGios("-PM2.5-1g", df, "pm25_2016")

用你提供的抽样数据运行后，pm25_2016的结构和你期望的完全一致：

> str(pm25_2016)
tibble [3 × 4] (S3: tbl_df/tbl/data.frame)
 $ Czas.pomiaru : POSIXct[1:3], format: "2016-05-10 11:00:00" "2016-01-06 10:00:00" "2016-10-04 12:00:00"
 $ MpKrakBujaka : num [1:3] 11.6 101.6 11.3
 $ SkMalo11List : num [1:3] 4.32 42.4 7.65
 $ DsJelGorOgin : num [1:3] 7.99 56.18 6.2

1. 避免在函数内加载包：如果其他用户运行你的函数，可能会意外加载包。更好的方式是用包名+::调用函数，比如dplyr::mutate、stringr::str_replace。
2. 尽量不用全局赋值：全局赋值（<<-或assign到全局环境）容易导致变量冲突，推荐让函数返回结果，由用户自行赋值，代码更清晰可控。
3. 保留tbl_df类型：你原本的目标是生成tbl_df对象，不需要转成data.frame，用tibble()包裹或直接返回即可。

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