R

Question

如果我的数据中剩余数据的值大得多，有没有办法在直方图轴上打破？

例如，使用以下虚拟数据制作ggplot直方图：

test_data <- c(1,1,1,1,1,1,1,1,1,1,5,5,5,5,5,5,100,100,50,5000)

df = data.frame(test_data)

ggplot(df, aes(test_data))+geom_histogram()

产生间隙较大的直方图

我希望x轴能够有0到1000的分档然后从4000开始继续切割。我怎样才能做到这一点？

更新

链接＆＃34;重复＆＃34;已经打破了图像，甚至在尝试了他们的建议后，我没有实现我想要的。我试过了 geom_histogram(breaks=c(seq(1, 100, by=1),seq(200,1000,by=100), seq(2000,5000, by=1000))但这会产生巨大的宽条，这不是我想要的。