Если вы хотите сохранить (возможную) окраску своей гистограммы, вы можете деактивировать границу и добавить ее себе сверху.
x <- rnorm(1000)
h <- hist(x, col="royalblue", border=NA, freq = T)
lines(rep(h$breaks, each=2)[-c(1,2*length(h$breaks))],
rep(h$counts, each=2), lwd=2)
# replace h$counts by h$density if freq=F