小编Sta*_*Man的帖子

当有一些极端计数时，我无法缩放条形图。当它上升得更高时，很难看到较低的计数并在绘图上比较它们。

我想打破条形图以重新缩放它（我知道重新缩放是不好的绘图，但我只想在需要时这样做）。

我在所附链接中找到的类似于下图的东西会很棒。

https://alesandrab.wordpress.com/2014/03/17/broken-column-and-bar-charts/

我想在其中一个躲闪的酒吧上特别分层,我怎么能这样做？

在下面的例子中,我想在条形图上的cat3组中专门针对A3进行图层化.我知道cat3的x = 3,但是由于闪避和条宽的宽度相互依赖,所以很难将目标锁定在一个条上.有没有可用于计算x坐标的公式？我在下面提供了一个示例代码.谢谢

x1 <- c(15,75,28,60,80,100)
x2 <- c('cat1','cat2','cat3','cat1','cat2','cat3')
x3 <- c('A1','A2','A3','A4','A1','A2')
data=data.frame(cbind(x1,x2,x3),stringsAsFactors = F)
data$x1 <- as.numeric(data$x1)
data$x2 <- factor(data$x2)
data$x3 <- factor(data$x3)

ggplot(data,aes(y = x1, x = x2)) + geom_bar(stat = 'identity', 
                                 aes(fill = data$x3, width = 0.5), 
                                 position = position_dodge(width = 0.8))