r - 重叠轴标签取决于窗口大小

Question

如其他一些问题所示，在 ggplot2 中，当窗口尺寸非常小且刻度/标签数量非常大时，轴上的标签可能会重叠:

x <- data.frame(x1=1:100,x2=1:100)
ggplot(x, aes(x1,x2))+geom_point() +
scale_x_continuous(breaks = x1[x1 %% 2 == 0])

在通用绘图中，当我们更改窗口大小时(并且绘制所有刻度)，标签的数量会自动调整:

plot(x1,x2, xaxt="n")
axis(1, at = x1[x1 %% 2 == 0], labels = x1[x1 %% 2 == 0])

因此，假设缩写标签或改变它们的角度(只有少数)不是很有效，是否可以设置 ggplot2 以根据窗口大小删除一些标签？强制 ggplot2 像通用图一样使用react？

包含计算标签数量并使其适应窗口大小的解决方案很复杂，因为它取决于外部因素(屏幕大小、使用的数据集...)

Answer 1

不是针对每个可能的窗口大小自动调整，但想法可能会有所帮助。您可以使用 labels = 来抑制某些标签:

exclude_labels <- function(x, step) {x[-seq.int(1, length(x), step)] <- ""; x}
ggplot(x, aes(x1,x2))+ geom_point() +
scale_x_continuous(breaks = x$x1[x$x1 %% 2 == 0], 
                   labels = exclude_labels(x$x1[x$x1 %% 2 == 0], 4))