In YuanchenZhu2020/antgreens: Automatic Generation of Vegetable Report

\mainmatter

蔬菜中农药残留调查工作概况

工作的组织和实施

监测项目：农业农村部农产品质量安全例行监测

管理单位：农业农村部农产品质量安全监管司

组织实施单位：农业农村部农产品质量标准研究中心

牵头单位：农业农村部蔬菜品质监督检验测试中心（北京）

详情见下表：

(ref:included-departments) 蔬菜中农药残留风险监测工作参与单位

调查地区

# calculate sample size of each province at each year and total number in 5 years
provinces_sample_size <- treated_data %>% 
  group_by(year, province) %>% 
  summarise(sample_size = n()) %>% 
  pivot_wider(names_from = year, names_prefix = "year_", values_from = sample_size) %>% 
  left_join(provinces, by = c("province" = "province_cn")) %>% 
  select(province, province_en, starts_with("year")) %>% 
  rowwise() %>% 
  mutate(total = sum(c_across(starts_with("year_"))))
provinces_sample_size[["province"]] <- factor(provinces_sample_size[["province"]])

r year_range[1]-r year_range[2] 年共抽取样本 r nrow(treated_data) 例。

(ref:area-sample-size) 检测地区及其抽样数量

order_colname <- "total"

sp_dable(
  provinces_sample_size,
  ref_text = "(ref:area-sample-size)",
  detect_colnames = FALSE,
  colnames = c("省份", "英文名", "2016", "2017", "2018", "2019", "2020", "总计"),
  order = list(list(order_colname, "desc"))
)

蔬菜品种及其分类

products <- products %>% 
  rownames_to_column(var = "id_") %>%
  select(id_, product_cn, product_en, category_cn, category_en)

(ref:variety-category) 蔬菜品种及其分类

vc_table_container <- htmltools::withTags(table(
  class = 'display',
  thead(
    tr(
      th(rowspan = 2, '序号'),
      th(colspan = 2, '品种'),
      th(colspan = 2, '类别')
    ),
    tr(
      lapply(rep(c('中文名称', '英文名称'), 2), th)
    )
  )
))

sp_dable(
  products,
  ref_text = "(ref:variety-category)",
  container = vc_table_container
)