带有投影仪演示的RMarkdown生成带有错误边距的ggplot图。我该怎么办？

Question

我正在使用带有投影仪演示的RMarkdown来生成pdf格式的幻灯片。当我在RStudio中检查代码结果时，一切顺利。但是，当我编写代码时，生成的图的边距非常差，并且标题也被切除，如您在此图中看到的那样：

https://raw.githubusercontent.com/neylsoncrepalde/neylsoncrepalde.github.io/master/img/bad_graph.png

我已经尝试过重新安装rmarkdown，重新安装R，重新安装RStudio均未成功。我正在使用MacOS 10.13.6（High Sierra）的2012 Macbook上运行。我用自制软件安装了R和RStudio。这是我使用的代码。

    ---
    title: "Test of bad margins graphs"
    output: 
      beamer_presentation:
        keep_tex: true
    ---

    ```{r setup, include=FALSE}
    knitr::opts_chunk$set(echo = FALSE)
    library(ggplot2)
    data("diamonds")
    ```

    ##
    ```{r graph1}
    ggplot(diamonds, aes(x = carat, y = price)) +
      geom_point() +
      labs(title = "Diamonds plot", subtitle = "A nice scatterplot with 
    ggplot2")
    ```

任何帮助都会很棒！预先感谢！