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

Question

使用 Hadley 网站 中的示例：

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

创建：

我的问题：创建绘图对象后是否可以确定刻度线标记的内容？ （我想删除第一个自动生成的断点）

背景：在上图中，可以清楚地看到 x 轴断点位于 2 到 9 处。要手动获取此断点，请使用：

< code>m +scale_x_continuous(breaks = c(2:9))

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

myBreaks <-tickMarks(m)

以便我可以随后调用：

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

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

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