r - ggsubplot (ggplot2) 中的饼图

Question

另一个有趣的 ggplot2 挑战!我正在尝试创建一个 ggsubplot 调用，该调用在世界地图上提供饼图。困难的事情似乎是 ggplot2 中的饼图是带有极坐标的堆叠条形图，并且 coord_polar 的添加不仅影响子图几何，而且影响整个 map 本身。有谁知道如何仅将某个坐标方案应用于子图调用的一部分？这是我到目前为止所拥有的:

library(ggplot2)
library(maps)
library(mapproj)
#install.packages("devtools")
library(devtools)
# install ggsubplot from github repo, not currently on CRAN
install_github(username="garrettgman", repo="ggsubplot")

world = map_data("world")

loc_pie = structure(list(Region = structure(c(3L, 5L, 7L, 8L, 9L, 10L, 
11L, 12L, 13L, 15L, 16L, 2L, 14L, 2L, 4L, 5L, 6L, 7L, 9L, 10L
), .Label = c("", "ANT/SO", "ARC", "EPR/GAL", "GOM/CAR", "IND", 
"MAR", "MED", "N-ATL", "NE-ATL", "NE-PAC", "NW-ATL", "NW-PAC", 
"SE-ATL", "SE-PAC", "SW-ATL", "SW-PAC"), class = "factor"), Group3 = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L), .Label = c("Annelida", "Choanoflagellata", "Chordata", 
"Cnidaria", "Crustacea", "Echinodermata", "Foraminifera", "Mollusca", 
"Nematoda", "Other", "Platyhelminthes", "Porifera"), class = "factor"), 
ones = c(1, 1, 5, 1, 1, 1, 18, 3, 1, 4, 8, 1, 1, 2, 1, 1, 
6, 1, 2, 5), tot = c(5, 30, 11, 16, 28, 22, 51, 25, 78, 13, 
32, 57, 61, 57, 15, 30, 20, 11, 28, 22), div = c(0.2, 0.0333333333333333, 
0.454545454545455, 0.0625, 0.0357142857142857, 0.0454545454545455, 
0.352941176470588, 0.12, 0.0128205128205128, 0.307692307692308, 
0.25, 0.0175438596491228, 0.0163934426229508, 0.0350877192982456, 
0.0666666666666667, 0.0333333333333333, 0.3, 0.0909090909090909, 
0.0714285714285714, 0.227272727272727), lat = c(71.4493167, 
19.9897167, 23.5874333, 37.6802167, 55.13365, 36.6889333, 
35.9565333, 35.53935, 30.4266, -30.32195, -33.2038, -65.8756333, 
-17.12415, -65.8756333, 0.1135, 19.9897167, -14.5800667, 
23.5874333, 55.13365, 36.6889333), long = c(-1.0550667, -81.3430667, 
-41.2278667, 15.9298833, -30.4984333, -17.4906167, -149.4363333, 
-63.01795, 156.3570833, -110.23255, -31.20155, -25.4557, 
0.0881833, -25.4557, -101.07455, -81.3430667, 77.4312667, 
-41.2278667, -30.4984333, -17.4906167)), .Names = c("Region", 
"Group3", "ones", "tot", "div", "lat", "long"), row.names = c(NA, 
20L), class = "data.frame")

ggplot(data=loc_pie) + geom_polygon(data=world, aes(x=long, y=lat, group =group),colour="grey40", fill="grey40") + geom_subplot(height=12, aes(long, lat, group=Region, subplot = (geom_bar(aes(x = factor(1),   y=div, fill=factor(Group3)), width =1, height = 2,stat="identity"))))

看起来我不能发布图片，因为我是新用户。

![带有堆叠条形图子图的世界地图][1]

关于如何仅为子图合并极坐标的任何想法？非常感谢。

Answer 1

这是 ggplot2 和 ggtree 最新版本的解决方案:

library(maps)
library(mapproj)
library(ggplot2)
library(ggtree)
library(dplyr)
library(magrittr)

world = map_data("world")

