相关疑难解决方法(0)

我想制作一个条形图,其中一个值比所有其他值大得多.有没有一种不连续的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？我想不出任何其他绘制数据的方式(除了转换它,我不想做)