创建 R 函数

Question

你能帮我把所有这些代码转换成一个函数吗？我需要避免为每个数据帧编写代码

data <- merge(x = data_2021, y = corr_df, by = "XCode", all.x = TRUE)

#Drop column
data = subset(data, select = -c(XCode))

# Rename columns
names(data)[names(data) == "Zvar"] <- "XCode"

# Reorder column by name
col_order <- c("XCode", "x2" , "x3")
data <- data[,col_order]

Answer 1

可能是这样的：

fn <- function(x,y) {
  data <- merge(x = x, y = y, by = "XCode", all.x = TRUE)

  ## Drop column
  data = subset(data, select = -c(XCode))

  ## Rename columns
  names(data)[names(data) == "Zvar"] <- "XCode"

  ## Reorder column by name
  col_order <- c("XCode", "x2" , "x3")
  data <- data[,col_order]
  data
}

data <- fn(data_2021, corr_df)