2

我已经使用 R 6 个月了(相当新)。我使用 facet_wrap 函数和 geom_point 创建了一个漂亮的图形。

但是,在绘制我感兴趣的另一个参数时,我似乎没有成功使用 geom_col。

代码如下:

T <- Titers %>% 
ggplot(aes(Sample_ID, Titer)) + 
geom_col(aes(col=Day), size=1.1) + 
facet_wrap(Strategy~Additives) + 
scale_color_manual(values = Ahmad) + 
ylab('Titer mg/L') + 
xlab('Time (Day)') + 
ggtitle('All data') + 
geom_label_repel(aes(label = Sample_ID), data = tail(Titers, 14), nudge_x = 
2, direction = "y", segment.size = 0.2, hjust = 0) + theme(strip.text.x = 
element_text(size = 12), axis.title = element_text(size = 14), axis.text = 
element_text(size = 14), legend.position = "none")

一直运行良好的代码如下:

Q2 <- USP20005 %>% 
ggplot(aes(Day, Diameter)) + 
geom_line(aes(col=Sample_ID), size=1.1) + 
facet_wrap(Strategy~Additives) + 
scale_color_manual(values = Ahmad) + 
ylab('VCD E6 cells/mL') + 
xlab('Time (Day)') + 
ggtitle('All data') + 
geom_label_repel(aes(label = Sample_ID), data = tail(USP20005, 24), nudge_x 
= 2, direction = "y", segment.size = 0.2, hjust = 0) + 
theme(strip.text.x = element_text(size = 12), axis.title = element_text(size =
14), axis.text = element_text(size = 14), legend.position = "none") + 
scale_x_continuous(breaks = seq(0, 14, 2), limits = c(0, 14)) + 
scale_y_continuous(breaks = seq(10, 20, 2), limits = c(10, 20))

失败的图表

成功图

为什么列之间有空格,即使我使用 facet_warp 将样本分成不同的盒子(似乎 R 仍在保留空白点?)

需要说明的是:我想在盒子里看到每 2-4 个样本,其中每个样本在不同日期的条相互粘在一起。我能够将它们堆叠起来,但我不想要那样。

我在这里做错了什么?任何帮助将非常感激。

提前谢谢你艾哈迈德

4

1 回答 1

0

如果使用scale_x_*(),x 轴将固定并保持空格。

于 2020-03-17T14:36:59.827 回答