p2 <- netVisual_circle(cellchat_control@net$count, color.use = subclass_colors, vertex.weight = rowSums(cellchat_control@net$count), weight.scale = T, label.edge= F ...