想在世界地图上绘制饼图，其中饼图大小根据菌株号和饼图颜色根据 ST 号

Question

你好，我一直在尝试绘制一个类似于这个的图：https://www.frontiersin.org/files/Articles/795173/fmicb-12-795173-HTML/image m/fmicb-12- 795173-g001.jpg，但我一直没有成功，因为我缺乏必要的编程知识。如果您对此有任何了解，请告诉我。这将对我有很大的帮助。

我在这里看图()

``图书馆（散点图） 数据<-read.csv("metadata_coords.csv") long <- data$longitude lat <- data$latitude d <- data.frame(long=long, lat=lat) d <- with(d, d[abs(long) < 150 & abs(lat) < 70,]) n <- nrow(d) n <- nrow(d) d$region <- factor(1:n) d$A <- abs(rnorm(n, sd=1)) d$B <- abs(rnorm(n, sd=2)) d$C <- abs(rnorm(n, sd=3)) d$D <- abs(rnorm(n, sd=4)) d[1, 4:7] <- d[1, 4:7] * 3 head(d)

ggplot() + geom_scatterpie(aes(x=long, y=lat, group=region), 数据=d, cols=LETTERS[1:4]) + coord_equal()

d$半径<- 6 * abs(rnorm(n)) p <- ggplot() + geom_scatterpie(aes(x=long, y=lat, group=region, r=radius), data=d, cols=LETTERS[1:4], color=NA) + coord_equal() p + geom_scatterpie_legend(d$radius, x=-140, y=-70)

世界<- map_data('world') p <- ggplot(world, aes(long, lat)) + geom_map(map=world, aes(map_id=region), fill=NA, color="black") + coord_quickmap() p + geom_scatterpie(aes(x=long, y=lat, group=region, r=radius), data=d, cols=LETTERS[1:4], color=NA, alpha=.8) + geom_scatterpie_legend(d$radius, x=-160, y=-55)

`

`

我真的卡在了这部分，因为尽管尝试了一个月，我仍然不知道如何在我的数据集上使用它。如果有人可以提供帮助，请提供帮助。