Gostaria de plotar uma distribuição de contagens usando a função de gráfico de barras em R e subjacente a um boxplot para incluir informações sobre mediana, quartis e valores extremos. Uma solução não muito elegante para isso foi encontrada para histograma e boxplots:http://rgraphgallery.blogspot.com/2013/04/rg-plotting-boxplot-and-histogram.html.

Existem muitos lugares on-line onde é possível encontrar o argumento de que os dados numéricos devem ser plotados com histogramas, enquanto os dados categóricos devem ser plotados com gráficos de barras. Meus dados são numéricos e, de fato, em uma escala de proporção (como são contados), mas porque sãodiscreto, Quero colunas com espaços, não colunas que tocam, o que parece ser a única opção para o histograma ().

Atualmente, tenho o seguinte, mas o gráfico de barras e box não se alinham perfeitamente:

set.seed(476372)
counts1 <- rpois(10000,3)
nf <- layout(mat = matrix(c(1,2),2,1, byrow=TRUE),  height = c(3,1))
par(mar=c(3.1, 3.1, 1.1, 2.1))
barplot(prop.table(table(counts1)))
boxplot(counts1, horizontal=TRUE,  outline=TRUE,ylim=c(0,12), frame=F, width = 10)

Aqui está minha pergunta: como posso fazê-los alinhar?