Znak Unicode z indeksem dolnym

Question

Chcę dodać znak Unicode, który ma dwie litery jako indeksy dolne do legendy działki w R. Znak jest r z akcentem breve (ř), a dwie litery to i i j.

Już obejrzałem to pytanie: Unicode character with superscript i próbowałem dostosować odpowiedzi do mojego problemu.

Oto, co starałem:

plot(1,pch=NA,ylab="",xlab="",axes=F) 
legend("top",legend=paste("1-","\u{0159}"),bty ="n",bg = "white",cex=2) 
legend("center",legend=paste("1-","\u{0159}","\u{0069}","\u{006A}"),bty="n",bg = "white",cex=2) 
legend("bottomleft",legend=expression("1-"*"\u0159"["\u0069"*"\u006A"]),bty="n",bg = "white",cex=2) 
legend("bottomright", legend = quote("1-" *"\u0159"["\u0069"*"\u006A"]),bty="n",bg = "white",cex=2) 

Powstały działce można znaleźć poniżej

zarówno literę Unicode oraz indeksie działać prawidłowo przez siebie, ale nie razem. paste() z dowolną kombinacją [] zwraca błąd, ale myślę, że należy się tego spodziewać, ponieważ pasta nie może obsłużyć [] dla indeksu dolnego.

Na stronie FAQ na CRAN może dać wskazówkę, jak używam systemu Windows, ale nie jestem pewien, jak zaimplementować to:

3,6 Nie widzę znaki z akcentami w konsoli R, na przykład w tekście.

Musisz określić czcionkę w Rconsole (patrz Q5.2), która obsługuje kodowanie w użyciu. Wcześniej był to problem we wcześniejszych wersjach systemu Windows, ale teraz trudno jest znaleźć czcionkę, która go nie posiada.

Obsługa tych znaków w Rterm zależy od środowiska (okna terminala i powłoki, w tym ustawień ustawień regionalnych i strony kodowej), w których jest uruchamiany, a także czcionek używanych przez okno terminala. Te są zwykle w starszych ustawieniach DOS i muszą zostać zmienione.

Answer 1

Ma to związek z ustawieniami regionalnymi systemu, np. jeśli spróbujesz

# intToUtf8(345) 
# [1] "ř" 
# iconv(intToUtf8(345), "utf-8", localeToCharset()) 
# [1] "r" 

To powinno go naprawić (użyłem czesku ale innych lokalizacjach prawdopodobnie będzie działać zbyt):

Sys.setlocale("LC_CTYPE", "czech") 
# [1] "Czech_Czech Republic.1250" 
text(..., labels = quote("\u{0159}"[ij]))