代码库4-ggplot2代码

将“ excel式”数据转换为“ggplot2式”数据

library(reshape2)
DATA <- melt(data, id="cells") # id指定那些能够区分不同行数据的变量，个人感觉类似于数据库中的主键

对UMAP横纵坐标进行简化

+ labs(x = "UMAP1", y = "UMAP2") + 
    theme(axis.text.y  = element_blank(),    # 
          axis.ticks.y = element_blank(),    # 
          axis.text.x  = element_blank(),    # 
          axis.ticks.x = element_blank(),
axis.line = element_blank())    # 不显示坐标轴
  

散点图设置图例颜色和大小范围

+ scale_color_continuous(limits = c(0, 1),low="yellow", high="red") + 
    scale_size_continuous(limits = c(0, 1),range = c(0, 50))
# limits代表数的范围，range代表大小的范围

顶部添加数字的柱状图

ggplot(df,aes(x = benchmark, y = value, fill = tools)) + 
    geom_bar(stat = "identity",position = position_dodge(width = 0.8,preserve = 'single'),width = 0.7) + 
    geom_text(aes(label = round(value,2)),size = 3,position = position_dodge(.8),vjust = -0.1) + 
    coord_cartesian(ylim = c(0, 1))

密度图根据counts的数量调整高度（而不是“不管counts多少高度都是1”）

+ geom_density(aes(y = after_stat(count),fill = booltrue,alpha = 0.2))