title: Ignore outliers in geom_bar and geom_histogram in ggplot
body: <p>I have dataframe </p>
  
  <pre><code>DF &lt;- data.frame(respondent = factor(c(1, 2, 3, 4, 5, 6)), choice = as.numeric(c(1, 3, 3, 5, 10, 1000)))
  </code></pre>
  
  <p>When I plot it, the "1000" value makes the plot difficult to interpret:</p>
  
  <pre><code>library(ggplot2)
  ggplot(DF, aes(choice, 1,  ymax=10))+
    geom_bar(stat = "identity")+
    scale_y_continuous (limits = quantile(DF$choice, c(0, 10)
    theme(axis.text.x = element_text(angle = 0, hjust = 1),
          text = element_text(size=20)) 
  </code></pre>
  
  <p>How can I remove the outlier from the plot? Is there a ggplot equivalent of <code>ylim</code> that I could simply set to "10"? There is a post on dealing with outliers in <code>geom_boxplot</code>, but I can't get the solutions to work in either <code>geom_bar</code> or <code>geom_histogram</code>.</p>