初学者使用管道

编程问答 2022-04-24

问题描述

我是初学者，我正在尝试找到最有效的方法来更改我将要创建的许多 CSV 文件的第一列的名称。创建 CSV 文件后，我将它们加载到 R 中，如下所示：

data <- read.csv('filename.csv')

我使用了 names() 函数来更改单个文件的名称：

names(data)[1] <- 'Y'

但是，我想找到最有效的方法将这个名称更改组合/管道到 read.csv 以便在打开每个文件时应用相同的名称更改。我试图编写一个“简单”的函数来做到这一点：

addName <- function(data) {
  names(data)[1] <- 'Y'
  data
}

但是，我还没有完全理解编写函数的语法，我无法让它发挥作用。

解决方法

注意

如果您希望原始 addName 函数像这样“改变”现有对象

x <- data.frame(Column_1 = c(1,2,3),Column_2 = c("a","b","c"))

# Try (unsuccessfully) to change title of "Column_1" to "Y" in x.
addName(x)

# Print x.
x

请注意，R 通过值而不是通过引用传递，因此 x 本身将保持不变：

  Column_1 Column_2
1        1        a
2        2        b
3        3        c

任何“变异”都可以通过用函数的返回值覆盖 x 来实现

x <- addName(x)

# Print x.
x

在这种情况下，x 本身会明显改变：

  Y Column_2
1 1        a
2 2        b
3 3        c

答案

无论如何，这是一个紧凑地结合了管道（magrittr 包中的 %>%）和自定义函数的解决方案。 请注意，如果没有我为清楚起见而添加的换行符和注释，则可以将其压缩为仅几行代码。

# The dplyr package helps with easy renaming,and it includes the magrittr pipe.
library(dplyr)

# ...

filenames <- c("filename1.csv","filename2.csv","filename3.csv")

# A function to take a CSV filename and give back a renamed dataset taken from that file.
addName <- function(filename) {
  return(# Read in the named file as a data.frame.
         read.csv(file = filename) %>%
           # Take the resulting data.frame,and rename its first column as "Y";
           # quotes are optional,unless the name contains spaces: "My Column"
           # or `My Column` are needed then.
           dplyr::rename(Y = 1))
}

# Get a list of all the renamed datasets,as taken by addName() from each of the filenames.
all_files <- sapply(filenames,FUN = addName,# Keep the list structure,in which each element is a
                    # data.frame.
                    simplify = FALSE,# Name each list element by its filename,to help keep track.
                    USE.NAMES = TRUE)

事实上，您可以轻松地rename 任何您想要的列，一举完成：

dplyr::rename(Y = 1,'X' = 2,"Z" = 3,"Column 4" = 4,`Column 5` = 5)
,

这将读取文件名向量，将每个文件的第一列的名称更改为“Y”并将所有文件存储在列表中。

filenames <- c("filename1.csv","filename2.csv")
addName <- function(filename) {
  data <- read.csv(filename)
  names(data)[1] <- 'Y'
  data
}
files <- list()
for (i in 1:length(filenames)) {
   files[[i]] <- addName(filenames[i])
}
columnnamecsvcsvfunctionfunctionrr