在导出到xlsx时，使用R中的属性保存元数据

我有一个数据框，看起来像：

df <- tribble(~date,      ~value, ~analyte, ~quantified,
              01-01-2020, 8.6,    Fe,       TRUE,
              02-06-2020, 10.4,   Ni,       TRUE,
              01-01-2020, 2,      Ni,       FALSE)

df%
dplyr:：选择（-quantification）%>%
透视图（id\U cols=c（日期），名称\U from=分析物，值\U from=值）->df
dfWorkbook我们需要做的就是使用
which（…，arr.ind=T）
来获取单元格索引，并将其添加到行组件中，以说明列名所做的移动：

#将量化的VAL与实际值保持在相同的结构中
df%>%
dplyr:：选择（-value）%%>%
透视图（id\U cols=c（日期），名称\U from=分析物，值\U from=量化）->df.atts
df%>%
dplyr:：选择（-量化）%>%
透视图（id\U cols=c（日期），名称\U from=分析物，值\U from=值）->df
DF工作簿
library(openxlsx)
df %>%
  dplyr::select(-quantification) %>%
  pivot_wider(id_cols = c(date), names_from = analyte, values_from = value) -> df
dfWorkbook <- createWorkbook()
addWorksheet(dfWorkbook, "test")
writeData(dfWorkbook, sheet = "test", x = df)