R语言如何一次性反转dataframe行顺序及批量删除多列

1. 批量反转行顺序（日期升序调整） #

你之前逐列反转的操作效率很低，直接对整个数据框按行索引倒序取值即可，所有列会同步完成反转，完全不需要逐列操作：

# 仅需一行即可完成全表行反转，替代原有的逐列赋值代码
BTC <- BTC[nrow(BTC):1, ]

你之前用到的rev()函数作用于数据框时默认反转列的顺序，不符合需求，用行索引倒序的方式是最直接的解决方案。

2. 批量删除不需要的列 #

更推荐你直接指定需要保留的列，操作更简洁（需要保留的列远少于要删除的列时效率更高）：

# 直接筛选需要保留的列，自动删除其余列
keep_cols <- c("date", "open", "close", "Volume.BTC", "tradecount")
BTC <- BTC[, keep_cols]

如果你需要主动删除指定列，也可以批量操作：

# 定义要删除的列名列表，批量赋值为NULL
del_cols <- c("high", "low", "unix", "symbol", "Volume.USDT", "tradecount")
BTC[, del_cols] <- list(NULL)

3. 多资产批量处理封装 #

针对你需要处理多个资产的场景，把上述逻辑封装为通用函数，每次仅需传入文件路径即可得到处理完成的数据：

process_crypto_data <- function(file_path) {
  df <- read.csv(file_path, skip = 1)
  # 行反转实现日期升序
  df <- df[nrow(df):1, ]
  # 格式化日期列
  df$date <- as.Date(df$date)
  # 保留目标列
  keep_cols <- c("date", "open", "close", "Volume.BTC", "tradecount")
  df <- df[, keep_cols]
  return(df)
}

# 多资产调用示例
BTC <- process_crypto_data("Binance_BTCUSDT_d.csv")
ETH <- process_crypto_data("Binance_ETHUSDT_d.csv")
# 其余资产按同样格式添加调用即可

注意你原代码中BTC_tradecount <- BTC$tradecount[n1:1]是把该列数据单独存为了全局变量，如果你需要把该列保留在数据框中，直接把tradecount加入keep_cols列表即可。

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