郎溪做网站静安广州网站建设

前言

以前绘图都默认英文，突然要求都改成中文，呆住。。。。。。。。。

标题代码实现

### 导入工具包 ###
library(readr)
library(dplyr)
library('corrplot')df <- read_csv("./clinical.csv")
df <- df %>% select(-id, -label)### 计算取得相关性及相关性显著性 ###
corr <- cor(df)
corrl <- cor.mtest(df)

# 上面这段代码可以显示我们可用的字体
library(extrafont)
font_import()
loadfonts()
fonts()# if (!require(showtext)) install.packages("showtext")
library(showtext)
# 加载中文字体（例如黑体）
showtext_auto()
font_add("SimHei", "SimHei.ttf")  # 如果系统中没有黑体字体，可以下载字体文件library(Cairo)
CairoPDF("figure.pdf", width = 8, height = 6, family = "SimHei")
corrplot(corr, method = 'ellipse', order = 'AOE', type = 'upper',tl.col = 'black',addCoef.col = "black",diag =FALSE, family = "SimHei" )
dev.off()