#Comparison of B Cells to B Cells Dividing: Investigating Differences in Gene Expression (https://string-db.org/cgi/network?taskId=bRPm4ewVOOB8&sessionId=b3nXQDkjf86A)

gene_name_b_cell <- readRDS("~/gene_name_b_cell.rds")
reactable::reactable(gene_name_b_cell)

#Comparison of Alveolar_type_1_cells to Alveolar_type_2_cells: Investigating Differences in Gene Expression (https://string-db.org/cgi/network?taskId=bH6LhcaRiLSn&sessionId=b3nXQDkjf86A)

gene_name_alveolar_cell <- readRDS("~/gene_name_alveolar_cell.rds")
reactable::reactable(gene_name_alveolar_cell)

#Comparison of Macrophage_cells to Alveolar_macrophage_cells: Investigating Differences in Gene Expression(https://string-db.org/cgi/network?taskId=bKP5V5EL2HDB&sessionId=b3nXQDkjf86A)

gene_name_macrophage_cell <- readRDS("~/gene_name_macrophage_cell.rds")
reactable::reactable(gene_name_macrophage_cell)

#Comparison of NK_cells to NK_cells_dividing: Investigating Differences in Gene Expression (https://string-db.org/cgi/network?taskId=bnSOakght00e&sessionId=b3nXQDkjf86A)

gene_name_nk_cell <- readRDS("~/gene_name_nk_cell.rds")
reactable::reactable(gene_name_nk_cell)

#Comparison of Plasma_cells to Plasma_cells_dividing: Investigating Differences in Gene Expression (https://string-db.org/cgi/network?taskId=btsZb1VzbiXk&sessionId=b3nXQDkjf86A)

gene_name_plasma_cell <- readRDS("~/gene_name_plasma_cell.rds")
reactable::reactable(gene_name_plasma_cell)

#Comparison of T_cell_CD4 to T_cell_CD4_dividing: Investigating Differences in Gene Expression (https://string-db.org/cgi/network?taskId=bpNWNf5GyGHe&sessionId=b3nXQDkjf86A)

gene_name_tcd4_cell <- readRDS("~/gene_name_tcd4_cell.rds")
reactable::reactable(gene_name_tcd4_cell)

#combine T_cell_CD8: Investigating Differences in Gene Expression yapılmadı (https://string-db.org/cgi/network?taskId=bo9AD0oLJjW4&sessionId=b3nXQDkjf86A)

gene_name_tcd8_cell <- readRDS("~/gene_name_tcd8_cell.rds")
reactable::reactable(gene_name_tcd8_cell)

#combine DC cell Investigating Differences in Gene Expression (https://string-db.org/cgi/network?taskId=bkxLTwbo1DVi&sessionId=b3nXQDkjf86A)

gene_name_dc_cell <- readRDS("~/gene_name_dc_cell.rds") 
reactable::reactable(gene_name_dc_cell)