Dos gráficos de barras horizontales con eje compartido en ggplot2 (similar a la pirámide de población)

Quiero trazar dos variables en una parcela similar a una pirámide de población similar a esta:

Esta trama escasi Allí, pero no del todo, por las razones que a continuación voy a listar

Produje esta trama con el siguiente código:

DATA <- data.frame(
    state = c("AK", "TX", "CA", "MT", "NM", "AZ", "NV", "CO", "OR", "WY", "MI", "MN", "UT", "ID", "KS", "NE", "SD", "WA", "ND", "OK"),
    sales_staff = c(20,30,40,10,15,35,18,25,22,7,12,22,3,4,5,8,14,28,24,32)
)

set.seed(1)
DATA$sales <- DATA$sales_staff * 50 + (runif(nrow(DATA)) * 1000)

# Order the state factor by number of sales staff so that it is plotted in that order
DATA$state <- factor(DATA$state, levels = DATA[order(DATA$sales_staff),"state"])

Quiero "pegar" dos gráficos seguidos, así que uso la función multiplicador () de forma literalhttp://www.cookbook-r.com/Graphs/Multiple_graphs_on_one_page_%28ggplot2%29/

(No reproduciré el código para esa función aquí por brevedad y claridad)

Mi código para la trama final es:

library(ggplot2)

g1 <- ggplot(data = DATA, aes(x = state, y = sales_staff)) +
  geom_bar(stat = "identity") + ggtitle("Number of sales staff") +
  theme(axis.title.x = element_blank(), axis.title.y = element_blank(), axis.text.y = element_blank(), axis.ticks.y = element_blank(), plot.margin = unit(c(1,0,1,0), "mm")) +
  scale_y_reverse() + coord_flip()

g2 <- ggplot(data = DATA, aes(x = state, y = sales)) +
  geom_bar(stat = "identity") + ggtitle("Sales (x $1000)") +
  theme(axis.title.x = element_blank(), axis.title.y = element_blank(), plot.margin = unit(c(1,5,1,0), "mm")) +
  coord_flip()

multiplot(g1, g2, cols = 2)

DE ACUERDO. Entonces, ¿qué hay de malo con esta trama?

Necesito obtener las marcas de verificación en el eje derecho de la gráfica izquierda. No puedo averiguar cómo hacer eso.Las dos parcelas son de diferentes anchos. Esto se debe a que los estados en el medio son las etiquetas de los ejes de la gráfica derecha y utilizan parte del espacio para esa gráfica.

He golpeado una pared de ladrillos para lograr que esta trama tenga "calidad de producción" Estoy empezando a preguntarme si estoy haciendo esto de manera incorrecta porque estoy pensando que el próximo paso será dibujar las etiquetas de los ejes como una tercera columna separada entre los dos gráficos. (Todavía no sé cómo hacer esto). Esto resolverá el problema de "tamaño igual" y me permitirá agregar un título de "estado", por lo que aún puede ser el camino a seguir. Pero no puedo dejar de preguntarme si hay una forma más simple ...

Cualquier consejo o asistencia apreciada!

Respuestas a la pregunta(1)

Su respuesta a la pregunta