did more graphs

scGPT/Redeconve/PDAC.R

@@ -134,8 +134,8 @@ dev.off()
 
 nums = as.matrix(mapped_matrx)
 sc = sc_generated
-sc <- sc[overlapped_marker, ]
-st <- st[overlapped_marker, ]
+sc <- sc[common_genes, ]
+st <- st[common_genes, ]
 
 preexp = sc %*% nums 
 cossimr = matrix(nrow=428)
@@ -144,7 +144,7 @@ for(i in 1:428){
 }
 
 
-pdf("./results/cossim_scGPT.pdf", width = 5.0, height = 4.0)
+pdf("./results/cossim_scGPT_common_genes.pdf", width = 5.0, height = 4.0)
 ggplot()+
   geom_point(aes(x=coords$x,y=coords$y,color=cossimr,size=1))+
   scale_color_gradient(limits=c(0,1),low="#F5F5F5",high="blue")+