下载你的文件要论坛币，直接写了下面的例子
library(stringr)

demo <- c('data/data0605/dic_keywords.xlsx',
'data/data06/产业标引0605/dic_keywords.xlsx',
'data/data0605/产业标引0605/new2021-05-08-19627.xlsx',
'data/data0605/产业标引0605/new超高清显示数据集0601.xlsx',
'data/data0605/产业标引0605/new附加标识数据集-2021-05-25.xlsx',
'data/data0605/产业标引0605/new区块链数据集-2021-05-25.xlsx',
'data/data0605/产业标引测试/new全息显示数据集0601.xlsx',
'data/data0605/产业标引/产业标引关键词0604.xlsx')

str_extract(demo,'[^/]+.xlsx')

感谢，已解决我的问题！