Cuando ha volteado las coordenadas, ¿cómo reduce el espacio entre las barras que son estrechas y el borde del panel? Usando el marco de datos df y elggplot comandos, hay mucho espacio en blanco entre la barra inferior y las marcas de verificación (y, de manera similar, un amplio espacio encima de la barra de "proveedor").

df <- data.frame(x = c("firm", "vendor"), y = c(50, 20))

ggplot(df, aes(x = x, y = y)) + 
  geom_bar(stat = "identity", width = 0.4) + 
  theme_tufte() +  coord_flip() +
  labs(x = "", y = "")

Lo intentéscale_x_discrete con amboslimits yexpand argumentos en vano, así comoposition = position dodge, igualmente sin efecto.

Estapregunta ofertascoord_equal para cambiar la relación de aspecto y, por lo tanto, reducir o eliminar el espacio extra, pero señala que la soluciónno funciona concoord_flip.