Добавление символа стерлинга в ggplot

Question

Опять же, это может быть действительно очевидно, но как я могу добавить стерлинговый знак в ggplot?

Я пытался

ylab(expression(symbol('\U00a3'))) 

в, например,

library(ggplot2) 
qplot(1:10,1:10,geom='line')+ylab(expression(symbol('\U00a3'))) 

но вместо этого я получаю латинизированный R.

Answer 1

symbol ищет кодировку Adobe Symbol, в то время как вы хотите использовать escape-код юникода. Поэтому не используйте expression(symbol('\U00a3')). В кодировке Adobe Symbol нет стерлингового знака (но вы могли бы, например, получить знак Euro, используя expression(symbol('\240'))).

Я не могу с легкостью сказать, почему expression(symbol('\U00a3')) возвращает знак Rfraktur и знак lessequal. Интересно, что код символа для lessequal - это '\243', который также является кодом символа стерлинга в кодировке Adobe Latin. Rfraktur - '\302'.

Чтобы получить безукоризненную использование Знака это:

qplot(1:10,1:10,geom='line')+ylab('\U00a3') 

Или вы могли бы использовать

qplot(1:10,1:10,geom='line')+ylab(expression('\U00a3')) 

Что будет делать то же самое.