使用来自的示例哈德利的网站 http://had.co.nz/ggplot2/scale_continuous.html:
> (m <- qplot(rating, votes, data=subset(movies, votes > 1000), na.rm = T))
这会创建:
我的问题:创建绘图对象后是否可以确定刻度标记的内容? (我想删除第一个自动生成的断点)
背景:在上图中,我们可以清楚地看到 x 轴中断位于 2 到 9 处。要手动获取此值,请使用:
m + scale_x_continuous( breaks = c(2:9) )
但我想从图中确定刻度线是什么,以便我可以删除其中一些。换句话说,是否有一个函数会返回刻度线:
myBreaks <- tickMarks(m)
这样我就可以随后调用:
m + scale_x_continuous( breaks = myBreaks[-1] )
我从数组中删除了第一个中断。
我不确定这是否是您想要的,但您可以通过以下方式进行破解:
# drop first break
sx <- scale_x_continuous()
sx$.tr$input_breaks <- function(., range) grid.pretty(range)[-1]
m <- qplot(rating, votes, data=subset(movies, votes > 1000), na.rm = T)
m + sx
# reduce the breaks into half
sx$.tr$input_breaks <- function(., range) {
r <- grid.pretty(range); r[seq_len(length(r)/2)*2]
}
m + sx
# set the (rough) number of breaks
sx$.tr$input_breaks <- function(., range) pretty(range, 3)
m + sx
但请注意,这也会影响 y 轴......
这可能是制作您自己的变换对象的简单方法。
TransIdentity2 <- Trans$new("identity2", "force", "force", "force")
TransIdentity2$input_breaks <- function(., range) pretty(range, 3)
m + scale_x_continuous(trans="identity2")
在这种情况下,它不会影响 y 轴。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)