R ggplot：使用geom_col和镶嵌面_包裹

我已经用了6个月了（相当新）。 我使用facet_wrap函数创建了一个很好的图形，带有geom_点

然而，在绘制我感兴趣的另一个参数时，我似乎没有成功使用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")

T%
ggplot（aes（样本ID、滴度））+
geom_col（aes（col=天），尺寸=1.1）+
贴面包装（策略~添加剂）+
比例-颜色-手动（值=Ahmad）+
ylab（'滴度mg/L'）+
xlab（‘时间（天）’）+
ggtitle（“所有数据”）+
geom_标签排斥（aes（标签=样本ID），数据=尾部（滴度，14），微移_x=
2，direction=“y”，segment.size=0.2，hjust=0）+主题（strip.text.x=
元素文本（大小=12），axis.title=元素文本（大小=14），axis.text=
元素\文本（大小=14），legend.position=“无”）

运行良好的代码如下所示：

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))

Q2%
ggplot（aes（日、直径））+
geom_线（aes（col=样本ID），尺寸=1.1）+
贴面包装（策略~添加剂）+
比例-颜色-手动（值=Ahmad）+
ylab（'VCD E6单元/mL'）+
xlab（‘时间（天）’）+
ggtitle（“所有数据”）+
geom_标签排斥（aes（标签=样本ID），数据=尾部（USP20005,24），微移_x
=2，direction=“y”，segment.size=0.2，hjust=0）+
主题（strip.text.x=元素文本（大小=12），axis.title=元素文本（大小=
14） ，axis.text=元素\文本（大小=14），legend.position=“无”）+
刻度x连续（断开=顺序（0,14,2），极限=c（0,14））+
刻度连续（断开=顺序（10,20,2），极限=c（10,20））

尽管我使用了facet_warp将样本拆分为不同的框（看起来R仍然保留了空白点），但为什么列之间有空格vet

只是想澄清一下：我希望看到每个2-4个样本都放在一个on框中，在不同的日子里，每个样本的条都粘在一起。我可以把它们堆叠起来，但我不想那样

我做错了什么？任何帮助都将不胜感激

先谢谢你

---

Ahmad

如果使用

scale_x*（）

，x轴将固定并保持空间。

是

facet_wrap（Strategy~addities，scales=“free_x”）

您在寻找什么？是的！非常感谢：我在尝试时出错了，但我已经得到了答案！非常感谢。