下面这张图大家应该常见吧
图片.png
一张图的局部放大，我们来实现一下，
示例数据
图片.png
开始画图,先画散点图
data$Cluster= paste0("C",data$Cluster)
p = ggplot(data, aes(UMAP_1, UMAP_2, colour = Cluster)) + geom_point()
图片.png
好，开始局部放大
library(ggforce)
p + facet_zoom(xlim = c(-5,0),ylim = c(-5,0),horizontal = FALSE,zoom.size = 1)
图片.png
最后我们修改主题和风格
p + theme_bw() + guides(color = guide_legend(override.aes = list(size = 5),ncol =2 )) +
theme(panel.grid = element_blank())
图片.png
当然，可以进一步优化，比如把细胞注释的结果添加上，同时散点图添加标签，这些优化，留给大家去美化吧。
最后呢，征集一下，谁能实现下面这张图（不打折扣的实现，现金奖励50元）
图片.png
生活很好，有你更好
