thr3ads.net - R help - [R] Labeling Stacked Bar Plots Representing Percentages with Count Data [Nov 2019]

If this information is useful, please help other people find it:
Share via:

Josh B

2019-Nov-15 23:56 UTC

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

Hello,

I am trying to include the count labels on stacked bar plots which
represent percentages. I want to show x-amount of individuals make up the
graphed percentages. However, when I include the count labels my y-axis
gets blown out of proportion because it changes to match the count data,
not the percentages. Also, the bars are removed from the graph too? I have
reviewed other posts similar to this, such as: "How to add percentage or
count labels above percentage bar plot?". I cannot find the error in my r
command.

My command used is as follows:

sumplot<-ggplot(tagSummary,aes(x=recvDeployName,y=nDet,fill=speciesSci))+
  geom_bar(position="fill",stat="identity")+
  geom_text(aes(label=nDet),position=position_stack(vjust=0.5))+
  theme(axis.text.x=element_text(angle=90,hjust=1))+
  scale_y_continous(labels=scales::percent_format())

Example of data being graphed:

speciesSci         recvDeployName    nDet
1 Arenaria interpres Bucktoe Preserve    96
2 Arenaria interpres CHDE               132
3 Arenaria interpres Fortescue        22133
4 Arenaria interpres Mispillion        2031
5 Arenaria interpres Norbury           3709
6 Arenaria interpres Penn - DRL          49

What my graph looks like when I use the command example provided above:
graph <https://i.stack.imgur.com/TLLGh.png>

Any help would be greatly appreciated. Thank you.

*Joshua N. Barth*

	[[alternative HTML version deleted]]

Rui Barradas

2019-Nov-16 16:16 UTC

head link

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

Hello,

In geom_text change to position = position_fill(vjust=0.5).
What's important is to have position = "fill" in geom_bar match
geom_text.
Something like :


library(dplyr)
library(ggplot2)

data(mtcars)

mtcars %>%
   group_by(cyl, gear) %>%
   summarise(count = n()) %>%
   ggplot(aes(factor(cyl), y = count, fill = factor(gear))) +
   geom_bar(position = "fill", stat = "identity") +
   geom_text(aes(label = count),
             position = position_fill(vjust=0.5)) +
   theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
   scale_y_discrete(labels = scales::percent_format())


Hope this helps,

Rui Barradas

