更改列表中每个数据框的名称

我创建了一个包含 36 个 excel 数据框的列表（称为 raw.lst）。每个数据帧名称的末尾都有 .xlsx，例如：

[1] "18_05_01.xlsx" "18_05_02.xlsx" "18_05_03.xlsx" "18_05_04.xlsx" "18_05_05.xlsx"

我想从列表中的每个 DF 中删除 .xlsx，例如：

[1] "18_05_01" "18_05_02" "18_05_03" "18_05_04" "18_05_05"

我尝试了以下方法但没有成功：

map(raw.lst,~  .x %>% 
                  rename_all(~ gsub(pattern = ".xlsx",replacement = "")))

和

lapply(raw.lst,function(x) setNames(x,sub("^[^.xlsx]*_","",names(x))))

和

lapply(raw.lst,sub,pattern = "[.xlsx]",replacement = "")

任何帮助将不胜感激。