你能幫我把所有這些代碼轉換成一個函式嗎？我需要避免為每個資料幀撰寫代碼
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]
uj5u.com熱心網友回復：
也許是這樣的：
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)
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/449390.html