?s 23:56 de 15/11/19, Josh B escreveu:> Hello,
> 
> I am trying to include the count labels on stacked bar plots which
> represent percentages. I want to show x-amount of individuals make up the
> graphed percentages. However, when I include the count labels my y-axis
> gets blown out of proportion because it changes to match the count data,
> not the percentages. Also, the bars are removed from the graph too? I have
> reviewed other posts similar to this, such as: "How to add percentage
or
> count labels above percentage bar plot?". I cannot find the error in
my r
> command.
> 
> My command used is as follows:
> 
>
sumplot<-ggplot(tagSummary,aes(x=recvDeployName,y=nDet,fill=speciesSci))+
>    geom_bar(position="fill",stat="identity")+
>    geom_text(aes(label=nDet),position=position_stack(vjust=0.5))+
>    theme(axis.text.x=element_text(angle=90,hjust=1))+
>    scale_y_continous(labels=scales::percent_format())
> 
> Example of data being graphed:
> 
> speciesSci         recvDeployName    nDet
> 1 Arenaria interpres Bucktoe Preserve    96
> 2 Arenaria interpres CHDE               132
> 3 Arenaria interpres Fortescue        22133
> 4 Arenaria interpres Mispillion        2031
> 5 Arenaria interpres Norbury           3709
> 6 Arenaria interpres Penn - DRL          49
> 
> What my graph looks like when I use the command example provided above:
> graph <https://i.stack.imgur.com/TLLGh.png>
> 
> Any help would be greatly appreciated. Thank you.
> 
> *Joshua N. Barth*
> 
> 	[[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.
>

Jim Lemon

2019-Nov-16 22:16 UTC

head link

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

Hi Josh,
I couldn't work out how to do this in ggplot, but here is a possible
solution:

tagSummary<-read.csv(text="speciesSci,recvDeployName,nDet
 Arenaria interpres,Bucktoe Preserve,96
 Arenaria interpres,CHDE,132
 Arenaria interpres,Fortescue,22133
 Arenaria interpres,Mispillion,2031
 Arenaria interpres,Norbury,3709
 Arenaria interpres,Penn - DRL,49
 Calidris alba,Bucktoe Preserve,56
 Calidris alba,CHDE,145
 Calidris alba,Fortescue,19000
 Calidris alba,Mispillion,2200
 Calidris alba,Norbury,3900
 Calidris alba,Penn - DRL,40
 Calidris canutus,Bucktoe Preserve,77
 Calidris canutus,CHDE,100
 Calidris canutus,Fortescue,15000
 Calidris canutus,Mispillion,1831
 Calidris canutus,Norbury,3100
 Calidris canutus,Penn - DRL,60")
par(mar=c(10,6,4,2),las=2)
barpos<-barplot(nDet~speciesSci+recvDeployName,tagSummary,xlab="",ylab="",
col=2:4)
par(las=0)
mtext("recvDeployName",side=1,line=8)
mtext("nDet",side=2,line=4)
xpos<-matrix(rep(barpos,3),ncol=3)
# get stacked heights
ypos<-matrix(tagSummary$nDet,ncol=3)
library(plotrix)
ypos<-t(matrix(tagSummary$nDet,ncol=3))
barlabels(barpos,ypos)
legendpos<-locator(1)
legend(legendpos[1],legendpos[2],unique(tagSummary$speciesSci),fill=2:4)

Your big problem is that three observation sites have tiny values
compared to the rest. As always there is a kludge available. Replace
the call to barlabels with the following:

barlabels(barpos[3:5],ypos[,3:5])
text(rep(barpos[c(1,2,6)],each=3),rep(c(5000,7500,10000),3),
 ypos[,c(1,2,6)],col=rep(2:4,3))

This gives you a legible plot, although you will probably have to play
with the "rep" numbers to get it to work for your entire data set.

Jim

On Sat, Nov 16, 2019 at 10:57 AM Josh B <jbarth1235 at gmail.com>
wrote:>
> Hello,
>
> I am trying to include the count labels on stacked bar plots which
> represent percentages. I want to show x-amount of individuals make up the
> graphed percentages. However, when I include the count labels my y-axis
> gets blown out of proportion because it changes to match the count data,
> not the percentages. Also, the bars are removed from the graph too? I have
> reviewed other posts similar to this, such as: "How to add percentage
or
> count labels above percentage bar plot?". I cannot find the error in
my r
> command.
>
> My command used is as follows:
>
>
sumplot<-ggplot(tagSummary,aes(x=recvDeployName,y=nDet,fill=speciesSci))+
>   geom_bar(position="fill",stat="identity")+
>   geom_text(aes(label=nDet),position=position_stack(vjust=0.5))+
>   theme(axis.text.x=element_text(angle=90,hjust=1))+
>   scale_y_continous(labels=scales::percent_format())
>
> Example of data being graphed:
>
> speciesSci         recvDeployName    nDet
> 1 Arenaria interpres Bucktoe Preserve    96
> 2 Arenaria interpres CHDE               132
> 3 Arenaria interpres Fortescue        22133
> 4 Arenaria interpres Mispillion        2031
> 5 Arenaria interpres Norbury           3709
> 6 Arenaria interpres Penn - DRL          49
>
> What my graph looks like when I use the command example provided above:
> graph <https://i.stack.imgur.com/TLLGh.png>
>
> Any help would be greatly appreciated. Thank you.
>
> *Joshua N. Barth*
>
>         [[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.

Rui Barradas

2019-Nov-18 07:21 UTC

head link

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

Hello,

It's dificult to tell without data. Can you post the output of

dput(head(tagSummary, 20))  # or 30

?
(If it's private data, something mimicking its structure.)

Rui Barradas

?s 02:06 de 18/11/19, Josh B escreveu:> Hello Rui,
> 
> I worked through your suggestion and appear to be getting an error?? Not 
> quite sure what the error is?? Maybe a conflict of two packages I have 
> loaded (dplyr and plyr)? Anyhow, I used code you suggested and received 
> an error in return:
> 
> sumplot<-tagSummary %>%
>  ? group_by(recvDeployName, speciesSci) %>%
>  ? summarize(count = n()) %>%
>  ? ggplot(aes(factor(recvDeployName), y = count, fill = 
> factor(speciesSci))) +
>  ? geom_bar(position = "fill", stat = "identity") +
>  ? geom_text(aes(label = count),
>  ??????????? position = position_fill(vjust=0.5)) +
>  ? theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
>  ? scale_y_discrete(labels = scales::percent_format())
> 
> Error: n() should only be called in a data context Call 
> `rlang::last_error()` to see a backtrace.> rlang::last_error() 
> <error/rlang_error>n() should only be called in a data context 
> Backtrace:1. dplyr::group_by(., recvDeployName, speciesSci) 8. 
> plyr::summarize(., count = n()) 9. [ base::eval(...) ]with 1 more 
> call11. dplyr::n() 12. dplyr:::from_context("..group_size") 13. 
> `%||%`(...) Call `rlang::last_trace()` to see the full backtrace.
> 
> **//___^
> *I did try this on my own and it seems promising... *
>
sumplot<-ggplot(tagSummary,aes(x=recvDeployName,y=nDet,fill=speciesSci))+
>  ? geom_text(aes(label=nDet),position="fill",
stat="identity")+
>  ? theme(axis.text.x=element_text(angle=90,hjust=1))+
>  ? scale_y_continuous(labels=scales::percent_format())
> 
> The code I tried on my own above gives me stacked data labels 
> representing the number of times a species was detected.? The stacked 
> data labels also match the previous stacked barplot I made without the 
> labels too, which is also promising.? However, the code above does not 
> make the stack bar graph show the percentages?? Again, I want the color 
> bars depicting the percentage while the count data is labeled within 
> each representative stack.
> 
> 
> 
> Rplot02.jpeg
> 
> 
> This was the graph I had before trying to add data labels... I want the 
> data labels above to be represented within the graph below.? Thank you 
> for your time and help.
> Rplot03.jpeg
> 
> On Sat, Nov 16, 2019 at 11:17 AM Rui Barradas <ruipbarradas at sapo.pt 
> <mailto:ruipbarradas at sapo.pt>> wrote:
> 
>     Hello,
> 
>     In geom_text change to position = position_fill(vjust=0.5).
>     What's important is to have position = "fill" in geom_bar
match
>     geom_text.
>     Something like :
> 
> 
>     library(dplyr)
>     library(ggplot2)
> 
>     data(mtcars)
> 
>     mtcars %>%
>      ? ?group_by(cyl, gear) %>%
>      ? ?summarise(count = n()) %>%
>      ? ?ggplot(aes(factor(cyl), y = count, fill = factor(gear))) +
>      ? ?geom_bar(position = "fill", stat = "identity")
+
>      ? ?geom_text(aes(label = count),
>      ? ? ? ? ? ? ?position = position_fill(vjust=0.5)) +
>      ? ?theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
>      ? ?scale_y_discrete(labels = scales::percent_format())
> 
> 
>     Hope this helps,
> 
>     Rui Barradas
> 
>     ?s 23:56 de 15/11/19, Josh B escreveu:
>      > Hello,
>      >
>      > I am trying to include the count labels on stacked bar plots
which
>      > represent percentages. I want to show x-amount of individuals
>     make up the
>      > graphed percentages. However, when I include the count labels my
>     y-axis
>      > gets blown out of proportion because it changes to match the
>     count data,
>      > not the percentages. Also, the bars are removed from the graph
>     too? I have
>      > reviewed other posts similar to this, such as: "How to add
>     percentage or
>      > count labels above percentage bar plot?". I cannot find the
error
>     in my r
>      > command.
>      >
>      > My command used is as follows:
>      >
>      >
>    
sumplot<-ggplot(tagSummary,aes(x=recvDeployName,y=nDet,fill=speciesSci))+
>      >? ? geom_bar(position="fill",stat="identity")+
>      >? ? geom_text(aes(label=nDet),position=position_stack(vjust=0.5))+
>      >? ? theme(axis.text.x=element_text(angle=90,hjust=1))+
>      >? ? scale_y_continous(labels=scales::percent_format())
>      >
>      > Example of data being graphed:
>      >
>      > speciesSci? ? ? ? ?recvDeployName? ? nDet
>      > 1 Arenaria interpres Bucktoe Preserve? ? 96
>      > 2 Arenaria interpres CHDE? ? ? ? ? ? ? ?132
>      > 3 Arenaria interpres Fortescue? ? ? ? 22133
>      > 4 Arenaria interpres Mispillion? ? ? ? 2031
>      > 5 Arenaria interpres Norbury? ? ? ? ? ?3709
>      > 6 Arenaria interpres Penn - DRL? ? ? ? ? 49
>      >
>      > What my graph looks like when I use the command example provided
>     above:
>      > graph <https://i.stack.imgur.com/TLLGh.png>
>      >
>      > Any help would be greatly appreciated. Thank you.
>      >
>      > *Joshua N. Barth*
>      >
>      >? ? ? ?[[alternative HTML version deleted]]
>      >
>      > ______________________________________________
>      > R-help at r-project.org <mailto: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 - Nov 2019 - Labeling Stacked Bar Plots Representing Percentages with Count Data

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data

[R] Labeling Stacked Bar Plots Representing Percentages with Count Data