Было предложено много решений для нескольких слегка отличающихся проблем, но ни одна из них не уловила мою конкретную проблему c.
Мне нужно следующее: я хочу смешать обычные метки подфига (a, b , c, ...) с названиями видов курсивом . Пока что я хочу сделать это только для четырех видов, чтобы я мог жить с ручным решением. Но пользовательская функция, автоматизирующая процесс, была бы аккуратной ...
Например, текст полосы вида a будет:
a) Род видов
Вот воспроизводимый пример с набором данных iris:
library(ggplot2)
p <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point()
p + facet_grid(. ~ Species)
Поэтому я хотел бы прочитать текст полосы (игнорируя отсутствующий Радужная оболочка на данный момент ...):
a) сето
b) лишай
c) virginica
Я пытался добавить следующие модификации:
p + facet_grid(. ~ Species, labeller = label_bquote(cols = letters[1:4] ~ .(Species)))
p + facet_grid(. ~ Species, labeller = label_bquote(cols = letters[1:4] ~ italic(Species)))
p + facet_grid(. ~ Species, labeller = label_bquote(cols = letters[1:4] ~ .(italic(Species))))
Добавление letters[1:4], очевидно, не работает. Я также не понимаю, почему italic(Species) даст мне ' Виды ' (что означает буквально слово Виды курсивом), тогда как .(Species) фактически вставит числовые уровни Species (1, 2 3). И .(italic(Species)) просто выдает мне сообщение об ошибке: could not find function "italic".
Как мне получить уровни видов, вставленных в курсив ? И как мне добавить к нему буквы?