2. genes <- c("Cd3d","Cd4", "Cd8a",
    3.            "Lef1", "Il7r", # memory T
    4.            "Mki67", # proliferating T
    5.            "Klrd1", 
    6.            "Cd79a",
    7.            "Cd63", "Cd68", #  M1
    8.            "Mrc1", "Msr1", "Cd163", # M2
    9.            "Axl", # Airway Macrophage
    10.            "Csf3r", "S100a8", # Neutrophil
    11.            'Cd300a', 'Cd83', 'Napsa', # cDC
    12.            'Siglech', 'Ly6d') # pDC
    14. genes <- c("Cd3d", # T cells
    15.            "Cd4", 
    16.            "Ccr7", "Sell", "Lef1", # Naive T
    17.            "Tcf7", "Il7r", # memory T
    18.            "Ctla4",
    19.            "Foxp3", # Treg
    20.            "Cd8a", "Cd8b1", # CD4/CD8
    21.            "Gzma", "Gzmb", "Gzmk", # EFF
    22.            "Pdcd1", "Tigit", # Ex
    23.            "Klrd1", "Klrc1", # NKT
    24.            "Mki67" # proliferating T
    25. )