Help adding percentatges to a barplot with ggplot2 (Error: `mapping` must be created by `aes()`)

[ycanete]

I had a problem adding percentatges to a barplot with ggplot2
I was trying this code:
ggplot(TFM, aes(x=EmbryoQuality, y=prop.table(stat(count)), fill=Group, label=scales::percent(prop.table(stat(count))))) + geom_bar(position=position_dodge2()) + theme(legend.position="bottom") + geom_text(stat_count, position = position_dodge2(.9), vjust=1.6, color="white", size=3.5) + scale_y_continuous(label= scales::percent) + labs(x=EmbryoQuality, y=Percentatges, fill = Group)

And this one:
ggplot(TFMqb, aes(label=EmbryoQuality, fill=Group)) + geom_bar(stat_identity, position=position_dodge2()) + theme(legend.position="bottom") + geom_text(aes(label=EmbryoQuality), vjust=1.6, color="white", size=3.5)

And I was receiving either one of this messages:

• Error: mapping must be created by aes(),

• geom_text requires the following missing aesthetics: y,

• stat_count() can only have an x or y aesthetic.

THE CORRECT CODE IS THIS ONE:

ggplot(TFMqe, aes(x= EmbryoQuality,  group=Group)) + 
geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count", alpha=0.7, position = position_dodge2()) +
geom_text(aes(label = scales::percent(..prop..), 
           y= ..prop.. ), position = position_dodge2(.9), color = "white", size = 3.5, vjust = 1.6, stat= "count") +
         labs(y = "Percent", fill="EmbryoQuality") +
         facet_grid(~Group) +
                      scale_y_continuous(labels = scales::percent) +
                      theme(legend.position = "none")

And the final result is this barplot (the quality in pdf or jpeg is much better!):

[andresrcs]

Hi!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at this guide, to see how to create one:

FAQ: How to do a minimal reproducible example ( reprex ) for beginners

A minimal reproducible example consists of the following items: A minimal dataset, necessary to reproduce the issue The minimal runnable code necessary to reproduce the issue, which can be run on the given dataset, and including the necessary information on the used packages. Let's quickly go over each one of these with examples: Minimal Dataset (Sample Data) You need to provide a data frame that is small enough to be (reasonably) pasted on a post, but big enough to reproduce your issue. Let's say, as an example, that you are working with the iris data frame head(iris) #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.…

[ycanete]

Hi, sure!

Group: "Non-Fertile Chip", "Fertile Chip"
Top quality embryos: "Yes", "No"

And I have: 15 Yes and 66 No for Non-Fertile Chip, and 39 Yes and 72 No for Fertile Chip.

This is how it looks now:

And I would like it to have the percentatges 18.52% (yes) and 81.48 (no) for Non-Fertile Chip, and 35.14% (yes) and 64.86 (no) for Fertile Chip.

Thanks!

[andresrcs]

That is not reproducible, please read the guide on the link I gave you and try to make a proper reproducible example.

[ycanete]

I'm sorry, it will only let me show the first 10 rows.

data.frame(
    stringsAsFactors = FALSE,
               Group = c("Non-Fertile Chip",
                         "Non-Fertile Chip","Fertile Chip","Fertile Chip",
                         "Non-Fertile Chip","Fertile Chip","Non-Fertile Chip",
                         "Non-Fertile Chip","Fertile Chip","Non-Fertile Chip"),
  NTopQualityEmbryos = c("Yes","Yes","Yes","Yes",
                         "Yes","No","Yes","Yes","No","No")
)

And this are the codes I've trying:

g4 <- ggplot(TFMqe, mapping=aes(x=NTopQualityEmbryos, y=prop.table(stat(count)), fill=Group, label=scales::percent(prop.table(stat(count))))) + geom_bar(position=position_dodge2()) + theme(legend.position="bottom") + geom_text(stat_count, position = position_dodge2(.9), vjust=1.6, color="white", size=3.5) + theme_minimal() + scale_y_continuous(label= scales::percent) + labs(x=NTopQualityEmbryos, y=Percentatges, fill = Group)

And:

g5 <- ggplot(TFMqe, aes(label=NMediumQualityEmbryos, fill=Group)) +  geom_bar(stat_identity, position=position_dodge2()) + theme(legend.position="bottom") + geom_text(aes(label=NMediumQualityEmbryos), vjust=1.6, color="white", size=3.5) + theme_minimal()

Thanks!

[andresrcs]

library(ggplot2)

TFMqe <- data.frame(
    stringsAsFactors = FALSE,
    Group = c("Non-Fertile Chip",
              "Non-Fertile Chip","Fertile Chip","Fertile Chip",
              "Non-Fertile Chip","Fertile Chip","Non-Fertile Chip",
              "Non-Fertile Chip","Fertile Chip","Non-Fertile Chip"),
    NTopQualityEmbryos = c("Yes","Yes","Yes","Yes",
                           "Yes","No","Yes","Yes","No","No")
)

ggplot(TFMqe, aes(x = NTopQualityEmbryos,
                  y = stat(count/sum(count)),
                  fill = Group)) +
    geom_bar(position = position_dodge2()) +
    geom_text(aes(label = scales::percent(stat(count/sum(count)),
                                          accuracy = 0.01)),
                position = position_dodge2(.9),
                vjust = 1.6,
                color = "white",
                size = 3.5,
              stat = "count") +
    scale_y_continuous(label = scales::label_percent()) +
    labs(x = "NTopQualityEmbryos",
         y = "Percentatges",
         fill = "Group") +
    theme_minimal() +
    theme(legend.position = "bottom")

^{Created on 2020-11-04 by the reprex package (v0.3.0.9001)}

[andresrcs]

If your question's been answered (even by you!), would you mind choosing a solution? It helps other people see which questions still need help, or find solutions if they have similar problems. Here’s how to do it:

FAQ: How do I mark a solution?

If your question has been answered, don't forget to mark the solution! How do I mark a solution? Find the reply you want to mark as the solution and look for the row of small gray icons at the bottom of that reply. Click the one that looks like a box with a checkmark in it: [image] Hovering over the mark solution button shows the label, "Select if this reply solves the problem". If you don't see the mark solution button, try clicking the three dots button ( ••• ) to expand the full set of options. When a solution is chosen, the icon turns green and the hover label changes to: "Unselect if this reply no longer solves the problem". Success! [solution_reply_author] …

[ycanete]

I've just realized, that the percentatges sume altogether 100%, whilst ideally I'd like it to be 100% in de No group, and 100% in the yes group. So as to see the % of embryos that had top quality in the No group vs the % in the Yes group.
Do you know how to change it?
Thanks!