使用ggplot2的直方图：更改xticks，y的百分比

Question

我有一个向量{{likeCount}}

x

我试图绘制 x = sample (1:3000, 20000, replace = T)

的直方图

x

我有两个问题：

1. 为什么ggplot() + aes(x)+ geom_histogram() + scale_x_log10() + geom_bar(aes(y = (..count..)/sum(..count..))) + scale_y_continuous(labels = scales::percent)轴显示200％，400％;直方图是不可能的。

2. 如何自定义x-ticks值。我想将x-ticks显示为0,1,2 ... 10,20,30 ... 10,100。

非常感谢

Answer 1

我清理了一下你的代码。你包括一个geom_histogram()太多了。因为有线y轴。您可以在比例函数的break参数内控制的刻度。

试试这个：

df <- data.frame(x = sample (1:3000, 20000, replace = T))

ggplot(df, aes(x = x)) + 
geom_histogram(aes(y = (..count..)/sum(..count..)))  +
scale_y_continuous(labels = scales::percent) +
scale_x_log10(breaks=c(1,100,1000))