p <- ggplot(data=world, aes(x=long, y=lat, group =group)) + geom_polygon(colour="grey40", fill="grey40")

for (name in unique(loc_pie[['Region']])) {
  loc_region <- filter(loc_pie, Region %in% name)
  pie_tmp <- ggplot(data = loc_region, aes(x = factor(1), y = div, fill = Group3)) +
    geom_bar(width = 1, stat = "identity") + coord_polar(theta = "y") +
    scale_fill_discrete(drop = FALSE) +
    xlab(NULL) + ylab(NULL) + theme_tree() +
    theme_transparent()
  lat_region <- loc_region[[1,'lat']]
  long_region <- loc_region[[1,'long']]
  p %<>% subview(pie_tmp, long_region, lat_region, width = .07, height = .07)
}

p

宽度和高度是手动选择的，它们对应于 subview 相对于完整 View 的比例。

为了完整起见， loc_pie 可以通过以下方式获得:

loc_pie = structure(
  list(
    Region = structure(
      c(
        3L,
        5L,
        7L,
        8L,
        9L,
        10L,
        11L,
        12L,
        13L,
        15L,
        16L,
        2L,
        14L,
        2L,
        4L,
        5L,
        6L,
        7L,
        9L,
        10L
      ),
      .Label = c(
        "",
        "ANT/SO",
        "ARC",
        "EPR/GAL",
        "GOM/CAR",
        "IND",
        "MAR",
        "MED",
        "N-ATL",
        "NE-ATL",
        "NE-PAC",
        "NW-ATL",
        "NW-PAC",
        "SE-ATL",
        "SE-PAC",
        "SW-ATL",
        "SW-PAC"
      ),
      class = "factor"
    ),
    Group3 = structure(
      c(
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        1L,
        2L,
        2L,
        3L,
        3L,
        3L,
        3L,
        3L,
        3L,
        3L
      ),
      .Label = c(
        "Annelida",
        "Choanoflagellata",
        "Chordata",
        "Cnidaria",
        "Crustacea",
        "Echinodermata",
        "Foraminifera",
        "Mollusca",
        "Nematoda",
        "Other",
        "Platyhelminthes",
        "Porifera"
      ),
      class = "factor"
    ),
    ones = c(1, 1, 5, 1, 1, 1, 18, 3, 1, 4, 8, 1, 1, 2, 1, 1,
             6, 1, 2, 5),
    tot = c(5, 30, 11, 16, 28, 22, 51, 25, 78, 13,
            32, 57, 61, 57, 15, 30, 20, 11, 28, 22),
    div = c(
      0.2,
      0.0333333333333333,
      0.454545454545455,
      0.0625,
      0.0357142857142857,
      0.0454545454545455,
      0.352941176470588,
      0.12,
      0.0128205128205128,
      0.307692307692308,
      0.25,
      0.0175438596491228,
      0.0163934426229508,
      0.0350877192982456,
      0.0666666666666667,
      0.0333333333333333,
      0.3,
      0.0909090909090909,
      0.0714285714285714,
      0.227272727272727
    ),
    lat = c(
      71.4493167,
      19.9897167,
      23.5874333,
      37.6802167,
      55.13365,
      36.6889333,
      35.9565333,
      35.53935,
      30.4266,
      -30.32195,
      -33.2038,
      -65.8756333,-17.12415,
      -65.8756333,
      0.1135,
      19.9897167,
      -14.5800667,
      23.5874333,
      55.13365,
      36.6889333
    ),
    long = c(
      -1.0550667,
      -81.3430667,-41.2278667,
      15.9298833,
      -30.4984333,
      -17.4906167,
      -149.4363333,-63.01795,
      156.3570833,
      -110.23255,
      -31.20155,
      -25.4557,
      0.0881833,
      -25.4557,
      -101.07455,
      -81.3430667,
      77.4312667,-41.2278667,
      -30.4984333,
      -17.4906167
    )
  ),
  .Names = c("Region",
             "Group3", "ones", "tot", "div", "lat", "long"),
  row.names = c(NA,
                20L),
  class = "data.frame"
)