我为了好玩而尝试了一下。还有很多事情可以做。我同意这不是可视化比例的好方法，但如果它吸引了您的观众......

用于确定适当高度的公式取自 Wikipedia。特别是我们需要公式

a/A = (theta - sin(theta))/(2*pi)
h = 1-cos(theta/2)

其中 a 是线段的面积； A 是圆的整个面积； theta 是定义线段的弧所描述的角度（图片参见维基百科）； h 是线段的高度。

寻找高度的机器。

afun <- function(x) (x-sin(x))/(2*pi)
## curve(afun,from=0,to = 2*pi)
find_a <- function(a) {
    uniroot(
        function(x) afun(x) -a,interval=c(0,2*pi))$root
}
find_h <- function(a) {
    1- cos(find_a(a)/2)
}
vfind_h <- Vectorize(find_h)
## find_a(0.5)
## find_h(0.5)
## curve(vfind_h(x),from = 0,to= 1)

设置一个圈子

dd <- data.frame(x=0,y=0,r=1)
library(ggforce)
library(ggplot2); theme_set(theme_void())
gg0 <- ggplot(dd) + geom_circle(aes(x0=x,y0=y,r=r)) + coord_fixed()

完成

props <- c(0.2,0.5,0.3)  ## proportions
n <- 100                 ## number of points to scatter
cprop <- cumsum(props)[-length(props)]
h <- vfind_h(cprop)
set.seed(101)
r <- runif(n)
th <- runif(n,2 * pi)
  
dd <- 
 data.frame(x = sqrt(r) * cos(th),y = sqrt(r) * sin(th))

dd2 <- data.frame(x=r*cos(2*pi*th),y = r*sin(2*pi*th))
dd2$g <- cut(dd2$y,c(1,1-h,-1))
gg0 + geom_point(data=dd2,aes(x,y,colour = g),size=3)

有很多调整可以使这更好（类别的有意义的名称；反转轴顺序以匹配绘图；可能添加分隔部分的线段，或（更多工作）多边形，以便您可以对部分进行着色。

你应该绝对检查这里是否有错误——例如有些地方我可能使用了一组值，我应该使用它们的第一个差异，反之亦然（值与累积总和）。但这应该会让你开始。