R 在ggboxplot中使用下标

我想画一些数据，我的一个实验组叫SiO₂. 我使用read.table加载一个.txt数据表，然后使用colnames（）更改col名称，如下所示。它使用

ggplot

后跟

geom\u箱线图

，而不是

ggpubr:：ggboxplot

library(ggplot2)

az <- subset(iris[5:4], Species == "virginica")
az[[1]] <- droplevels(az[[1]])
names(az) <-c("SiO\u2082","value")

ggplot(az, aes(x = "SiO\u2082", y = value)) + 
  geom_boxplot() +
  xlab("")

---

使用

str（az）

检查数据，查看数字列是作为数字还是作为因子读入的。这是结果数据。帧：4 obs。共2个变量：$SiO2:Factor w/1 level“ciao”：1$value:int 1 2 3 4因此，您正在绘制一个因子的箱线图（而非条形图），

ciao

只有一个级别，其所有值都相等。这就是为什么你会得到这个图。@RuiBarradas如果你愿意，我可以用真实的数据集来代替这个例子。我的问题是如何获得SiO₂ 而不是SiO□@皮特罗埃斯波西托：不，请不要在问题上作评论。请参见使用

ggpubr

进行编辑。如果我同时使用带有ggplot和ggpubr的代码，我将获得SiO□@正如您所看到的，两个图都正确地显示了下标，因此您的系统一定有问题。

capabilities（）

返回什么？如果你在绘图前用

png（）

写入设备，然后在绘图后用

dev.off（）

写入设备，那么图形文件中有什么？我用你要求的信息重新编辑我的问题。@pietroesposito这似乎是一个系统问题。是否尝试安装X11？另外，看看这些帖子是否有帮助：，等等。

head(cells_df2)
ID     Ctrl  SiO2     pSLG     fSLG
1  1  5.68565  9.48 14.77580 33.04500
2  2  6.79996 32.00 14.35580 33.04500
3  3 21.77180  8.14 16.49780  7.61765
4  4 16.30750  8.14  1.87977  7.61765
5  5 11.16920 19.20  5.54189 28.47990
6  6 11.31430  8.26 15.59490 28.47990

Cells_tidy3<-gather(cells_df2,"group","ym",-ID)
  ID group       ym
1  1  Ctrl  5.68565
2  2  Ctrl  6.79996
3  3  Ctrl 21.77180
4  4  Ctrl 16.30750
5  5  Ctrl 11.16920
6  6  Ctrl 11.31430

ggboxplot(Cells_tidy3,"group","ym")

jpeg         png        tiff       tcltk         X11        aqua    http/ftp 

TRUE        TRUE        TRUE        TRUE       FALSE       FALSE`    TRUE 

sockets      libxml        fifo      cledit       iconv         NLS   profmem

TRUE        TRUE        TRUE        TRUE        TRUE        TRUE        TRUE

cairo         ICU long.double     libcurl 

TRUE        TRUE        TRUE        TRUE 

png()
ggplot(az, aes(x = "SiO\u2082", y = value)) + 
geom_boxplot() +
xlab("")
dev.off()

library(ggplot2)

az <- subset(iris[5:4], Species == "virginica")
az[[1]] <- droplevels(az[[1]])
names(az) <-c("SiO\u2082","value")

ggplot(az, aes(x = "SiO\u2082", y = value)) + 
  geom_boxplot() +
  xlab("")

library(tidyr)
library(ggpubr)

azz <- az %>% gather(group, key, -value)
ggboxplot(azz, x = "group", y = "value")