r - ggplot 2: ブレークを表示する方法

Question

ggplot2 で水平バーにブレークを表示できません。コードは次のとおりです。

dat <- data.frame(
    result = c(replicate(50, 'ok'), replicate(17, 'error'), replicate(35, 'notrun')),
    test = 'test',
    count = 'count'
)

ggplot(data=dat, aes(x=test, y=count, fill=result)) +
    geom_bar(stat="identity") +
    scale_fill_manual(values = c(ok = '#00BA38', error='#F8766D', notrun='gray')) +
    xlab("") + ylab("") +
    scale_x_discrete(label="") +
    scale_y_discrete(breaks = c(1, 7, 9)) +
    coord_flip()