ggplot x 轴标签超出边界并被部分截断

Question

我的最小例子：

test_df <- data.frame(Year   = 1929:2021,
                      mydata = 1:93)

ggplot(test_df, aes(x = Year, y = mydata )) +
  geom_line() +
  labs(y = "S&P 500 EPS / Nominal GDP Normalized") +
  theme_bw()  +         
  theme(axis.title.x = element_text(size = 18, face = "bold"),
        axis.title.y = element_text(size = 18, face = "bold"),
        axis.text.x  = element_text(size = 14),
        axis.text.y  = element_text(size = 14)
  )

如果运行它，您将看到最后一个 x 轴标签 (2025) 仅部分可见 - 它在右侧被切断。如何使绘图区域稍微小一些，以便最后一个 x 轴标签可见？如果右侧有图例，这不会是问题，但鉴于我没有图例，似乎需要不同的解决方案。

真诚地提前致以非常感谢

托马斯·飞利浦

Answer 1

ggplot(test_df, aes(x = Year, y = mydata )) +
  theme(
        axis.text.x  = element_text(size = 14),
        plot.margin = margin(, 2, , , "cm")
  )

您可以使用主题系统中的边距功能。