R 在循環中將列名稱重命名為 CSV 名稱？

Question

我有大約 5,000 個 CVS，每個 CSV 都被命名為日期； 20080101.csv、20080102.csv、20080103.csv 等。我試圖遍歷它們並用日期替換每個列名。 我一輩子都想不出如何從循環中獲取 CSV 名稱來更改列名稱。 我有一種感覺，這是一件簡單的事情。 以下是我嘗試的代碼。 謝謝你的幫助

setwd("C:/Desktop/Rain_totals")
fs <- list.files(pattern = ".csv")
for (f in fs) {
  df <- read.csv(f)
  colnames(df)[colnames(df)=="MEAN"] <- df
  write.csv(df, gsub('.csv', '_formatted.csv', f))
}

Answer 1

您可以使用 package stringR

str_remove(string = "msr.csv", pattern = ".csv")

"msr"