这里我们先分别创建5个Excel、Word和PPT文档作为示例数据，然后实现将这三种类型的文件分别放在xlsx、docx和pptx文件夹内。

# 创建data文件夹
fs::dir_create("data")

# data文件夹下创建示例文件
filetype = c("xlsx", "docx", "pptx")
x = outer(1:5, filetype, FUN = paste, sep = ".")
filelist = paste0("./data/", x)
fs::file_create(filelist)

# data文件夹下每类文件创建一个文件夹
dirlist = paste0("./data/", filetype)
fs::dir_create(dirlist)

# 移动文件到相应的文件夹
for (i in filetype) {
  fs::dir_ls("./data", glob = paste0("*.", i)) |> 
    fs::file_move(paste0("./data/", i))
}