Utilizzo di Unicode nel comando expression() di R

Question

Sto utilizzando expression() nei grafici R per ottenere testo in corsivo. Ma sembra che non posso usare i simboli Unicode all'interno di expression al di fuori dei caratteri ASCII. C'è un modo in cui posso aggirare questo? Il mio obiettivo è ottenere la legatura fi in varie etichette nei miei barlotti R (insieme al testo in corsivo).

Sto usando R per Windows versione 3.0.2.

CairoPDF(file = "Ligature1.pdf") 
plot.new() 
text(x =.5, y = .5, labels = "fi", family = "Times New Roman") 
dev.off() 

CairoPDF(file = "Ligature2.pdf") 
plot.new() 
text(x =.5, y = .5, labels = expression(paste(italic(m), "u", "fi", italic(m), sep = "")), family = "Times New Roman") 
dev.off() 

Answer 1

Avete chiesto un work-around. Questo è tutto ciò La parte in corsivo ha bisogno di expression, ma la parte "fi" non lo è, quindi stampale separatamente.

plot.new() 
offset1 = strwidth(expression(paste(italic(m), "u")), units="figure") 
text(x =.5, y = .5, labels = expression(paste(italic(m), "u", sep=""))) 
text(x =.5+offset1, y = .5, labels ="fi") 
offset2 = strwidth("fi ") 
text(x =.5+offset1+offset2, y = .5, labels = expression(italic(m))) 

a meno di notare che qualcosa non è giusto circa la spaziatura del "fi", così quando ho calcolata la larghezza sullo schermo, ho barato e calcolato la larghezza di "fi" (con un bianco in più). Senza la spaziatura aggiuntiva, il secondo italic(m) si sovrapponeva al "fi".

Non bello, ma produce il risultato desiderato in Windows.