library(readxl)
library(data.table)
library(ggplot2)
library(DT)

# 2011至2024上半年
data <- read_xlsx('data/纪检监察统计数据.xlsx', sheet = 1)
setDT(data)

data[, ':='(value1 = round(`接收信访举报（万件次）`, 0))] |>
  ggplot(mapping = aes(x = `统计期`, y = value1)) +
  geom_bar(stat = 'identity') +
  theme_classic() +
  geom_text(aes(label = value1), vjust = -0.5) +
  scale_fill_discrete(guide = FALSE) +
  scale_x_continuous(breaks = data$统计期, labels = data$统计期) +
  labs(title = '2011年至2024上半年接收信访举报件数', y = '万件次') 

data[, ':='(
  value1 = round(`处置问题线索（万件）` / `接收信访举报（万件次）`, 2),
  value2 = round(`立案（万件）` / `接收信访举报（万件次）`, 2)
)] |>
  ggplot(mapping = aes(x = `统计期`)) +
  geom_line(mapping = aes(y = value1, color = '处置')) +
  geom_line(mapping = aes(y = value2, color = '立案')) +
  geom_text(aes(y = value1, label = value1), nudge_y = 0.02) +
  geom_text(aes(y = value2, label = value2), nudge_y = 0.02) +
  theme_classic() +
  ylim(c(0, 0.6)) +
  scale_x_continuous(breaks = data$统计期, labels = data$统计期) +
  scale_color_manual(values = c('处置' = 'blue', '立案' = 'red')) +
  labs(title = '2011年至2024上半年--处置/立案占接收信访举报的比例',
       y = '比例',
       color = '类别')

data[, ':='(value1 = round(`立案（万件）`, 0),
            value2 = round(`处分（万人）`, 0))] |>
  ggplot(mapping = aes(x = `统计期`)) +
  geom_col(
    mapping = aes(y = value1, fill = '立案（万件）'),
    just = -0.1,
    width = 0.3) +
  geom_col(
    mapping = aes(y = value2, fill = '处分（万人）'),
    just = 1.1,
    width = 0.3) +
  geom_text(aes(y = value1, label = value1),
            nudge_y = 1.5,
            nudge_x = 0.25) +
  geom_text(aes(y = value2, label = value2),
            nudge_y = 1.5,
            nudge_x = -0.25) +
  theme_classic() +
  scale_x_continuous(breaks = data$统计期, labels = data$统计期) +
  labs(title = '2011年至2024上半年--立案件数与处分人数', 
       y = '万（件）人', fill = '类别') 

# 为了缩减代码数量，将表格中填充圆形图案的部分迁移出来
format_add <- function(...) {
  formatStyle(
    ...,
    # 'display' = 'flex', # 四个圆会竖向排列在一个单元格
    # 'display' = 'inline', # 四个圆会横向排列在一个单元格
    # 'display' = 'table-row', # 竖向的四个圆变成竖向的四个格子
    'display' = 'table-cell', # 四个圆分在四列
    'align-items' = 'center',
    'justify-content' = 'center',
    'width' = '1.875rem',
    'height' = '1.875rem',
    'border' = '0.5px solid rgb(0,0,0,0.1)',
    'border-radius' = '50%',
    'color' = '#000',
    'font-size' = '1.25rem',
    'letter-spacing' = '-1px'
  )
}
  
datatable(data = data[, ':='(
  `第一种形态` = round(`第一种形态（万人次）` / `运用四种形态批评教育和处理（万人次）`, 2),
  `第二种形态` = round(`第二种形态（万人次）` / `运用四种形态批评教育和处理（万人次）`, 2),
  `第三种形态` = round(`第三种形态（万人次）` / `运用四种形态批评教育和处理（万人次）`, 2),
  `第四种形态` = round(`第四种形态（万人次）` / `运用四种形态批评教育和处理（万人次）`, 2)
)][`统计期` >= 2017, c('统计期', '运用四种形态批评教育和处理（万人次）', '第一种形态', '第二种形态', '第三种形态', '第四种形态')],
rownames = FALSE,
options = list(dom = 't')) |>
  formatStyle(
    columns = '运用四种形态批评教育和处理（万人次）',
    background = styleColorBar(c(0, data$`运用四种形态批评教育和处理（万人次）`), 'steelblue'),
    # 填充条形
    # 填充背景的尺寸，第一个值为宽度，第二个值为高度
    backgroundSize = '100% 90%',
    backgroundRepeat = 'no-repeat',
    color = 'white'
  ) |>
  format_add(columns = '第一种形态', backgroundColor = "#FF6347") |>
  format_add(columns = '第二种形态', backgroundColor = "#ff2700") |>
  format_add(columns = c('第三种形态', '第四种形态'),
              backgroundColor = "#B50A2AFF") |>
  formatPercentage(columns = c(3:6), digits = 0)