ggsave() 不会将文本加粗，它会更改所有文本的字体而不仅仅是绘图标题

我正在 ggplot2 中制作图表ggsave()没有达到我的预期。

require(ggplot2)
require(showtext)

showtext_auto()
hedFont <- "Pragati Narrow"
font_add_google(
  name = hedFont,
  family = hedFont,
  regular.wt = 400,
  bold.wt = 700
)

chart <- ggplot(
  data = cars,
  aes(
    x = speed,
    y = dist
  )
) +
  geom_point() +
  labs(
    title = "Here is a title",
    subtitle = "Subtitle here"
  ) +
  theme(
    plot.title = element_text(
      size = 20,
      family = hedFont,
      face = "bold"
    ),
    axis.title = element_text(
      face = "bold"
    )
  )

ggsave(
  filename = "myplot",
  plot = chart,
  device = "png",
  path = "~/Desktop",
  width = 300,
  height = 200,
  units = "mm",
  dpi = 72
)

我期望图表的标题具有自定义字体。反而，ggsave()制作一个图表，其中所有文本都有字体。我希望轴标题是粗体的，但事实并非如此。

这是我运行时在 RStudio 查看器中看到的内容ggplot()里面的代码。

这是什么ggsave()产生。

I want ggsave()制作一个图表，其中只有图表标题具有字体，并且轴标题为粗体。

UPDATE: 我尝试了Tung的建议。我将 Google 字体下载到我的计算机上。这是我的新代码。

font_import(
  paths = "/usr/share/fonts/truetype/google-fonts/",
  recursive = T,
  prompt = F,
  pattern = "Pragati"
)
loadfonts(device = "pdf")
loadfonts(device = "postscript")

myFont <- "Pragati Narrow"

chart <- ggplot(
  data = cars,
  aes(
    x = speed,
    y = dist
  )
) +
  geom_point() +
  labs(
    title = "Here is a title",
    subtitle = "Subtitle here"
  ) +
  theme(
    plot.title = element_text(
      size = 20,
      family = myFont,
      face = "bold"
    ),
    axis.title = element_text(
      face = "bold"
    )
  )

ggsave(
  filename = "myplot2.png",
  plot = chart,
  device = "png",
  path = "~/Desktop",
  width = 300,
  height = 200,
  units = "mm",
  dpi = 72
)

似乎没有改变什么。

我在 RStudio 控制台中也没有看到任何错误或警告。

我使用时遇到了类似的问题extrafont包，其中我指定的字体将显示在 RStudio 查看器中，但当我保存为.png with ggsave()。上述答案都不适合我（字体已保存在我的extrafont数据库并指定base_family没用）。

我只需卸载它就可以让它工作ragg封装使用installr::uninstall.packages("ragg").

我不知道为什么会这样，如果有人对此有任何解释，我很想听听。