用R语言制作圆形的Voronoi图

Question

我有一个数据框，长这样，我想用它创建一个圆形 Voronoi 图。

df <- data.frame(country = c("Ukraine", "Russia", "Argentina", "China", "Romania", "Other"),
                 prod = c(11.0, 10.6, 3.1, 2.4, 2.1, 15.3))

df
#>     country prod
#> 1   Ukraine 11.0
#> 2    Russia 10.6
#> 3 Argentina  3.1
#> 4     China  2.4
#> 5   Romania  2.1
#> 6     Other 15.3

^{本示例由 reprex package（v2.0.1）于2022年04月08日创建。}

library(ggplot2)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library("ggvoronoi")

df <- data.frame(country = c("Ukraine", "Russia", "Argentina", "China", "Romania", "Other"),
                 prod = c(11.0, 10.6, 3.1, 2.4, 2.1, 15.3))

ggplot(df, aes(country, prod)) +
  geom_voronoi(aes(fill=prod)) +
  theme_minimal()

^{此代码是由reprex package (v2.0.1)于2022-04-08创建的}

请问有什么方法可以制作圆形的图案吗？ 我找到了这个github链接，但它缺少我需要将多边形转换为圆形voronoi所需的数据 https://github.com/nrennie/30DayChartChallenge/blob/main/2022/scripts/04_flora.R

- LDT

Answer 1

这张链接的图片是一个沃罗诺伊树图。有一个名为voronoiTreemap的R包，您可以使用它来创建自己的沃罗诺伊树图:

library(voronoiTreemap)

vor <- data.frame(h1 = 'World', 
                  h2 = c('Europe', 'Europe', 'Americas', 'Asia',
                         'Europe', 'Other'),
                  h3 = df$country,
                  color = hcl.colors(nrow(df), palette = 'TealRose'),
                  weight = df$prod,
                  codes = df$country)

vt <- vt_input_from_df(vor)

vt_d3(vt_export_json(vt))

- Allan Cameron