我正在嘗試在 x 軸的某些文本中添加一個數學符號（總和）。
例如，如果這是我的情節。
data(iris)
p1 <- ggplot(iris, aes(x=Species, y=Sepal.Length))
geom_boxplot()
p1
我想要完成的是這個。不知道如何做到這一點，任何建議表示贊賞。提前致謝。
uj5u.com熱心網友回復：
這幾乎可以肯定是重復的，但是我搜索時找不到答案，所以這里有一個潛在的解決方案：
library(tidyverse)
iris_correctly_labelled <- iris %>%
mutate(Species = case_when(Species == "setosa" ~ paste0("\u2211", "setosa"),
Species == "versicolor" ~ "versicolor",
Species == "virginica" ~ paste0("\u2211", "virginica")))
p1 <- ggplot(iris_correctly_labelled,
aes(x=fct_reorder(Species, Sepal.Length), y=Sepal.Length))
geom_boxplot()
theme(axis.title.x = element_blank(),
text = element_text(size = 16))
p1
由reprex 包(v2.0.1)創建于 2022-05-13
這能解決你的問題嗎？
uj5u.com熱心網友回復：
您還可以考慮使用latex2exp包的TeX功能，它允許您使用 LaTeX 的語法添加更復雜的符號和公式來繪制文本和標題：
data(iris)
library(ggplot2)
library(latex2exp)
x_labs <- c(TeX(r'($\Sigma$ setosa)'), "versicolor", TeX(r'($\Sigma$ virginica)'))
p1 <- ggplot(iris, aes(x=Species, y=Sepal.Length))
geom_boxplot()
scale_x_discrete(labels = x_labs)
theme() # adjust text size to suit
p1
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/474399.html