ggplot2 交互仅使用第一个字符

Question

在一个项目中，我展示了条形图并使用交互命令对组进行排序，因为一个是另一个的严格子组。我不想打印出第一组的全名，因为这会占用很多空间。有没有办法将单词限制为第一个字符或类似的东西？

mtcars$name <- rownames(mtcars) 
ggplot(data = mtcars, aes(x=interaction(mtcars$cyl, mtcars$name)))+
geom_bar()+
    theme(axis.text.x = element_text(angle = 90, hjust = 1,vjust = 0.5))

例如，这里只有#汽缸是我感兴趣的，我只是使用汽车名称来订购它们。但是它们占用了很多空间。只写汽车的第一个字母就很理想了。所以我想以 8.A 为例。在我的原始数据中，第一个变量具有不同的长度（不只是 1 个字符，因为 #cylinder 在这里有）

感谢您的任何回答， 问候

Answer 1

您可以在scale_x_discrete 中使用正则表达式编辑标签：

library(ggplot2)

ggplot(data = mtcars, aes(x=interaction(mtcars$cyl, mtcars$name)))+
  geom_bar()+
  xlab('Interaction cyl vs Name') + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1,vjust = 0.5)) + 
  scale_x_discrete(labels = function(x) sub('(\\..).*', '\\1', x))

() 中的所有内容都称为捕获组，我们在其中指定要保留文本的哪一部分。在这里，我们提到我们希望将所有内容保留到一个点（即\\.，. 是正则表达式中的一个特殊字符，需要用\\ 进行转义），然后是另一个字符（.）。