Я точно не знаю, в чем проблема, но вы можете просто удалить первый или последний элемент h$breaks
, чтобы построить точки в любой конечной точке, или вы можете удалить последний элемент, а затем добавить половину корзины ширина, чтобы построить их в средних точках:
plot(h$breaks[-length(h$breaks)] + 5, h$density)
Это только исправляет вашу конкретную проблему. В общем случае может быть лучший способ использования hist
, если вы немного расширили то, что пытаетесь сделать.