缩短表格X标签

Question

我有一个表格条形图（基本表格中包含每个级别的计数），其中沿x轴的类别名称比我想要的长。即使将它们垂直并调整边距也是如此。

如何将表中的这些标签或每个类别名称缩短为前n个字符？

示例：
如何使barplot(table(factor(c("azzzz", "bzzzz", "bzzzz", "czzzz"))))的标签成为a，b和c。

Answer 1

只需要传递给table的矢量的子串：

barplot(table(substr(c("azzzz", "bzzzz", "bzzzz", "czzzz"),1,1)))

修改

现在我考虑一下，您可能需要table的完整字符串才能正确匹配它们。在这种情况下，可以将其拆分为单独的步骤：

tbl <- table(c("azzzz", "bzzzz", "bzzzz", "czzzz"))
names(tbl) <- substr(names(tbl),1,1)
barplot(tbl)

您也可以将它们直接传递到barplot：

barplot(...,names.arg = substr(...,1,1))