缩短标签仅首字母

Question

我想绘制一个PCA，但是由于标签重叠，物种名称不再真正可读。有没有办法使它更清楚？例如使用首字母？

PCA小区植被科学：

Answer 1

您可以使用abbreviate（和ggplot2）。

PCA

p <-  prcomp(USArrests, scale=TRUE)

情节

library(ggbiplot) 
library(ggrepel)
p1 <- ggbiplot(p) + 
       geom_text_repel(aes(label = rownames(USArrests)))
p2 <- ggbiplot(p) + 
       geom_text_repel(aes(label = abbreviate(rownames(USArrests), minlength = 1)))

library(patchwork)
p1 + p2 # compare the two plots

---

使用base R

biplot(p, xlabs = abbreviate(rownames(USArrests), minlength = 1))