ярлык оси y наивысшего значения не напечатан

Question

Я хочу навести часовые визиты на определенную веб-страницу своего сайта. Ось оси показывает часы (от 0 до 23), ось y показывает количество уникальных посещений.

Я подавляю оси в plot() и добавляю их с axis(). Я хочу только самые низкие и самые высокие у-значения обозначены: (.. Эллипсы в образце кода represend колонки я оставил это для лучшей наглядности структуры кода)

axis(2, 
    at = seq(min(...), max(...), 1), 
    labels = c(min(...), 
       rep.int("", max(...) - min(...) - 1), 
       max(...) 
       ) 
    ) 

Но в сюжете, метка в самом высоком значении не появляется:

Иногда (в зависимости от диапазона значений), я могу получить самую высокую метку значения, чтобы появиться б y меняет rep.int("" ... на rep.int(" ", т. е. маркирует тики пробелом, но это не работает всегда.

Почему R не печатает самую яркую этикетку? И, что еще более важно:

Как заставить R напечатать самую высокую метку?

---

Полный код примера:

sitzungen <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 8, 4, 0, 8, 3, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 2, 0, 0, 2, 0, 0, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 2, 0, 2, 2, 1, 0, 0, 0, 1, 0, 0, 1, 3, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 4, 1, 2, 1, 7, 7, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 3, 8, 4, 1, 2, 0, 1, 1, 0, 0, 5, 0, 3, 3, 2, 3, 1, 2, 0, 1, 2, 0, 0, 0, 1, 0, 1, 2, 3, 0, 0, 3, 1, 6, 3, 9, 1, 0, 2, 1, 4, 8, 2, 2, 2, 0, 0, 0, 2, 1, 3, 1, 1, 2, 1, 2, 3, 1, 4, 3, 0, 2, 3, 1, 3, 1, 5, 2, 0, 0, 1, 0, 1, 2, 1, 0, 3, 0, 1, 0, 3, 7, 2, 2, 1, 2, 2, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 12, 15, 2, 2, 1, 0, 0, 0, 0, 0, 2, 3, 0, 3, 0, 2, 1, 1, 2, 2, 4, 2, 1, 4, 2, 1, 2, 2, 1, 0, 0, 0, 7, 0, 2, 4, 2, 0, 2, 3, 5, 2, 1, 4, 4, 2, 0, 2, 4, 0, 0, 0, 0, 0, 0, 0, 1, 3, 0, 2, 1, 2, 1, 1, 2, 1, 4, 1, 1, 1, 0, 0, 3, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 
stunde <- rep(0:23, 20) 
stuendlich <- data.frame(cbind(stunde, sitzungen)) 
aggr <- aggregate(sitzungen ~ stunde, stuendlich, sum) 
aggr <- rbind(aggr, c(24, aggr[which(aggr$stunde == "23"),]$sitzungen)) 
plot(aggr, type = "s", xlim = c(0, 24), axes = FALSE, xlab = "Stunde", ylab = "Sitzungen", main = "Sitzungen pro Stunde (kumuliert)") 
axis(1, at = seq(0.5, 23.5, 1), labels = 0:23) 
axis(2, at = seq(min(aggr$sitzungen), max(aggr$sitzungen), 1), labels = c(min(aggr$sitzungen), rep.int(" ", max(aggr$sitzungen) - min(aggr$sitzungen) - 1), max(aggr$sitzungen))) 

Answer 1

Не используйте " " или ""; использовать NA:

axis(2, at = seq(min(aggr$sitzungen), max(aggr$sitzungen), 1), 
    labels = c(min(aggr$sitzungen), 
       rep.int(NA, max(aggr$sitzungen) - min(aggr$sitzungen) - 1), 
       max(aggr$sitzungen)))