将绘图窗口扩展到 ggplot 中的 x 轴标签之外

Question

在ggplot我有一个图表，其 x 轴标签超出了 RStudio 中的绘图窗口，即使我尝试导出图片并且无论我制作图片有多宽。以下是我当前使用limitsin 的解决方案scale_x_continuous。是否可以延长图片以便我可以捕获我的最后一个 x 轴标签（即 25021643）但不延长线段？

上面复制的代码：

library(ggplot2)
p <- 
  ggplot(NULL) + 
  xlab("x-axis") + 
  theme_bw() +
  scale_x_continuous(breaks = as.integer(seq(0,25021643,(25021643/4))), limits=c(0,26021643),labels = as.integer(seq(0,25021643,(25021643/4))), expand = c(0,0)) +
  scale_y_continuous(limits = c(-1, (nrow(chr5)+1)), expand = c(0,0))  +
  geom_hline(yintercept = -1) +
  geom_segment(aes(x = 0, y = -1, xend = 0, yend = -0.9)) +
  geom_segment(aes(x = 25021643, y = -1, xend = 25021643, yend = -0.9)) +
  theme(panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        panel.border=element_blank(),
        axis.ticks.y = element_blank(), 
        axis.title.y = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks.x = element_line(size=1), 
        axis.title.x = element_text(size=20),
        axis.text.x = element_text(size=20))
p

Answer 1

添加plot.margin=unit(c(0,20,0,0),"mm")似乎可以完成这项工作。