Euro-đăng nhập ggplot: gói cân

Question

Tôi đã nhận thấy rằng, sử dụng gói scales, người ta có thể hiển thị đô la trên trục, sử dụng tùy chọn scales = dollar bên trong, ví dụ: scale_y_log10(). Một tùy chọn như scales = euro dường như thiếu. Có cách nào dễ dàng để tôi đạt được hiệu quả tương tự không?

Answer 1

Thật dễ dàng để sửa đổi dollar_format và thay đổi ký hiệu thành euro. Khởi này và đặt nó trong các mã như bạn sẽ gọi 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

Bạn có thể sử dụng prefix và suffix lập luận của dollar_format

Ví dụ như thế này:

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