I typically use R to create graphs with ggplot2, and they look fantastic when exported to PDF documents.

However, I encounter an issue when trying to incorporate these graphs into Word documents.

I usually export in PDF and resort to using the Snipping Tool and pasting them into Word, but this drastically reduces the quality.

Surprisingly, the quality is even worse than when I create graphs in Excel and transfer them to Word. Below you can see one one example

library(ggplot2)
set.seed(1234)

wdata = data.frame(
  sex = factor(rep(c("F", "M"), each=200)),
  weight = c(rnorm(200, 55), rnorm(200, 58)))

a <- ggplot(wdata, aes(x = weight))

a + geom_area(stat = "bin",
              color= "black", fill="#00AFBB")

Can someone help me with a method to transfer them to Word without losing their quality?