R 提高箱线图的可视性

我的图中包含了1967-2018年的数据。盒子有点难看。关于如何更改此绘图以使其更具可读性，有什么提示吗？或者主要的问题是试图显示的时间段太长

ggplot(Cl) +
 geom_boxplot(aes(x=CC_Date, y=CC_PWQMN,fill = Label,group = CC_Date), 
 width=0.5) +
 xlab("") +
 ylab("Cl(mg/l)") +  #\n used for spacing between title and axis
 scale_y_log10(breaks = c(0.1, 1, 10, 100, 1000), 
            limits = c(0.1, 1000), labels = c(0.1, 1, 10, 100, 1000)) +
 scale_x_continuous(breaks = c(1967, 1975, 1983, 1991,1999,2008,2018), 
                 limits = c(1967, 2019)) +
 theme_bw() +
 annotation_logticks(sides="l", size=1) +
theme(text=element_text(family="TNR", size=45)) +
theme(panel.grid.major = element_blank(), panel.grid.minor = 
element_blank()) +
geom_hline(yintercept=120, colour="black", size=1) +
geom_hline(yintercept=50, linetype="longdash", colour="gray37", size=1) +
theme(axis.text.x = element_text(color="black"),axis.text.y = 
element_text(color="black")) +
theme(panel.border = element_rect(colour="black", size = 1.3))+
theme(legend.position = "none")+
scale_fill_manual(values=c("gray70", "gray35"))

---

箱线图图像不可见，建议在问题中包含代码。您具体想改进什么？我注意到的第一件事是，大多数盒子的黑色填充物几乎不可能看到线条。你想让盒子更大吗？还有别的吗？你也可以改变你的y轴从1开始，我想把盒子变大。我曾试图改变宽度，但后来箱子相互重叠。此箱线图只是6个面板中的一个，因此我有其他箱线图，其中数据约为1。箱线图图像不可见，建议在问题中包含代码。您具体想改进什么？我注意到的第一件事是，大多数盒子的黑色填充物几乎不可能看到线条。你想让盒子更大吗？还有别的吗？你也可以改变你的y轴从1开始，我想把盒子变大。我曾试图改变宽度，但后来箱子相互重叠。这个箱线图只是6个面板中的一个，所以我有其他箱线图，数据约为1。