在R中采购脚本时，德语Umlauts在ggsave中不起作用

library(ggplot2)

# 创建一个简单的图形
p <- ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point()

# 定义文件路径和文件名
dir_path <- "C:/Users/YourName/Documents/"
file_name <- "德语图形_umlauts.png"

# 构建完整的文件路径
file_path <- file.path(dir_path, file_name)

# 保存图形
ggsave(file_path, plot = p)

# 设置文件路径和文件名的编码为UTF-8
dir_path <- "C:/Users/YourName/Documents/"
file_name <- "德语图形_umlauts.png"

# 构建完整的文件路径
file_path <- file.path(dir_path, file_name)

# 确保文件路径和文件名的编码是UTF-8
file_path <- enc2utf8(file_path)

# 保存图形
ggsave(file_path, plot = p)

library(knitr)

# 创建一个简单的图形
p <- ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point()

# 定义文件路径和文件名
dir_path <- "C:/Users/YourName/Documents/"
file_name <- "德语图形_umlauts.png"

# 构建完整的文件路径
file_path <- file.path(dir_path, file_name)

# 使用knitr保存图形
knitr::opts_chunk$set(out.width = '100%', fig.path = file_path)
knitr::fig_chunk("德语图形_umlauts", output = file_path)