在 R 中绘制图形时，默认的图形设备并不直接支持中文字符，这会导致中文标签无法正确显示，通常会出现乱码。为了在 R 图形中正确显示中文，需要进行一些配置调整。

以下是实现中文支持的常见方法：

🎯 一、设置中文字体

R 使用的默认字体可能不支持中文字符，因此需要指定一个支持中文的字体。常见的中文字体有：

  • Windows 系统："SimHei"、"Microsoft YaHei"、"STHeiti" 等
  • macOS 系统："STHeiti"、"Songti SC" 等
  • Linux 系统："WenQuanYi Zen Hei"、"AR PL UMing CN" 等

1. 检查系统中是否有中文字体

首先，我们可以检查一下系统中是否安装了中文字体。

# 查看系统中可用的字体
windowsFonts()  # 对于 Windows 系统

如果是 macOS 或 Linux 系统，使用以下命令：

# macOS 或 Linux 系统中查看可用字体
library(extrafont)
font_import()  # 导入所有可用字体（需要在 R 中安装 `extrafont` 包）
fonts()

🎯 二、在绘图中使用中文

以下是设置中文字体并绘制图形的步骤。

1. Windows 系统：使用 windowsFonts() 函数

在 Windows 上，我们可以使用 windowsFonts() 来指定中文字体。

示例：在 Windows 上绘制带中文的图形

# 设置中文字体
windowsFonts(myFont = windowsFont("Microsoft YaHei"))

# 创建数据
data <- c(10, 20, 30, 40)
labels <- c("一", "二", "三", "四")

# 绘制条形图，添加中文标签
barplot(data, names.arg = labels, col = rainbow(length(data)), main = "条形图示例", ylab = "值", xlab = "类别", family = "myFont")
  • family = "myFont"：设置字体为 Microsoft YaHei（微软雅黑）。

2. macOS 和 Linux 系统：使用 par() 函数

对于 macOS 和 Linux 系统，可以使用 par(family = "STHeiti") 来指定字体。

示例：在 macOS 或 Linux 上绘制带中文的图形

# 设置中文字体
par(family = "STHeiti")

# 创建数据
data <- c(10, 20, 30, 40)
labels <- c("一", "二", "三", "四")

# 绘制条形图，添加中文标签
barplot(data, names.arg = labels, col = rainbow(length(data)), main = "条形图示例", ylab = "值", xlab = "类别")
  • family = "STHeiti"：指定中文字体。

🎯 三、使用 ggplot2 包绘制中文图形

如果你使用的是 ggplot2 包，处理中文的方式稍微不同，依然需要设置字体。

1. 加载 ggplot2 包并指定中文字体

# 安装和加载 ggplot2 包
install.packages("ggplot2")
library(ggplot2)

# 设置中文字体
theme_set(theme_gray(base_family = "Microsoft YaHei"))

# 创建数据
data <- data.frame(
  category = c("一", "二", "三", "四"),
  value = c(10, 20, 30, 40)
)

# 使用 ggplot2 绘制条形图
ggplot(data, aes(x = category, y = value, fill = category)) +
  geom_bar(stat = "identity") +
  ggtitle("条形图示例（ggplot2）") +
  xlab("类别") +
  ylab("值") +
  theme_minimal()
  • theme_set(theme_gray(base_family = "Microsoft YaHei"))：为 ggplot2 设置默认的中文字体为 Microsoft YaHei。

🎯 四、使用 extrafont 包

如果你遇到无法加载中文字体的情况，可以使用 extrafont 包来解决字体问题。

1. 安装和加载 extrafont 包

# 安装 extrafont 包
install.packages("extrafont")

# 加载 extrafont 包
library(extrafont)

# 导入系统字体
font_import()  # 导入所有可用字体

# 加载字体
loadfonts(device = "win")  # Windows 系统
loadfonts(device = "pdf")  # 如果要生成 PDF 文件

2. 在 ggplot2 中使用 extrafont 字体

# 使用 extrafont 设置字体
theme_set(theme_gray(base_family = "STHeiti"))

# 创建数据框
data <- data.frame(
  category = c("一", "二", "三", "四"),
  value = c(10, 20, 30, 40)
)

# 绘制条形图
ggplot(data, aes(x = category, y = value, fill = category)) +
  geom_bar(stat = "identity") +
  ggtitle("条形图示例（使用 extrafont）") +
  xlab("类别") +
  ylab("值") +
  theme_minimal()
  • 使用 extrafont 后，你可以在任何图形中使用中文字体。

✅ 五、总结

  1. Windows 系统：可以通过 windowsFonts() 设置中文字体，如 Microsoft YaHei 或 SimHei。
  2. macOS 和 Linux 系统：通过 par(family = "STHeiti") 设置中文字体。
  3. ggplot2 包：使用 theme_set(theme_gray(base_family = "Microsoft YaHei")) 设置中文字体。
  4. extrafont 包：提供了跨平台的字体支持，可以通过 font_import() 和 loadfonts() 导入和加载系统字体。

这样设置后，R 绘图中的中文应该能正常显示。希望这些方法对你有帮助！如果有任何问题，随时告诉我！😊