R 饼图标签仅在某些面上显示不正确

我正在尝试创建一个饼图，其中包含许多方面，每个方面都有自己的百分比标签。它似乎适用于某些数据集，而不适用于其他数据集。下面是一个完全可复制的数据集示例，标签位置适用于一个方面（

cyl:4

），但不适用于其他方面（

cyl:6

和

cyl:8

）。例如，如果查看

cyl:6

，则57%的切片已标记为43%的标签，反之亦然

有人知道这种行为的根源是什么，我怎样才能摆脱它

库（dplyr）
图书馆（数据集）
图书馆（GG2）
数据（mtcars）
#创建数据帧
df%
dplyr:：汇总（计数=n（））%>%
dplyr:：mutate（perc=（计数/总和（计数））*100）%>%
dplyr:：排列（描述（perc））
#准备情节
ggplot2:：ggplot（df、aes（“”、计数））+
geom_col(
位置='填充'，
颜色='黑色'，
宽度=1，
aes（填充=系数（am））
) +
小平面包裹（~cyl，labeller=“label_tware”）+
geom_标签(
aes（标签=0（圆形（perc），“%”，组=系数（am）），
位置=位置填充（vjust=0.5），
颜色='黑色'，
尺寸=5，
show.legend=FALSE
) +
极坐标（theta=“y”）

---

由（v0.1.1.9000）于2018-02-03创建。

这是我运行代码时得到的：

检查

ggplot2

是否已更新

---

我正在运行

ggplot2_2.2.1

和R版本3.4.3

更新：自最新的ggplot2代码库计划作为ggplot2.3.0发布以来，这个问题似乎已得到修复。我的旧答案保留在下面，以便存档。

库（dplyr）
图书馆（数据集）
图书馆（GG2）
数据（mtcars）
#创建数据帧
df%
dplyr:：汇总（计数=n（））%>%
dplyr:：mutate（perc=（计数/总和（计数））*100）%>%
dplyr:：排列（描述（perc））
#准备情节
ggplot2:：ggplot（df、aes（“”、计数））+
geom_col(
位置='填充'，
颜色='黑色'，
宽度=1，
aes（填充=系数（am））
) +
小平面包裹（~cyl，labeller=“label_tware”）+
geom_标签(
aes（标签=0（圆形（perc），“%”，组=系数（am）），
位置=位置填充（vjust=0.5），
颜色='黑色'，
尺寸=5，
show.legend=FALSE
) +
极坐标（theta=“y”）

由（v0.2.0）于2018年5月13日创建

devtools:：session_info（）
#>会话信息-------------------------------------------------------------
#>设定值
#>R版3.5.0版（2018-04-23）
#>系统x86_64，达尔文15.6.0
#>ui X11
#>语言（英文）
#>核对en_US.UTF-8
#>美国/芝加哥
#>日期2018-05-13
#>包裹-----------------------------------------------------------------
#>包*版本日期源
#>资产价值0.2.0 2017-04-11克朗（R 3.5.0）
#>后端口1.1.2 2017-12-13起重机（R 3.5.0）
#>基准*3.5.0 2018-04-24本地
#>bindr 0.1.1 2018-03-13起重机（R 3.5.0）
#>bindrcpp*0.2 2017-06-17起重机（R 3.5.0）
#>色彩空间1.4-0 2017-12-23 R-Forge（R 3.5.0）
#>编译器3.5.0 2018-04-24本地
#>旋度3.1 2017-12-12起重机（R 3.5.0）
#>数据集*3.5.0 2018-04-24本地
#>开发工具1.13.5 2018-02-18起重机（R 3.5.0）
#>摘要0.6.15 2018-01-28起重机（R 3.5.0）
#>dplyr*0.7.4 2017-09-28起重机（R 3.5.0）
#>评估0.10.1 2017-06-24起重机（R 3.5.0）
#>ggplot2*2.2.1.9000 2018-05-12本地
#>胶水1.2.0 2017-10-29起重机（R 3.5.0）
#>图*3.5.0 2018-04-24本地
#>GR设备*3.5.0 2018-04-24本地
#>电网3.5.0 2018-04-24本地
#>GTTable 0.2.0 2016-02-26起重机（R 3.5.0）
#>htmltools 0.3.6 2017-04-28克朗（R 3.5.0）
#>httr 1.3.1 2017-08-20起重机（R 3.5.0）
#>克尼特1.20 2018-02-20克兰（R 3.5.0）
#>标签0.3 2014-08-23起重机（R 3.5.0）
#>lazyeval 0.2.1 2017-10-29克兰（R 3.5.0）
#>magrittr 1.5 2014-11-22起重机（R 3.5.0）
#>备忘录1.1.0 2017-04-21克兰（R 3.5.0）
#>方法*3.5.0 2018-04-24本地
#>mime 0.5 2016-07-07起重机（R 3.5.0）
#>孟塞尔0.4.3 2016-02-13克朗（R 3.5.0）
#>支柱1.2.1 2018-02-27起重机（R 3.5.0）
#>pkgconfig 2.0.1 2017-03-21起重机（R 3.5.0）
#>plyr 1.8.4 2016-06-08起重机（R 3.5.0）
#>R6 2.2.2 2017-06-17起重机（R3.5.0）
#>Rcpp 0.12.16 2018-03-13起重机（R 3.5.0）
#>rlang 0.2.0.9001 2018-05-10 Github（r-lib/rlang@ccdbd8b)    
#>rmarkdown 1.9 2018-03-01起重机（R 3.5.0）
#>rprojroot 1.3-2 2018-01-03起重机（R 3.5.0）
#>比例尺0.5.0.9000 2018-04-10 Github（哈德利/scales@d767915)  
#>统计数据*3.5.0 2018-04-24本地
#>stringi 1.1.7 2018-03-12起重机（R 3.5.0）
#>stringr 1.3.0 2018-02-19起重机（R 3.5.0）
#>tibble 1.4.2 2018-01-22起重机（R 3。