標准符號在ggplot2軸上有限制

Question

我想要的是非常簡單，但很難實現：設置刻度， ggplot2()將設置它們，另外在極限。 由於我正在處理許多數據集，我想避免自己設置滴答。

require(ggplot2)
ggplot(data=ChickWeight, aes(ChickWeight$Time)) geom_histogram(binwidth=1)

為了向軸添加max(ChickWeight$Time) ，我嘗試了pretty() ，它超出了最大值：

ggplot(data=ChickWeight, aes(ChickWeight$Time)) + geom_histogram(binwidth=1)
 + scale_x_continuous(breaks=pretty(ChickWeight$Time))

......以及pretty_breaks() ，它可以減少休息時間：

require(scales)
ggplot(data=ChickWeight, aes(ChickWeight$Time)) + geom_histogram(binwidth=1)
 + scale_x_continuous(breaks=pretty_breaks(ChickWeight$Time))

但是沒有一個解決方案采用任何看起來最大的論點。 然而，我的最大值是特殊的，這就是為什么我想將它包含在情節中。

Answer 1

一種解決方案是將pretty()和max()為breaks=值以在最大值處設置額外的tick。如果函數pretty()將產生大於最大值的值，則由於子集化將不顯示這些值。

ggplot(data=ChickWeight, aes(Time)) + geom_histogram(binwidth=1)+ 
  scale_x_continuous(breaks=c(pretty(ChickWeight$Time)[pretty(ChickWeight$Time)<max(ChickWeight$Time)],max(ChickWeight$Time)))