我正在使用命令scale_x_break
来设置一个轴断点。但是,当前代码在轴断裂后的“极值”部分中有太多的勾号。该命令包含一个参数ticklabels
,但是由于某种原因,我不能使用它来更改“极端”勾标,即-1000、-1010、-1020、-1030、-1040和-1050。但是,该命令在轴断裂之前添加/移除勾标时工作得很好。例如:代码ticklabels = c(-5, -1015)
的部分为-5添加了一个勾标,并在轴断裂之前移除所有其他的勾标,但在轴断裂后不添加-1015或删除任何勾标。
理想情况下,“极限”面板将有3个勾号:-1000,-1025和-1050。
library(ggplot2)
library(ggbreak)
library(patchwork)
x1 <- c('A', 'B','C', 'D', 'E', 'F', 'G')
y1 <- c(-9.375783475, 6.21616158, -19.32680732, -8.727239523, 13.93210958, -1051.866122, -75.11041633)
df1 <- data.frame(x1, y1)
p1 <- ggplot(df1, aes(y1, x1)) + geom_col(orientation="y")
p2 <- p1 + scale_x_break(c(-1000, -80), ticklabels = c(-5, -1015)) + xlab("relative variable importance") + ylab("commodity network")
p2
发布于 2022-03-09 13:08:53
可以将具有指定中断的scale_x_continuous
添加到p2
p2 + scale_x_continuous(breaks = c(-1000, -1025, -1050))
https://stackoverflow.com/questions/71415189
复制