使用 R 中的 ggplot 有选择地更改“X”个图形中的一个的比例

如何解决使用 R 中的 ggplot 有选择地更改“X”个图形中的一个的比例

我总共有九个图，其中一个的缩放使得另一个的数据可视化有点麻烦，如下图所示：

参考：X = 日期，Y = 犯罪发生率，颜色 = 犯罪类型

所有其他 6 个图看起来都与前两个相似。只有伦敦的反社会行为犯罪发生率如此之高，以至于破坏了聚会。

我的理想输出是伦敦的不同比例，可能显示在 Y 轴的右侧？

我对 ggplot 的了解有限，所以请随时分享任何更有效的数据可视化技巧。

这是我用来绘制图形的代码：

crimedata %>% count(Region,Month,Crime,name = 'Crime_occurrencies') %>%
mutate(Date = as.Date(paste0(Month,'-01'))) %>%
ggplot() + aes(Date,Crime_occurrencies,col = Crime) + 
geom_line() + 
facet_wrap(~Region) + #create a line graph for each region
scale_x_date(breaks = seq(as.Date("2019-01-01"),as.Date("2020-10-01"),by="1 month"),date_labels = '%m %Y') +
theme(axis.text.x=element_text(angle =- 90,vjust = 0.5))

这是数据框的随机样本：

structure(list(Month = c("2020-06","2019-02","2019-12","2019-11","2019-04","2020-04","2020-07","2020-01","2019-05","2019-12"),Region = c("London","London","South East","Yorkshire and The Humber","West Midlands","North West"),Crime = c("Anti-social behaviour","Violence and sexual offences","Anti-social behaviour","Robbery","Robbery")),row.names = c(NA,-10L),class = c("data.table","data.frame"),.internal.selfref = <pointer: 0x000001cfda8e1ef0>)

预先感谢您提供的任何帮助！