R 在Linux和Mac OSX上以不同的方式打印线型渲染

我在DigitalOcean服务器上开发和托管的闪亮应用程序有问题。根据我是在本地运行应用程序还是在DigitalOcean（Linux、Ubuntu）服务器上运行应用程序，Shining应用程序中呈现的绘图中的线型会有所不同

我在DigitalOcean上托管闪亮应用程序的设置基于

Linux（Ubuntu）服务器的错误线型截图：

使用正确的线型在本地（Mac OSX上）运行应用程序的屏幕截图：

还有其他人遇到过这个问题吗？如果有，还有其他人找到了解决这个问题的方法吗

特别是，来自Mac OS X系统的绘图是正确的，而来自Linux服务器的绘图是不正确的。Linux版本中虚线之间的间隔非常短，这使得阅读变得更加困难

我想尽我最大的能力添加一个最小的可复制示例。下面是一个例子，当我在DigitalOcean和Local的Ubuntu服务器上运行时，一个应用程序出现了这个问题

用户界面

服务器.R

    library(magrittr)
    library(reshape2)
    library(ggplot2)
    library(dplyr)

    function(input, output, session) {

      WorldPhones %>%
        as.data.frame() %>%
        tibble::rownames_to_column('year') %>%
        reshape2::melt(variable.name='continent') %>%
        mutate(year = as.integer(year)) -> wp

      output$plot1 <- renderPlot({
        ggplot(wp, aes(x=year, y=value, color = continent, linetype = continent)) +
          geom_line()
      }, res=200)

    }

库（magrittr）
图书馆（E2）
图书馆（GG2）
图书馆（dplyr）
功能（输入、输出、会话）{
世界电话%>%
as.data.frame（）%>%
TIBLE:：行名称到列（'year'）%>%
重塑2:：melt（变量.name='Continental'）%%>%
变异（年=整数（年））->wp
输出$plot1能否显示正在使用的绘图代码的示例？制作一个不依赖于“封闭源代码”应用程序的简单示例应该不难。投票决定是否关闭。
    library(magrittr)
    library(reshape2)
    library(ggplot2)
    library(dplyr)

    function(input, output, session) {

      WorldPhones %>%
        as.data.frame() %>%
        tibble::rownames_to_column('year') %>%
        reshape2::melt(variable.name='continent') %>%
        mutate(year = as.integer(year)) -> wp

      output$plot1 <- renderPlot({
        ggplot(wp, aes(x=year, y=value, color = continent, linetype = continent)) +
          geom_line()
      }, res=200)

    }