On Mon, 15 Aug 2022 19:20:28 -0700 Bert Gunter <bgunter.4...@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 <drjimle...@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.anamar...@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 ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
