[R] how to add count to pie chart legend

[Rolf Turner]

On Mon, 15 Aug 2022 19:20:28 -0700
Bert Gunter <bgunter.4567 using gmail.com> wrote:

> Fortune Nomination!
> 
> "A lot of work for a little pie." (in response to a query about how to
> improve a pie chart)
> -- Jim Lemon

I second the nomination.

cheers,

Rolf

> 
> On Mon, Aug 15, 2022 at 6:43 PM Jim Lemon <drjimlemon using gmail.com>
> wrote:
> >
> > Hi Ana,
> > A lot of work for a little pie.
> >
> > df<-read.table(text="V1 n
> >  Yes 8
> >  No 14",
> >  header=TRUE,
> >  stringsAsFactors=FALSE)
> > par(mar=c(5,4,4,4))
> > pie(df$n,df$V1,col=c(3,2),main="Yes and No",
> >  xlab="",ylab="",radius=1)
> > legend(0.75,-0.8,paste(df$V1,df$n),fill=c(3,2),
> >  xpd=TRUE)
> >
> > Jim
> >
> > On Tue, Aug 16, 2022 at 1:59 AM Ana Marija
> > <sokovic.anamarija using gmail.com> wrote:
> > >
> > > Hi All,
> > >
> > > I have df like this:
> > >
> > > > df# A tibble: 2 × 4
> > >   V1        n  perc labels
> > >   <chr> <int> <dbl> <chr> 1 Yes       8 0.364 36%   2 No       14
> > > 0.636 64%
> > >
> > > I am making pie chart like this:
> > >
> > > library(ggplot2)
> > >
> > > ggplot(df, aes(x = "", y = perc, fill = V1)) +
> > >   geom_col(color = "black") +
> > >   geom_label(aes(label = labels),
> > >              position = position_stack(vjust = 0.5),
> > >              show.legend = FALSE) +
> > >   guides(fill = guide_legend(title = "Answer")) +
> > >   coord_polar(theta = "y") +
> > >   theme_void()
> > >
> > > How would I add in the legend beside Answer "Yes" count 8 (just
> > > number 8) and beside "No" count 14?
> > >
> > > Thanks
> > >
> > > Ana