怎么解决R画图显示不全

Question

Rstudio用corrplot画相关图，手动添加底部标签后显示不全，怎么解决？

library(corrplot)
sim_matrix <- read.csv("similarity_matrix.csv", row.names=1)
![img](https://img-mid.csdnimg.cn/release/static/image/mid/ask/73e41c39f3ff4cfdb37ca3fcdd540d7f.png "#left")

# 替换 NA 值为 0
sim_matrix[is.na(sim_matrix)] <- 0
# 设置布局，确保有足够的空间显示标签
par(mar = c(12, 5, 5, 0) ) # 调整图形边距
corrplot(sim_matrix, type = 'lower', 
         order = 'hclust', tl.col = 'blue', 
         cl.ratio = 0.2, tl.srt = 45, col = COL2('PuOr', 10), 
         cl.pos = 'r', tl.pos ='n', is.corr = FALSE, col.lim = c(0, 1))

# 手动添加标签
par(xpd = TRUE)
# 使用text添加底部标签
text(x = seq(1, 19), y = rep(1, 19), labels = colnames(sim_matrix), srt = 45, adj = 1, cex = 0.8)
text(x = rep(0, 19), y = seq(1, 19), labels = rownames(sim_matrix), adj = 1, cex = 0.8)

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

要解决R画图显示不全的问题，可以尝试调整图形的边距和尺寸。在上述代码中，已经通过par(mar = c(12, 5, 5, 0))调整了图形边距，但仍然显示不全。可以尝试进一步调整边距和尺寸，例如：

par(mar = c(15, 5, 5, 5)) # 调整图形边距
par(oma = c(3, 3, 0, 0)) # 调整图形外边框的空白区域

将这两行代码添加到原始代码的相应位置，然后重新运行，看是否能解决显示不全的问题。如果仍然无法解决，可以尝试调整图形尺寸，例如：

png("corrplot.png", width = 1000, height = 1000, res = 100) # 创建一个PNG图形文件，设置宽度、高度和分辨率

将这行代码添加到原始代码的开头，然后重新运行。这将生成一个PNG格式的图形文件，可以在其他软件（如Adobe Illustrator）中查看和编辑。