Sum of barplots ggplott2

[Stevenamore]

Hi,

i recently started using Rstudios, because I need it for my research.
I want to show my data using Bar plots, but the bars won't sum. The data consists of catched flies (big or small) using different colored containers in different forests.

my code is the following:

Data_vliegen%>%
ggplot(aes(x = Kleur, fill = as.character(Grote_vliegen))) +
geom_bar(alpha = 0.7) +
theme_bw(base_size = 12)+
labs(fill = "Kleur") +
ylab("Aantal")

But this plot does not consider that multiple flies can be caught within 1 sample (it won't sum). How can i write it that it will take the sum of all the flies (about 3000 in each color)? I think I have to change my dataset from a wide to a long conformation.

Here is a picture of the created plot:

Eventually I have to consider the different forests and want to implement this as a subcategorie in each barplot.

Thanks!

translated: (kleur=color / Grote_vliegen= Big_flies/ Kleine_vliegen=small_flies/ aantal=total)

[Stevenamore]

here is the plot I want to create:

[Stevenamore]

And a small part of the dataset:

[andresrcs]

Hi!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? We can't reproduce your code from a screenshot, please have a look at this guide, to see how to create a proper reprex:

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.…

[Stevenamore]

Is this a good dataset?

flies <- tibble::tribble(
~Ophaling, ~Boomtype, ~Bestand_nummer, ~Val_nummer, ~Kleur, ~Kolom1, ~Grote_vliegen, ~Kleine_vliegen, ~opmerkingen,
1L, "B", 2L, 1L, "B", NA, 2L, 6L, NA,
1L, "B", 2L, 1L, "W", NA, 6L, 3L, NA,
1L, "B", 2L, 1L, "Y", NA, 7L, 6L, NA,
1L, "B", 2L, 2L, "B", NA, 3L, 2L, NA,
1L, "B", 2L, 2L, "W", NA, 8L, 7L, NA,
1L, "B", 2L, 2L, "Y", NA, 5L, 15L, NA,
1L, "B", 3L, 1L, "B", NA, 4L, 14L, NA,
1L, "B", 3L, 1L, "W", NA, 15L, 29L, NA,
1L, "B", 3L, 1L, "Y", NA, 12L, 15L, NA,
1L, "B", 3L, 2L, "B", NA, 34L, 43L, NA,
1L, "B", 3L, 2L, "W", NA, 168L, 47L, NA,
1L, "B", 3L, 2L, "Y", NA, 52L, 32L, NA,
1L, "B", 4L, 1L, "B", NA, 2L, 2L, NA,
1L, "B", 4L, 1L, "W", NA, 17L, 7L, NA,
1L, "B", 4L, 1L, "Y", NA, 46L, 6L, NA,
1L, "B", 4L, 2L, "B", NA, 2L, 5L, NA,
1L, "B", 4L, 2L, "W", NA, 12L, 4L, NA,
1L, "B", 4L, 2L, "Y", NA, 24L, 14L, NA
)
head(flies)

[jrkrideau]

This is not elegant but I think it does what you want.

library(tidyverse)
dat1 <-    flies %>% 
  group_by(Kleur) %>% 
    summarise(grosse = sum( Grote_vliegen)
     
              
 ggplot(dat1, aes(Kleur, grosse, fill = Kleur)) + geom_bar(stat = "identity") +
   theme(legend.position="none")

[andresrcs]

Is this what you want to do?

library(tidyverse)

# Sample data in a copy/paste friendly format, replace this with your own data frame
flies <- tibble::tribble(
    ~Ophaling, ~Boomtype, ~Bestand_nummer, ~Val_nummer, ~Kleur, ~Kolom1, ~Grote_vliegen, ~Kleine_vliegen, ~opmerkingen,
    1L, "B", 2L, 1L, "B", NA, 2L, 6L, NA,
    1L, "B", 2L, 1L, "W", NA, 6L, 3L, NA,
    1L, "B", 2L, 1L, "Y", NA, 7L, 6L, NA,
    1L, "B", 2L, 2L, "B", NA, 3L, 2L, NA,
    1L, "B", 2L, 2L, "W", NA, 8L, 7L, NA,
    1L, "B", 2L, 2L, "Y", NA, 5L, 15L, NA,
    1L, "B", 3L, 1L, "B", NA, 4L, 14L, NA,
    1L, "B", 3L, 1L, "W", NA, 15L, 29L, NA,
    1L, "B", 3L, 1L, "Y", NA, 12L, 15L, NA,
    1L, "B", 3L, 2L, "B", NA, 34L, 43L, NA,
    1L, "B", 3L, 2L, "W", NA, 168L, 47L, NA,
    1L, "B", 3L, 2L, "Y", NA, 52L, 32L, NA,
    1L, "B", 4L, 1L, "B", NA, 2L, 2L, NA,
    1L, "B", 4L, 1L, "W", NA, 17L, 7L, NA,
    1L, "B", 4L, 1L, "Y", NA, 46L, 6L, NA,
    1L, "B", 4L, 2L, "B", NA, 2L, 5L, NA,
    1L, "B", 4L, 2L, "W", NA, 12L, 4L, NA,
    1L, "B", 4L, 2L, "Y", NA, 24L, 14L, NA
)

# Relevant code
flies %>%
    group_by(Kleur) %>% 
    summarise(Aantal = sum(Grote_vliegen)) %>% 
    ggplot(aes(x = Kleur, y = Aantal, fill = Kleur)) +
    geom_col(alpha = 0.7) +
    theme_bw(base_size = 12)

^{Created on 2021-12-27 by the reprex package (v2.0.1)}

[Stevenamore]

Thank you very much, I managed to create a good ggplot.

This is the plot i wanted:

first I changed my dataset from wide to al long dataset and after that i used "weight" in my ggplot line.