甜甜圈中的负值显示为单独的弧形

Question

我正在尝试用两个圆圈制作甜甜圈。一个（外部）具有正值，另一个（内部）具有负值。 （见附图）

数据：

a <- cbind.data.frame(c("A", "B", "C", "D", "E", "F"), c(-1, 2:4, -2, 3))
colnames(a) <- c("X", "Y")
a$flag <- ifelse(a$Y > 0 , 1, 0)

代码：

bar <- ggplot(data = a, aes(x = flag, y = Y, fill = X)) + geom_bar(stat = "identity", position = "stack") +  xlab("") + ylab("Percentage Impacts")
pie <- bar + coord_polar("y", start = 0.07) 
pie

PLOT：

我试图在情节上复制这个。这可能吗？

或任何其他显示正面和负面价值的方式（我不是在寻找条形图。最好是馅饼）