我正在分析从替换的瓶子中取出10个编号球的结果的数据,重复70次。这是我的代码(包括数据):
numbers <- c(8, 3, 9, 5, 1, 9, 10, 8, 8, 1, 9, 9, 8, 5, 1, 10, 5, 9, 6, 4, 10, 3,
10, 9, 8, 4, 8, 8, 9, 9, 1, 5, 9, 8, 4, 1, 8, 6, 7, 8, 2, 9, 5, 6,
10, 9, 1, 1, 5, 6, 2, 8, 6, 5, 2, 5, 4, 10, 10, 2, 2, 4, 9, 6, 9,
9, 6, 10, 9, 10)
num_frame <- data.frame(numbers)
ggplot(num_frame) +
geom_dotplot(aes(numbers), binwidth = 1, dotsize = 0.4) +
theme_bw() +
xlab("Numbers") +
ylab("Frequency")
生成的图很好,除了它在0、2.5、5、7.5和10处标注了网格线外,这显然不是我想要的。比例尺很好,但我希望网格线为1到10的整数(如果必要,也可以为0)。我怎样才能做到这一点?我还希望y轴也进行调整,以使网格仍为正方形。谢谢!
只需添加:
scale_x_continuous(breaks=1:10, minor_breaks=NULL)
minor_breaks=NULL
压制不间断的线路
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句