Укороченные ярлыки чувствовали только первые буквы

Question

Я хотел бы построить PCA, но из-за перекрывающихся надписей названия видов больше не читаются.Есть ли возможность сделать это более понятным?Например, используя первые буквы?

PCA, график растительности, наука:

Answer 1

Вы можете использовать abbreviate (и ggplot2 ).

PCA

p <-  prcomp(USArrests, scale=TRUE)

Plot

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))