вы можете указать разрывы вручную:
ggplot(quakes, aes(long, lat)) + geom_point(shape = 1) +
scale_x_continuous(breaks = c(170, 177.5, 185)) +
scale_y_continuous(breaks = c(-35, -25, -15)) +
opts(panel.grid.minor = theme_blank(),
panel.grid.major = theme_line("black", size = 0.1))
тогда, это то, что вы хотите?
pts <- data.frame(x=c(170, 170, 170, 170, 177.5, 185),
y=c(-35, -25, -15, -35, -35, -35),
xend=c(185, 185, 185, 170, 177.5, 185),
yend=c(-35, -25, -15, -15, -15, -15))
ggplot(quakes, aes(long, lat)) + geom_point(shape = 1) +
geom_segment(data=pts, aes(x, y, xend=xend, yend=yend)) +
opts(panel.grid.minor = theme_blank(),
panel.grid.major = theme_blank())