我的 X 轴发生了一些变化，它看起来是连续的，并且在 x 轴上偏离图 运行，尽管我限制了我的 x 轴
Something is going on with my X axis where it looks continuous and is running off the plot on the x axis, although i have limited my x axis
我似乎无法修复此条形图，因此条形图不会越过轴。我已将轴限制为我想要的最短日期，但我认为这就是导致问题的原因。我希望有人能帮帮忙。谢谢！
我的代码：
ggplot(rreasont, aes(x = Week, y = count, color = reason, fill = reason)) + geom_bar(stat = "identity", position = "fill", width = 5) +
scale_color_manual(values = mycolors) + scale_fill_manual(values = mycolors) + labs(y = "Tests Linked to Reason") + theme_linedraw()+ facet_wrap(~Contractor) +
scale_x_date(breaks = (as.Date(rreasont$Week)), date_labels = "%m/%d") +
theme(legend.position = "bottom", axis.title = element_text(size = 30), axis.text = element_text(size =25),
legend.text = element_text(size = 18), legend.title = element_blank(), strip.text = element_text(size = 25)) +
coord_cartesian(xlim = as.Date(c(min(ymd("2022-01-24")), max(rreasont$Week)))) #limit min date!
ggsave(paste(savef, "new_reason_for_testing_over_time.png", sep = ""), width = 23, height= 9)
图：
有一些东西可以让你在条形图和 x 轴的末端之间有更多的呼吸空间——我想这就是你要问的？
首先，减少条形的相对宽度； width = 5 表示每个条形占 x 轴上相应日期宽度的 5 倍，这导致它 运行 离开图表。
其次，您可以将 space 添加到 x 轴，方法是在任一方向将限制扩展几天，或者使用 scale_x_date() 的 expand 参数。
plot +
scale_x_date(expand = expansion(mult = .1))
# experiment with different values of “mult.”
# see ?expansion for more details
第三，您可以通过首先过滤数据以仅包含您想要的日期，然后绘图并省略 coord_cartesian().
来获得更直观的间距
我似乎无法修复此条形图，因此条形图不会越过轴。我已将轴限制为我想要的最短日期，但我认为这就是导致问题的原因。我希望有人能帮帮忙。谢谢！
我的代码：
ggplot(rreasont, aes(x = Week, y = count, color = reason, fill = reason)) + geom_bar(stat = "identity", position = "fill", width = 5) +
scale_color_manual(values = mycolors) + scale_fill_manual(values = mycolors) + labs(y = "Tests Linked to Reason") + theme_linedraw()+ facet_wrap(~Contractor) +
scale_x_date(breaks = (as.Date(rreasont$Week)), date_labels = "%m/%d") +
theme(legend.position = "bottom", axis.title = element_text(size = 30), axis.text = element_text(size =25),
legend.text = element_text(size = 18), legend.title = element_blank(), strip.text = element_text(size = 25)) +
coord_cartesian(xlim = as.Date(c(min(ymd("2022-01-24")), max(rreasont$Week)))) #limit min date!
ggsave(paste(savef, "new_reason_for_testing_over_time.png", sep = ""), width = 23, height= 9)
图：
有一些东西可以让你在条形图和 x 轴的末端之间有更多的呼吸空间——我想这就是你要问的？
首先，减少条形的相对宽度； width = 5 表示每个条形占 x 轴上相应日期宽度的 5 倍，这导致它 运行 离开图表。
其次，您可以将 space 添加到 x 轴，方法是在任一方向将限制扩展几天，或者使用 scale_x_date() 的 expand 参数。
plot +
scale_x_date(expand = expansion(mult = .1))
# experiment with different values of “mult.”
# see ?expansion for more details
第三，您可以通过首先过滤数据以仅包含您想要的日期，然后绘图并省略 coord_cartesian().