当前位置：首页 > wzjs >正文

做笔记网站网络渠道有哪些

wzjs 2025/8/31 5:31:19

做笔记网站,网络渠道有哪些,在网站做专题,手机怎么用wordpress前言以前绘图都默认英文，突然要求都改成中文，呆住。。。。。。。。。标题代码实现 ### 导入工具包 ### library(readr) library(dplyr) library(corrplot)df <- read_csv("./clinical.csv") df <- df %>% select(-id, -label)##…

前言

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

标题代码实现

### 导入工具包 ###
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()

查看全文

http://www.dtcms.com/wzjs/552942.html