R 如何在条形文本标签的标签中使用斜体

对于许多稍有不同的问题，已经提出了许多解决方案，但没有一个能完全抓住我的具体问题

我想要的是以下内容：我想把普通的亚组标签（a，b，c，…）与斜体的物种名称混合在一起。到目前为止，我只想对四个物种做这项研究，这样我就可以用人工解决方案生活。但是一个自动化过程的自定义函数将是整洁的

例如，物种a的条状文本为：

a） 属种

以下是一个具有

iris

数据集的可复制示例：

library(ggplot2)
p <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point()
p + facet_grid(. ~ Species)

添加

字母[1:4]

显然不起作用。我也不明白，为什么

italic（Species）

会给我“Species”（字面意思是意大利语中的Species）而

（Species）

会实际粘贴

Species

的数字级别（1,2,3）。而

（italic（Species））

只是给了我一条错误消息，说

找不到函数“italic”

如何获取粘贴在斜体中的物种的级别？那我该怎么加上字母呢

编辑： 实际上，我使用了Axeman提出的解决方案，即

label_bquote（cols=（字母[Species]）~italic（（as.character（Species）））

下面是最近运行的代码的示例：

p <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point()
p + facet_grid(. ~ Species, labeller = label_bquote(cols = .(letters[Species]) ~ italic(.(as.character(Species)))))

---

p您可以在这里找到解决方案：谢谢您的建议。也许我不太清楚，我只想用斜体字写物种名称，但前面的字母要用普通字体。如果我在主题中设置面，整个条带文本将是斜体…好的，那么这可能会有帮助：它将是
斜体（（as.character（Species））
。我不确定这些信。您可能只需要写出因子级别并使用
label\u parsed
。例如，使用
iris$facet实际上，
label_bquote（cols=（字母[种类]）~italic（（as.character（种类））
。
p <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point()
p + facet_grid(. ~ Species, labeller = label_bquote(cols = .(letters[Species]) ~ italic(.(as.character(Species)))))