Ответ 1
Это не похоже на задание для гистограммы - событие не является непрерывной переменной. Более подходящим может быть штрих-код или точка-точка.
Некоторые фиктивные данные
set.seed(123)
vec <- sample(1:9, 100, replace = TRUE)
vec <- factor(vec, labels = paste("My long event name", 1:9))
Шрифт создается через функцию barplot() - мы предоставляем ему подсчеты каждого события, используя функцию table() для удобства. Здесь нам нужно повернуть метки с помощью las = 2 и создать дополнительное пространство меток в поле
## lots of extra space in the margin for side 1
op <- par(mar = c(10,4,4,2) + 0.1)
barplot(table(vec), las = 2)
par(op) ## reset
Точечная точка создается через функцию dotchart() и имеет дополнительное удобство сортировки полей графика для нас
dotchart(table(vec))
Долото имеет преимущество перед штриховым рисунком, используя гораздо меньше чернил для отображения той же информации и фокусируется на различиях в подсчетах по группам, а не на величинах счетчиков.
Обратите внимание, как я настроил данные как фактор. Это позволяет хранить метки событий в качестве ярлыков для фактора - таким образом автоматизируя маркировку осей на графиках. Это также естественный способ хранения данных, которые, как я понимаю, у вас есть.