Twitter helped to get the answer. #Rstats community is the best.
here are the details
Twitter Help by RStats Community
Additionally please refer ragg Package
Solution
library(ggplot2)
library(ragg)
file <- knitr::fig_path('.png')
agg_png(file)
ggplot(NULL, aes(x = 1, y = 1)) + ylim(0.8, 1.2) +
theme(axis.title = element_blank(), axis.ticks = element_blank(),
axis.text = element_blank()) +
annotate("text", 1, 0.9, family = "Sahitya", size = 15,
label = "????? ")
invisible(dev.off())
However I observed you have to download and add the font first.
Hence removed :
## Sahitya font for Devanagari characters
font_add_google("Sahitya")
showtext_auto()
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…