Сократить табличный график X меток

Question

У меня есть таблица barplot (базовая таблица с подсчетами каждого уровня для фактора), где имена категорий вдоль оси 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)))

EDIT

Теперь, когда я думаю об этом, вам, вероятно, понадобитсяполные строки для table, чтобы соответствовать их правильно.В этом случае возможно разделить его на отдельные шаги:

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

Вы также можете передать их непосредственно в barplot:

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