title: Plot "double" bar plots with indicating significance in R
body: <p>I want to plot a "double" bar chart for three categories of data, and show the significance level based on Wilcox test, for each of the two "double" bars.</p>
  
  <p>Running the below code, I don't see the counts reflected on the y-axis, rather, all the bars are at the same height.</p>
  
  <pre><code>library(dplyr) 
  library(ggplot2)
  library(ggpubr)
  library(reshape2)
  theme_set(theme_pubclean())
  
  data = data.frame("cut" = c("type 1","type 1","type 2","type 2","type 3","type 3"), "counts" = c(0.6844,0.5867,0.6297,0.6383,0.7134,0.7075), "color" = c("c","d","c","d","c","d"))
  data
  
  df &lt;- data %&gt;%
    filter(color %in% c("c", "d")) %&gt;%
    group_by(cut, color) %&gt;%
    summarise(counts = n()) 
  
  ggdotchart(df, x = "cut", y ="counts",
             color = "color", palette = "jco", size = 3, 
             add = "segment", 
             add.params = list(color = "lightgray", size = 1.5),
             position = position_dodge(0.3),
             ggtheme = theme_pubclean()
  )
  </code></pre>
  
  <p>The plot I'm trying to make looks something like this:
  <a href="https://drive.google.com/open?id=1EndiF-sCtXFyUOAPIToRY5hqjp97b1Px" rel="nofollow noreferrer">https://drive.google.com/open?id=1EndiF-sCtXFyUOAPIToRY5hqjp97b1Px</a> </p>
  
  <p>appreviate your help to:
  1. edit my code such that it shows the real count values
  2. add significance to the plot</p>