从r导出多个工作簿

Question

使用以下图像展示我要做的事情。因此，基本上，我有2个工作簿，一个位置有2张。我想阅读R＆amp;执行两个操作（将0更改为Na＆amp;获取每列的平均值），然后以相同的方式将它们导出到同一位置（2个工作簿＆amp; 2工作表）。

操作的详细信息邮政导入工作簿＆amp;工作表为 a）在所有床单中将所有0转换为na＆amp; b）然后在每列末尾创建一个平均行。 （上图中突出显示的黄色）

在输出中突出显示的上面图像 yellow 是每列的平均值（帖子转换为0到Na）< /em>

我尝试在下面创建代码，但是问题是我不确定如何按照我导入的顺序将多个工作表导出回同一工作簿。

library(tidyverse)
library(readxl)

path <-  "C:/Users/tme/Desktop/"
file_name <- list.files(pattern = "*.xlsx")

for (i in seq_along(file_name)){
  sheet_nm <- excel_sheets(file_name[i])
  for (j in seq_along(sheet_nm)){
    assign(x = paste0(file_name[i],"_",sheet_nm[j]), value = read_xlsx(path = file_name[i], sheet = sheet_nm[j],col_names=FALSE), envir = .GlobalEnv)
  }
}