请问使用ggplot 2，我可以在轴上插入一个断点吗？

Question

使用ggplot 2，我可以在轴上插入一个断点吗？

我想制作一个条形图，其中一个值比所有其他值都大得多。有不连续y轴的方法吗？我的数据如下：

df <- data.frame(a = c(1,2,3,500), b = c('a1', 'a2','a3', 'a4'))p <- ggplot(data = df, aes(x = b, y = a)) + geom_bar() p 
<- p + opts(axis.text.x=theme_text(angle= 90, hjust=1))  + coord_flip()p

有什么方法可以让我的轴从1-10，然后490-500开始运行吗？我想不出任何其他方法来绘制数据(除了转换数据，这是我不想做的)。

[编辑2019-05-06]：

8年后，需要对上述代码进行修改，使其与ggplot2为了创建相同的图表：

library(ggplot2)ggplot(df) + 
  aes(x = b, y = a) +
  geom_col() +
  coord_flip()