title: change the color of 20% of bars in geom_bar ggplot
body: <p>I'm trying to change the color of 9 states in the following image. Those states are top mining states and I want them to stand out in the image attached below. I probably need to modify my dataframe as the easiest step. But any other ideas?</p>
  <pre><code>ggplot(data = media_impact_by_state) +
    #geom_hline(yintercept=0,linetype=&quot;dashed&quot;, color = &quot;red&quot;) +
    geom_bar(aes(x= reorder(GeoName,trustclimsciSSTOppose - mean(trustclimsciSSTOppose)), 
                 y= CO2limitsOppose-mean(CO2limitsOppose), fill = &quot;fill1&quot;),
             stat = 'identity') +
    geom_point(aes(x = GeoName,  
                   y = trustclimsciSSTOppose - mean(trustclimsciSSTOppose),
                  color = &quot;dot1&quot;),
                   size=3) +
    scale_color_manual(values = c(&quot;black&quot;),
                       label = &quot;Distrust of Scientists&quot;,
                       name = &quot;Mean Deviation&quot;) +
    scale_fill_manual(values = c(fill1 = &quot;darkorange1&quot;,fill2 = &quot;blue&quot;),
                      labels = c(fill1 = &quot;Oppose Limits to Co2 Emissions&quot;,fill2 = &quot;poop&quot;),
                      name = &quot;Mean Deviation&quot;) +
    labs(x = &quot;State&quot;,
         y = &quot;(%)&quot;,
         title = &quot;Distrust of Scientists&quot;) +
    theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1,size=12),
          axis.text.y = element_text(size=14),
          axis.title.y = element_text(size=16),
          axis.title.x = element_text(size=16),
          plot.title = element_text(size=16,hjust=0.5))
  </code></pre>
  <p><a href="https://i.stack.imgur.com/Y3KO2.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Y3KO2.png" alt="enter image description here" /></a></p>