有一个好玩的说法：耳机听核电，又劲又清澈。那么，我国目前有多少电力来自核电？我们来看看。

顺便，记录一种展示数据组成的方法 voronoi treemap 及其 R 语言实现方式。

2 数据

全国核电运行情况（2024 年 1 到 3 月），此数据来源见脚注1。

# Jan. 2024 ~ Mar. 2024
nuclearPower <- data.frame(
  Type = c("火力", "水力", "风力", "核能", "太阳能及其他"),
  Size = c(71.64, 9.39, 10.81, 4.56, 3.50)
)
nuclearPower

          Type  Size
1         火力 71.64
2         水力  9.39
3         风力 10.81
4         核能  4.56
5 太阳能及其他  3.50

3 加载包

# remotes::install_github("uRosConf/voronoiTreemap")
library(voronoiTreemap)
library(RColorBrewer)

4 设置颜色

i <- as.integer(factor(nuclearPower$Type))
colorSet2 <- RColorBrewer::brewer.pal(length(i), "Set2")
nuclearPower$Color <- colorSet2

5 voronoi treemap

nuclearPower |> 
  vt_input_from_df(
    scaleToPerc = TRUE,
    # hierachyVar0 = ..., # 可略过
    hierachyVar1 = "Type",
    hierachyVar2 = "Type",
    colorVar = "Color",
    labelVar = "Type",
    weightVar = "Size"
  ) |> 
  vt_export_json() |> 
  vt_d3(
    seed = 5,
    footer = "来源：中国核能行业协会",
    color_circle = "#ffffff00",
    size_border = "2px",
    size_border_hover = "4px"
  )

脚注

1. https://nnsa.mee.gov.cn/ywdt/hyzx/202405/t20240509_1072722.html↩︎