Я использую R в Windows 10.
У меня проблемы с отображением символов Юникода в виде фигур для точек.(Я пытаюсь поместить стрелку вверх на свои графики вулканов (\ u2B06, ⬆) для точек, которые находятся за пределами масштаба).Некоторые работают, некоторые нет. пример Источник
TestUnicode <- function(start="25a0", end="25ff", ...)
{
nstart <- as.hexmode(start)
nend <- as.hexmode(end)
r <- nstart:nend
s <- ceiling(sqrt(length(r)))
par(pty="s")
plot(c(-1,(s)), c(-1,(s)), type="n", xlab="", ylab="",
xaxs="i", yaxs="i")
grid(s+1, s+1, lty=1)
for(i in seq(r)) {
try(points(i%%s, i%/%s, pch=-1*r[i],...))
}
}
TestUnicode()
TestUnicode(9500,9900)
Пример вывода
В моей системе некоторые символы просто отображаются как пустые квадратные блоки.
ИтакНасколько я понимаю, это вызвано проблемами со шрифтами Windows, и, вероятно, это произошло благодаря новому способу хранения шрифтов в Windows 10.
Большинство решений схожих проблем, которые я обнаружил, были, к сожалению, для систем на базе Unix и использовались:
Sys.setlocale( locale="UTF-8" )
Я предполагаю, что это команда Unix, поскольку она дает мне следующее:
[1] ""
Warning message:
In Sys.setlocale(locale = "UTF-8") :
OS reports request to set locale to "UTF-8" cannot be honored
Я пробовал решение с использованием пакета 'showtext', но почему-то это тоже не работает,потенциально снова Windows 10 может быть смутьяном. (установить 'Noto')
library(showtext)
font_paths()
[1] "C:\\Windows\\Fonts"
font_add(family="Noto", regular="NotoSansSymbols-Regular.ttf")
plot(1,1,pch='⬆',family='Noto')
There were 12 warnings (use warnings() to see them)
warnings()
Warning messages:
1: In plot.xy(xy, type, ...) : font family not found in Windows font database
У кого-нибудь есть решение?был бы признателен за любую помощь <3 </p>