忽略ggplot中geom_bar和geom_histogram中的异常值

Question

我有数据框

DF <- data.frame(respondent = factor(c(1, 2, 3, 4, 5, 6)), choice = as.numeric(c(1, 3, 3, 5, 10, 1000)))

当我绘制它时，＆＃34; 1000＆＃34;价值使情节难以解释：

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)) 

如何从剧情中移除异常值？是否有一个ggplot等价的ylim我可以简单地设置为＆＃34; 10＆＃34;？在geom_boxplot中有一篇关于处理异常值的帖子，但我无法让解决方案在geom_bar或geom_histogram中使用。

Answer 1

我认为xlim正是您要找的？

ggplot(DF, aes(choice, 1)) +
  geom_bar(stat = "identity") + 
  xlim(c(0, 11))

您将收到警告Warning message: Removed 1 rows containing missing values (position_stack).，表示由于限制而删除了数据点。

我删除了其他代码以使其成为“最小例子” - 如果它对您的问题很重要，那么请随时跟进。