Commits

Giovanni Marco Dall'Olio committed 5eddf89

CORR: implementing the correlation plots in lattice, to see if they look better

  • Participants
  • Parent commits f3751ee

Comments (0)

Files changed (2)

results/plots/whole_chromosomes/correlations/chr22_correlations_debug.pdf

Binary file modified.

src/plot_chromosome_correlations.R

         help="Output file name for the plots [default %default]")
 )
 arg_values = parse_args(OptionParser(option_list = option_list, usage=description))
+require(lattice)
 
 
 # PANEL FUNCTIONS - these functions are used to define the plots to be included inside the panels
     }
     print(summary(current_data.small))
     names(current_data.small) = c("Region size", "Window recomb", "N Vertices", "N Components", "Average Degree", "Average\nCloseness", "Average\nPath Length")
-    pairs(current_data.small, 
-                    upper.panel = panel.smoothScatter.significant,
-#                    lower.panel = panel.qqplot.significant
-                    lower.panel = panel.smoothScatter.significant
-          )
-    title(paste("Correlation between Network Properties. ", dataset_name), outer=T)
+    # standard library plot:
+#    pairs(current_data.small, 
+#                    upper.panel = panel.smoothScatter.significant,
+##                    lower.panel = panel.qqplot.significant
+#                    lower.panel = panel.smoothScatter.significant
+#          )
+#    title(paste("Correlation between Network Properties. ", dataset_name), outer=T)
+    # lattice plot:
+    print(splom(current_data.small, panel=function(x, y, i, j, ...) { panel.smoothScatter(x,y) }, 
+                main=paste("Correlation between Network Properties. ", dataset_name), outer=T) 
+        )
 #
 }