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 at 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 > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at 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.
Fortune Nomination! "A lot of work for a little pie." (in response to a query about how to improve a pie chart) -- Jim Lemon On Mon, Aug 15, 2022 at 6:43 PM Jim Lemon <drjimlemon at 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 at 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 > > > > [[alternative HTML version deleted]] > > > > ______________________________________________ > > R-help at 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. > > ______________________________________________ > R-help at 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.
Thank you so much! Indeed a lot of work for a little pie :) On Mon, Aug 15, 2022 at 8:43 PM Jim Lemon <drjimlemon at 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 at 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 > > > > [[alternative HTML version deleted]] > > > > ______________________________________________ > > R-help at 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. >[[alternative HTML version deleted]]