r - 是否有 R 函数可以使用带有两个字形的华夫饼图？一个在左边，一个在右边？

Question

我想“合并”这两个华夫饼图：

waffle(pct, rows = 5, use_glyph = "angle-left", glyph_size = 9, 
   colors = c("grey", adjustcolor("green", alpha.f = 0.0)),
   title = "Motoraccidents in bends",
   xlab = "1 bike = 1% of all motorcycle accidents",
   legend_pos = "bottom") 
waffle(pct, rows = 5, use_glyph = "angle-right", glyph_size = 9, 
   #colors = c("White", "darkred"),
   colors = c(adjustcolor("green", alpha.f = 0.0), "darkred"),
   title = "Motoraccidents in bends",
   xlab = "1 bike = 1% of all motorcycle accidents",
   legend_pos = "bottom") 

有任何想法吗？

Answer 1

因为我在文档和互联网上都找不到任何东西，所以我尝试了 - 并找到了答案：只需为 use-glyph 函数制作一个向量。

waffle(pct, rows = 5, use_glyph = c("arrow-left", "arrow-right"), glyph_size = 9, 
   colors = c("red", "darkred"),
   title = "Motoraccidents in bends",
   xlab = "1 glyph = 1% of motorcycle accidents in bends",
   legend_pos = "bottom")