下面这张图大家应该常见吧

图片.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

生活很好，有你更好