Suponha que eu precise plotar um conjunto de dados como abaixo:

set.seed(1)
dataset <- sample(1:7, 1000, replace=T)
hist(dataset)

Como você pode ver no gráfico abaixo, as duas caixas mais à esquerda não têm espaço entre elas, diferentemente do resto das caixas.

Eu tentei mudar o xlim, mas não funcionou. Basicamente eu gostaria de ter cada número (1 a 7) representado como um escaninho, e adicionalmente, eu gostaria que quaisquer dois escaninhos adjacentes tivessem espaço entre eles ... Obrigado!