r-使用实验室时x标签的问题(ggplot)

Question

我在R中用ggplot做了一个绘图，代码是：

order <- c('Pfu gamma 0min replicate1','Pfu gamma 20min replicate1','Pfu gamma 40min replicate1','Pfu gamma 60min replicate1','Pfu gamma 120min replicate1','Pfu reference replicate1')
ggplot(data=Genome1,aes(x=factor(Sample,level=order), y=mRNA, fill=Sample)) +
geom_boxplot() +
scale_x_discrete(labels=c("Pfu gamma 0min replicate1"="0min","Pfu gamma 20min replicate1"="20min","Pfu gamma 40min replicate1"="40min","Pfu gamma 60min replicate1"="60min","Pfu gamma 120min replicate1"="120min","Pfu reference replicate1"="REF")) +
stat_boxplot(geom = "errorbar") +
labs(title="mRNA vs Time", subtitle="Genome",xlab="Sample",y="mRNA")+
theme(plot.title = element_text(hjust = 0.5),plot.subtitle = element_text(hjust = 0.5))

问题是它显示为xlabel"；因子(Sample，level＝order("；。是因为我在aes中使用了factor吗？它应该显示"；样品"；。

我还有一个问题：我试图用一个有3列约55000行的数据帧绘制一个图，但我的计算机似乎不支持它。R不能支持这样的大小吗？

Answer 1

Wellcome to Stack Overflow Manuela。你的问题很简单，没什么好担心的。。。您可以解决在labs()中将参数xlab更改为x的问题。

ggplot(data = Genome1,
aes(x = factor(Sample, level = order), y = mRNA, fill = Sample)) +
geom_boxplot() +
scale_x_discrete(labels=c("Pfu gamma 0min replicate1" = "0min",
"Pfu gamma 20min replicate1" = "20min",
"Pfu gamma 40min replicate1" = "40min",
"Pfu gamma 60min replicate1" = "60min",
"Pfu gamma 120min replicate1" = "120min",
"Pfu reference replicate1" = "REF")) +
stat_boxplot(geom = "errorbar") +
labs(title = "mRNA vs Time",
subtitle = "Genome",
x = "Sample",
y = "mRNA")+
theme(plot.title = element_text(hjust = 0.5),
plot.subtitle = element_text(hjust = 0.5))