Cómo reducir el espacio entre barras de un diagramas de barra con ggplot2

Problema

Queremos reducir el espacio entre las barras de un diagrama de barras con ggplot2.

Diagrama de barras vertical

Diagrama de barras horizontal

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

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

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

Solución

Tan sólo necesitamos añadir theme(aspect.ratio = xx), y luego necesitamos ajustar el ese ratio para conseguir las distancia deseada. Con coord_flip() podemos voltear el gráfico

# Vertical
ggplot(df, aes(x = x, y = y)) + 
  geom_bar(stat = "identity") + 
  theme_tufte() + theme(aspect.ratio = 2) +
  labs(x = "", y = "")

# Horizontal
ggplot(df, aes(x = x, y = y)) + 
  geom_bar(stat = "identity") + 
  theme_tufte() + theme(aspect.ratio = .2) +
  coord_flip() +
  labs(x = "", y = "")

Resultados

Diagrama de barras vertical

Diagrama de barras horizontal