title: ggplot geom_col: making certain axis count integers rather than summing
body: <p>I am currently making a hate crime case study. For my plot I am using one zip-code as my y-axis and plotting how many crimes and what group is being targeted on the x-axis using geom-col. The problem is my y-axis is adding the zip-codes together rather than counting each frequency of how many times the zip-code shows up. Here is my dataset looks like:</p>
  <pre><code>structure(list(ID = 1:5, CRIME_TYPE = c(&quot;VANDALISM&quot;, &quot;ASSAULT&quot;, &quot;VANDALISM&quot;, &quot;ASSAULT&quot;, 
  &quot;OTHER&quot;), BIAS_MOTIVATION_GROUP = c(&quot;ANTI-BLACK                                   &quot;, 
  &quot;ANTI-BLACK                                   &quot;, &quot;ANTI-FEMALE HOMOSEXUAL (LESBIAN)             &quot;, 
  &quot;ANTI-MENTAL DISABILITY                       &quot;, &quot;ANTI-JEWISH                                  &quot;),
   ZIP_CODE = c(40291L, 40219L, 40243L, 40212L, 40222L
  )), row.names = c(NA, 5L), class = &quot;data.frame&quot;)
  </code></pre>
  <p>Here is  my code:</p>
  <pre><code>library(ggplot2)
  df &lt;- read.csv(file = &quot;LMPD_OP_BIAS.csv&quot;, header = T)    
  library(tidyverse)
  hate_crime &lt;- df %&gt;%
    filter(ZIP_CODE == &quot;40245&quot;)
  
  hate_crime_plot &lt;- hate_crime %&gt;%
    ggplot(., aes(x = BIAS_MOTIVATION_GROUP, y = ZIP_CODE, fill = 
                    BIAS_MOTIVATION_GROUP)) +
    geom_col() + labs(x = &quot;BIAS_MOTIVATION_GROUP&quot;, fill = &quot;BIAS_MOTIVATION_GROUP&quot;) +
    theme_minimal() + 
    theme(axis.text.x=element_text (angle =45, hjust =1))
  print(hate_crime_plot)
  
  hate_crime_ploter &lt;- hate_crime %&gt;%
    ggplot(., aes(x = UOR_DESC, y = ZIP_CODE, fill = 
                    UOR_DESC)) +
    geom_col() + labs(x = &quot;UOR_DESC&quot;, fill = &quot;UOR_DESC&quot;) +
    theme_minimal() + 
    theme(axis.text.x=element_text (angle =45, hjust =1))
  print(hate_crime_ploter)
  </code></pre>
  <p>For full data visit here: <a href="https://data.louisvilleky.gov/dataset/lmpd-hate-crimes" rel="nofollow noreferrer">visit site to download data set</a></p>