创建自定义函数以更改 RStudio 中数据框的行和列名称；不会按预期运行

Question

这里是初学者 R 用户。我正在练习制作自己的函数，并且我想制作一些可以减少为我保存的数据框重命名行/列的时间的东西。以下是我想出的：

data.change.rowcolnames <- function(datainenv, namerows, namecols) {
    row.names(datainenv) <- namerows 
    colnames(datainenv) <- namecols
}

基本上，“datainenv”是命名的数据框，“namerows”/“namecols”是包含所有我想要的行/列名称的向量。

这是我尝试使用上述函数运行的代码：

data.change.rowcolnames(inflam_01, inflam_01_pats, inflam_01_days)

当我运行它时，它不会更改行/列名称。但是，当我自己运行 row.names() 和 colnames() 函数时，它们会运行。

这是我必须设置的所有内容，只是患者炎症的一些样本数据（没有违反 HIPAA！都是假的......）

inflam_01 <- read.csv("inflammation-01.csv", header = F) #can't attach file...but the dataframe was created correctly and I can see all the data.

使用我在网上找到的唯一 id 函数来帮助生成随机患者 ID：

   create_unique_ids <- function(n, seed_no = 2, char_len = 5){
  set.seed(seed_no)
  pool <- c(letters, LETTERS, 0:9) #sets the parameters for what the ID will contain
  
  res <- character(n) # pre-allocating vector is much faster than growing it
  for(i in seq(n)){
    this_res <- paste0(sample(pool, char_len, replace = TRUE), collapse = "")
    while(this_res %in% res){ # if there was a duplicate, redo
      this_res <- paste0(sample(pool, char_len, replace = TRUE), collapse = "")
    }
    res[i] <- this_res
  }
  res
}

使用该函数为以下向量生成 60 个 id：

inflam_01_pats <- c(create_unique_ids(60, 2, 10)) #used a function example for the "create_unique_ids";

为“日期名称”创建了一个带有数字 1-40 的向量

inflam_01_days <- c(1:40)

将它们加在一起，它似乎可以工作，因为它没有显示错误消息...但默认的列/行名称仍在 inflam_01 数据框中...

Answer 1

要么：

inflam_01_named <<- data.change.rowcolnames(inflam_01, inflam_01_pats, inflam_01_days)

或

inflam_01_named <- data.change.rowcolnames(inflam_01, inflam_01_pats, inflam_01_days)

工作。感谢您的帮助！