Шапочки в R легенда?

r text

1779 просмотра

2 ответа

Это простой вопрос.

Я пытаюсь написать легенду с текстом в маленьких заглавных буквах в R.

Я могу написать график с помощью tikzDevice и вручную изменить график на маленькие буквы в LaTex, но я хочу знать, возможно ли это в самом R ?

Благодарю.

Это код R, который я использую до сих пор:

legend("bottomright", inset=.05, c(expression(Delta*ZRT1), expression(Delta*ZRT2)), lty=1:2, pch=1:2)

Это выражение LaTex, которое я пытаюсь найти в легенде R:

\Delta Z\textsc{rt\oldstylenums{1}}

Автор: Frank_Zafka Источник Размещён: 17.05.2019 03:21

Ответы (2)


3 плюса

Решение

Стандарт Unicode определяет количество символов «маленького прописного» в расширениях IPA. Например, используя этот генератор Smallcaps: http://fsymbols.com/generators/smallcaps/

plot(1L:10, main="Aʙᴄᴅᴇғɢʜɪᴊᴋʟᴍɴᴏᴘǫʀsᴛᴜᴠᴡxʏᴢ")
legend("bottomright", expression(\Delta Zʀᴛ1")

введите описание изображения здесь

Начиная с Unicode 5.1, единственные символы, отсутствующие, чтобы разрешить представление полного латинского алфавита в маленьких заглавных символах Unicode, - это маленькие заглавные версии Q и X. См. Также здесь: http://en.wikipedia.org/wiki/Small_caps#Unicode

Автор: rcs Размещён: 16.06.2011 11:22

0 плюса

Маленькие заглавные буквы, генерируемые Генератором Smallcaps , не работают для всех шрифтов. Например, семейство Linux Libertine (Libertine, Biolinum) имеет свои маленькие заглавные буквы и номера старого стиля в области частного использования Unicode (E000-F8FF), как показано здесь (последняя страница) .

Примерные участки под использование меток осей , собранные от генератора малые прописные, плюс small_capsи small_numsстрока, собранный из частной области использования. Первый график использует Times New Roman, который работает с сгенерированными маленькими заглавными буквами, но не имеет соответствующих глифов в области частного использования. На втором графике используется Linux Libertine O, в котором нет всех символов Unicode из расширений IPA.

library(ggplot2)

x <- 1L:10
y <- 1L:10
df <- data.frame(x,y)

# assemble strings from Libertine's private use area.
small_caps <- "S\UE05D\UE051\UE05C\UE05C C\UE051\UE060\UE063"
small_nums <- "\UE020\UE021\UE022\UE023\UE024\UE025\UE026\UE027\UE028\UE029"

font <- "Times New Roman"
ggplot(df) +
  geom_point(aes(x = x, y = y)) +
  labs(x = paste("Sᴍᴀʟʟ Cᴀᴘs /", small_caps),
       y = paste("Oʟᴅ Sᴛʏʟᴇ", small_nums)) +
  theme(text = element_text(family = font)) +
  annotate("text", x = 2, y = 9, label = font)

font <- "Linux Libertine O"
ggplot(df) +
  geom_point(aes(x = x, y = y)) +
  labs(x = paste("Sᴍᴀʟʟ Cᴀᴘs /", small_caps),
       y = paste("Oʟᴅ Sᴛʏʟᴇ", small_nums)) +
  theme(text = element_text(family = font)) +
  annotate("text", x = 2, y = 9, label = font)

Создано 2018-12-08 пакетом представлением (v0.2.1)

Автор: Michael S Taylor Размещён: 08.12.2018 03:06
Вопросы из категории :
32x32