在ggplot2中绘制欧元符号€？

Question

欧元符号€在PDF输出中显示为...

ggplot() + theme_bw() + geom_line() + scale_y_continuous(formatter = "euro")

Answer 1

启动PDF图形时使用ISOLatin9.enc编码

pdf(encoding = "ISOLatin9.enc")

在http://stat.ethz.ch/R-manual/R-patched/library/graphics/html/text.html据说欧元符号可以选择ISO-8895-15（Latin-9），其中欧元为字符

Answer 2

以下是3种以“EU”格式格式化数字的方法：

 # 1. Method 1
 library(scales)
 euro <- dollar_format(prefix = "\u20ac", big.mark = ",")
 euro(20)

 # 2. Method 2
 library(formattable)
 currency(20, symbol = "\U20AC", digits = 0)

 # 3. Method 3

 # 3.1. Load package
 library(DT)

 # 3.2. Create data set
 m = cbind(matrix(rnorm(120, 1e5, 1e6), 40), runif(40), rnorm(40, 100))
 colnames(m) = head(LETTERS, ncol(m))
 m

 # 3.3. Format the columns 'A' (euro), 'C' (usd), and 'D' (percentages)
 datatable(m) %>% 
   formatCurrency(c('A'), '\U20AC', digits = 0) %>% 
   formatCurrency(c('C')) %>% 
   formatPercentage('D', 2)

希望其中一个有用。