R语言批量命名excel

各位help me！(ㄒoㄒ)(ㄒoㄒ)
excel想命名以下名字
names <-c( 'a' , 'b' , 'c' )
用openxlsx输出excel
openxlsx::write.xlsx(x=data,'这里想依次命名为a，b，c')
怎么能实现呢

用for循环

for (i in names){
openxlsx::write.xlsx(x=data,paste(i,".xlsx"))
}