come inserire il numero esatto di cifre decimali sull'etichetta ggplot grafico a barre

Question

Come specificare il numero esatto di cifre decimali sulle etichette del grafico a barre ggplot?

I dati:

strefa <- c(1:13) 
a  <- c(3.453782,3.295082,3.137755,3.333333,3.500000,3.351351,3.458824,3.318681,3.694175,3.241379,3.138298,3.309524,3.380000) 
srednie <- data.frame(strefa,a) 

Il codice è:

ggplot(srednie, aes(x=factor(strefa), y=a, label=round(a, digits = 2))) + 
    geom_bar(position=position_dodge(), stat="identity", colour="darkgrey", width = 0.5) + 
    theme(legend.position="none",axis.text.x = element_blank(), axis.ticks.x = element_blank(), axis.ticks.y = element_blank()) + 
    geom_text(size = 4, hjust = 1.2) + 
    coord_flip(ylim = c(1,6))+ 
    xlab("") + 
    ylab("") 

Come si può vedere, il bar intitolato 5 e 2 le etichette sono limitati alla prima cifra decimale. Come mostrare 2 cifre decimali anche se vi è, ad esempio, 3.000000 o 5.999999? In questi casi vorrei mostrare 3,00 e 6,00.

Ho provato a utilizzare come parametro aeslabel=round(a, digits = 2) ma non funziona.

Answer 1

Si potrebbe provare quanto segue mentre arrotonda a due cifre e stampa due cifre dopo il decimale.

ggplot(srednie, aes(x=factor(strefa), y=a, label=sprintf("%0.2f", round(a, digits = 2)))) + 
    geom_bar(position=position_dodge(), stat="identity", colour="darkgrey", width = 0.5) + 
    theme(legend.position="none",axis.text.x = element_blank(), axis.ticks.x = element_blank(), axis.ticks.y = element_blank()) + 
    geom_text(size = 4, hjust = 1.2) + 
    coord_flip(ylim = c(1,6))+ 
    xlab("") + 
    ylab("") 

L'unica modifica stava cambiando il codice da

round(a, digits = 2) 

a

sprintf("%0.2f", round(a, digits = 2))