Ajuster taille du graphique ggplot2

Bonjour,

Voici un exemple de ce que pourrait être mon jeu de données :

Code:

---

1 2 3 4 5 6 7 8

df <- data.frame(k1 = c("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"), k2 = c(1,5,0,12,5,10,4,5,6,7,8,2,14,20,1,5,1,8,7,6,3,6,4,5,8,3))   ggplot(df) + aes(x = k1, y = k2, fill = k2, na.rm = T) + geom_bar(stat='identity')+ geom_text(aes(label = k2), position = position_stack(vjust = 0.5), size = 3)

---

Avec cette série de données le graphique reste visible mais il arrive que la variable "k1" ait plus de 50 observations différentes. Dans ce cas le graphique n'est plus visible.

Comment faire en sorte que le graphique s'ajuste automatiquement (en se divisant en plusieurs parties par exemple ?) lorsque le nombre d'observations devient trop important ?

Merci.
David