R {ggplot2}是否可以查询绘图的刻度线是什么?

时间:2011-06-28 04:25:47

标签: r ggplot2 axis-labels

使用Hadley's website中的示例:

> (m <- qplot(rating, votes, data=subset(movies, votes > 1000), na.rm = T))

创造了:

example figure

我的问题:创建绘图对象后是否可以确定刻度线的标记? (我想删除第一个自动生成的断点)

背景:在上图中,可以清楚地看到x轴断点为2到9.要手动获取,请使用:

m + scale_x_continuous( breaks = c(2:9) )

但我想从图中确定刻度线是什么,以便我可以删除其中的一些。换句话说,是否有一个函数将返回刻度线:

myBreaks <- tickMarks(m)

这样我随后可以打电话:

m + scale_x_continuous( breaks = myBreaks[-1] )

我从数组中删除了第一个中断。

1 个答案:

答案 0 :(得分:3)

我不确定这是你想要的,但你可以通过以下方式进行攻击:

# 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轴。