2019至2025年湖北省社保缴费基数标准

#library(readxl)
library(data.table)
library(echarts4r)

# 数据比较少，文件不上传，直接放在文章末尾
# data <- read_xlsx('C:/Users/yuanfan/Desktop/社保缴费基数.xlsx', sheet = 2)
setDT(data)

data[`年份` >= 2019, ] |>
  group_by(`类别`) |>
  e_charts(`年份`) |>
  e_line(`月标准`) |>
  e_color(c('#274637FF', '#58A449FF', '#CEC917FF')) |>
  e_x_axis(type = 'category') |>
  e_title(text = '2017至2025年度湖北省社保缴费基数月标准（元）', left = 'center') |>
  e_legend(top = '7%') |>
  e_tooltip(trigger = 'axis') |>
  e_labels(position = 'top',overflow = 'truncate')|>
  e_graphic_g(elements = list(
    list(
      type = "rect",
      left = "70%",
      top = "60%",
      z = 100,
      shape = list(width = 240, height = 120),
      style = list(
        fill = "#fff",
        stroke = "#555",
        lineWidth = 1,
        shadowBlur = 8,
        shadowOffsetX = 3,
        shadowOffsetY = 3,
        shadowColor = "rgba(0,0,0,0.2)"
      )
    ),
    list(
      type = "text",
      left = "70%",
      top = "60%",
      z = 101,
      style = list(
        text = "第1档：武汉市和省直。\n第2档：黄石市、十堰市、襄阳市、宜昌市、荆门市、随州市、恩施州。\n第3档：荆州市、鄂州市、孝感市、黄冈市、咸宁市、仙桃市、天门市、潜江市、神农架林区。",
        fill = "#333",
        width = 240,
        height = 120,
        overflow = "break",
        font = "14px Microsoft YaHei",
        textAlign = "left",
        verticalAlign = "top",
        lineHeight = 20
      )
    )
  ))