多面饼图ggplot2-不完整，仅线条

Question

dat <- data.frame(table(total$Name, total$Color))
# adds the Count column
names(dat) <- c("Name","Color","Count")

NAME    COLOR    Count
John    Green    1
Joe     Green    12
Jane    Green    32  
Jill    Green    34
John    Blue     2
Joe     Blue     4
Jane    Blue     23  
Jill    Blue     12
John    Red      4
Joe     Red      42
Jane    Red      36  
Jill    Red      15 

How would I create a set of faceted pie charts by Name? When I try:

e <- ggplot(data=dat, aes(x=Name, fill=Color)) 
e + geom_bar(position = "fill") + 
facet_wrap(~Name) +
coord_polar()

It results in pie charts that are just lines. Can anyone identify the errors or offer any solutions?

Answer 1

1. Set x in aes to a static value. I chose 0.
2. Add theta = "y" to coord_polar` to tell it which axis to use in angles.
3. Add scale_fill_identity() since you've mapped colours directly in your fill value.
4. Added theme_void() to get rid of the confusing axes, etc.

library(tidyverse)

dat <- tribble(~Name,~Color,~Count,
"John",    "Green",    1,
"Joe" ,   "Green",   12,
"Jane",    "Green",    32, 
"Jill",    "Green",    34,
"John",    "Blue",   2,
"Joe" ,   "Blue",   4,
"Jane",    "Blue",   23,  
"Jill",    "Blue",   12,
"John",    "Red",   4,
"Joe" ,   "Red",   42,
"Jane",    "Red",   36,  
"Jill",    "Red",   15)

ggplot(data=dat, aes(x = 0, y = Count, fill=Color)) + 
  geom_col(position = "fill") + 
  facet_wrap(~Name) +
  coord_polar(theta = "y") +
  scale_fill_identity() +
  theme_void()

^{Created on 2018-11-14 by the reprex package (v0.2.1)}