Оси в стиле R с ggplot

Question

Используя ggplot, возможно ли получить оси X / Y в стиле R, которые не встречаются в начале координат и вместо этого состоят из двух отключенных диапазонов, как в следующем примере?

Причина здесь в основном в том, чтобы графики ggplot выглядели согласованно рядом с диаграммами pure-R.

Answer 1

Попробуй это,

library(ggplot2)

d <- data.frame(x=1:10, y=rnorm(10))

base_breaks_x <- function(x){
  b <- pretty(x)
  d <- data.frame(y=-Inf, yend=-Inf, x=min(b), xend=max(b))
  list(geom_segment(data=d, aes(x=x, y=y, xend=xend, yend=yend), inherit.aes=FALSE),
       scale_x_continuous(breaks=b))
}
base_breaks_y <- function(x){
  b <- pretty(x)
  d <- data.frame(x=-Inf, xend=-Inf, y=min(b), yend=max(b))
  list(geom_segment(data=d, aes(x=x, y=y, xend=xend, yend=yend), inherit.aes=FALSE),
       scale_y_continuous(breaks=b))
}

ggplot(d, aes(x,y)) +
  geom_point() +
  theme_bw() +
  theme(panel.border = element_blank(),
       panel.grid.major = element_blank(),
       panel.grid.minor = element_blank()) +
  base_breaks_x(d$x) +
  base_breaks_y(d$y)

Редактировать: с тех пор связанная с этим проблема обсуждалась в пакете ggtheme и потенциально обеспечивает более чистое решение (нет необходимости явно предоставлять данные для функции breaks).