r - 如何使用 factoextra 包将斜体字体放入树状图中?
问题描述
使用fviz_dend()
factoextra 包的功能,我创建了一个可以在问题末尾的图像中看到的树状图。
但是,我不能将每个物种的名称都用斜体字表示。我测试了这个element_text(face = 'italic')
函数,但它只适用于 y 轴标题。如果有人对用斜体字留下物种名称有任何建议,我表示感谢。
我相信这是涉及fviz_dend()
功能的东西,但我还没有找到任何关于它的东西。在下面可以找到我使用的代码、生成的图像以及我访问的一些链接,以期找到有关它的信息。
构建表格并准备数据以绘制树状图:
# creating variables
Saccharomyces_cerevisiae <- c(67, 37, 88, 15, 46)
Drosophila_melanogaster <- c(134, 121, 93, 133, 104)
Caenorhabditis_elegans <- c(160, 169, 182, 179, 174)
Xenopus_tropicalis <- c(197, 200, 154, 165, 163)
Mus_musculus <- c(67, 48, 64, 16, 36)
Danio_rerio <- c(176, 189, 200, 152, 184)
# creating data.frame
df <- data.frame(Saccharomyces_cerevisiae,
Drosophila_melanogaster,
Caenorhabditis_elegans,
Xenopus_tropicalis,
Mus_musculus,
Danio_rerio)
# naming the lines
rownames(df) <- c("ion1","ion2","ion3","ion4","ion5")
# standardizing by columns
df <- scale(df)
# converting columns to rows
df <- t(df)
# generating distance matrix of lines
df.dist <- dist(df, method = "euclidean")
# cluttering
hca <- hclust(df.dist, method = "ward.D2" )
绘制树状图:
# Loading packages
library(factoextra)
library(ggplot2)
# Creating dendrogram
fviz_dend(hca,
cex = 0.4,
k = 2,
labels_track_height = -0.485,
k_colors = c("blue","#006600"),
rect = TRUE,
rect_fill = TRUE,
rect_border = c("blue","#006600"),
color_labels_by_k = TRUE,
main = "",
ylab = "Linkage distance",
xlab = "") +
scale_y_continuous(breaks = seq(-12, 5, by = 1), limits=c(-12,5)) +
theme_classic() +
theme(axis.title.y = element_text(size = rel(0.7), color = "black", face = 'italic'),
axis.title.x = element_text(size = rel(0.7), color = "black"),
axis.text.x = element_text(size = rel(0.5),color = "black"),
axis.text.y = element_text(size = rel(0.5),color = "black")) +
ggsave("dendrogram.png", width = 5, height = 5, units = "cm", dpi=300)
树状图
我搜索的一些来源:
https://www.rdocumentation.org/packages/factoextra/versions/1.0.7/topics/fviz_dend
https://cran.r-project.org/web/packages/factoextra/factoextra.pdf
https://www.datanovia.com/en/lessons/examples-of-dendrograms-visualization/
解决方案
我在一个非常相似的帖子中得到了解决方案:
如何制作斜体的图表字体?(ggplot2 和 factoextra 包)
以下是解决方案:
# Loading packages
library(factoextra)
library(ggplot2)
# creating dendrogram
graph <- fviz_dend(hca,
cex = 0.4,
k = 2,
labels_track_height = -0.485,
k_colors = c("blue","#006600"),
rect = TRUE,
rect_fill = TRUE,
rect_border = c("blue","#006600"),
color_labels_by_k = TRUE,
main = "",
ylab = "Linkage distance",
xlab = "") +
scale_y_continuous(breaks = seq(-12, 5, by = 1), limits=c(-12,5)) +
theme_classic() +
theme(axis.title.y = element_text(size = rel(0.7), color = "black", face = 'italic'),
axis.title.x = element_text(size = rel(0.7), color = "black"),
axis.text.x = element_text(size = rel(0.5),color = "black"),
axis.text.y = element_text(size = rel(0.5),color = "black"))
# solution
graph$layers[[2]]$aes_params$fontface <- "italic"
# plotting
graph
# saving
ggsave("dendrogram.png", width = 5, height = 5, units = "cm", dpi=300)
推荐阅读
- java - 为什么 Liveness / Readiness 探测失败?
- sqlalchemy - sqlalchemy.exc.InternalError: (psycopg2.errors.InternalError_) 找不到从未知到描述枚举的转换函数
- ios - 我想在 Xcode 上使用 Swift 让我的暗模式同时在所有视图控制器上工作。我该怎么做?
- sql - 在 Quill SQL 中连接多个中缀
- python-3.x - 嘿,我需要在列表中输入单词,然后计算它们并打印该列表中有多少项目而不计算重复项
- firebase - Firestore 安全规则:更新文档安全规则
- python-3.x - Python - Tkinter - 粘贴png透明图像鼠标坐标和调整大小
- google-cloud-platform - 我可以从 Google Cloud 的 AutoML Vision 计算 AUC 值和 ROC 曲线吗
- javascript - 为什么在js中使用cloneNode方法时无法设置我的节点克隆的id?
- oracle - 如何使用 CASE-operator 根据给定的条件生成不同的序列