title: ggplot and the geom_text() label
body: <p>I am new to R and ggplot2. I have used a lot of great examples here but still could not find the solution.
  My dataframe looks like this:</p>
  <pre><code>   Thermal.sensation           Acceptance Votes
  1                 -3   Clearly acceptable  0.00
  2                 -3      Just acceptable  0.33
  3                 -3    Just unacceptable  0.53
  4                 -3 Clearly unacceptable  0.13
  5                 -2   Clearly acceptable  0.05
  6                 -2      Just acceptable  0.80
  7                 -2    Just unacceptable  0.15
  8                 -2 Clearly unacceptable  0.00
  9                 -1   Clearly acceptable  0.25
  10                -1      Just acceptable  0.73
  11                -1    Just unacceptable  0.02
  12                -1 Clearly unacceptable  0.00
  13                 0   Clearly acceptable  0.06
  14                 0      Just acceptable  0.90
  15                 0    Just unacceptable  0.03
  16                 0 Clearly unacceptable  0.00
  17                 1   Clearly acceptable  0.00
  18                 1      Just acceptable  0.63
  19                 1    Just unacceptable  0.38
  20                 1 Clearly unacceptable  0.00
  21                 2   Clearly acceptable  0.00
  22                 2      Just acceptable  0.00
  23                 2    Just unacceptable  1.00
  24                 2 Clearly unacceptable  0.00
  25                 3   Clearly acceptable  0.00
  26                 3      Just acceptable  0.00
  27                 3    Just unacceptable  0.00
  28                 3 Clearly unacceptable  0.00
  </code></pre>
  <p>and when the plot is printed every zero value appears in each column. I want to know how can I hide or make invisible those zeros in the plot.</p>
  <p><a href="https://i.stack.imgur.com/wx5XM.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/wx5XM.png" alt="Problem reference picture" /> </a></p>
  <p>Here is the code that I have used to make my plot.</p>
  <pre><code>dfQ3 &lt;- data.frame(Thermal.sensation,Acceptance,Votes)
  dfQ3$Thermal.sensation &lt;- factor(dfQ3$Thermal.sensation, 
                                   levels = c(-3,-2,-1,0,+1,+2,+3))
  dfQ3$Acceptance &lt;- factor(dfQ3$Acceptance, 
                            levels = c(&quot;Clearly acceptable&quot;,&quot;Just acceptable&quot;,
                                       &quot;Just unacceptable&quot;,&quot;Clearly unacceptable&quot;))
  p3 &lt;- ggplot(dfQ3, 
               aes(fill=Acceptance, y=Votes, x=Thermal.sensation)) + 
    geom_bar(position=&quot;fill&quot;, stat=&quot;identity&quot;) +
    scale_fill_brewer(palette = &quot;Blues&quot;, direction = -1) +
    geom_text(aes(label=Votes),
              position = position_stack(vjust = 0.5))
  </code></pre>