Euro-sign in ggplot: pacchetto bilance

Question

Ho notato che, utilizzando il pacchetto scales, è possibile visualizzare dollari su un asse, utilizzando l'opzione scales = dollar all'interno, ad esempio, scale_y_log10(). Un'opzione come scales = euro sembra mancare. C'è un modo facile per me di ottenere lo stesso effetto?

Answer 1

È facile modificare dollar_format e cambiare il simbolo in euro. Eseguire questo e metterlo nel codice come si sarebbe chiamata dollar_format

euro_format <- function(largest_with_cents = 100000) { 
    function(x) { 
    x <- round_any(x, 0.01) 
    if (max(x, na.rm = TRUE) < largest_with_cents & 
     !all(x == floor(x), na.rm = TRUE)) { 
     nsmall <- 2L 
    } else { 
     x <- round_any(x, 1) 
     nsmall <- 0L 
    } 
    str_c("€", format(x, nsmall = nsmall, trim = TRUE, big.mark = ",", scientific = FALSE, digits=1L)) 
    } 
} 

Answer 2

È possibile utilizzare i prefix e suffix argomenti di dollar_format

Ad esempio come questo:

library(ggplot2) 
library(scales)  
ggplot(diamonds) + geom_point(aes(x = carat, y = price)) + scale_y_continuous(labels = dollar_format(suffix = "€", prefix = ""))