问题复现

# 导入必要的包
library(ggplot2)

# 设置主题样式
theme_set(theme_minimal(base_size = 15))

# 创建一个简单的折线图
ggplot(data = data.frame(x = c(1, 2, 3), y = c(1, 2, 3)), aes(x = x, y = y)) +
  geom_line(color = "blue") +
  labs(title = "欢迎关注公众号：pythonic生物人", color = "red") +
  theme(plot.title = element_text(hjust = 0.5, color = "red"),
        axis.text = element_text(color = "black"))

使用R绘图时，当涉及到中文字体时，常常出现上图中的“豆腐块”，下文介绍一种超级简单解决方法。

---

问题解决 

# 导入必要的包
library(ggplot2)
library(showtext) 
showtext_auto()

# 设置主题样式
theme_set(theme_minimal(base_size = 15))

# 创建一个简单的折线图
ggplot(data = data.frame(x = c(1, 2, 3), y = c(1, 2, 3)), aes(x = x, y = y)) +
  geom_line(color = "blue") +
  labs(title = "欢迎关注公众号：pythonic生物人", color = "red") +
  theme(plot.title = element_text(hjust = 0.5, color = "red"),
        axis.text = element_text(color = "black"))

主要借助showtext包，两行代码library(showtext) showtext_auto()解决问题，

关于showtext不过多介绍，

showtext makes it easy to use various types of fonts (TrueType, OpenType, Type 1, web fonts, etc.) in R plots. The motivation to develop this package is that using non-standard fonts in R plots (especially for PDF device) is not straightforward, for example, when creating PDF with Chinese characters. This is because most of the standard fonts used by pdf() do not contain Chinese character glyphs, and users could hardly use system fonts in R.

GitHub - yixuan/showtext: Using Fonts More Easily in R Graphs

更多干货👇👇👇