lots of per-plot configs

scripts/plotting/plotting_thesis/just.R

@@ -0,0 +1,38 @@
+bar =  merged_df3[, c("mutationinformation", "position", "pos_count", "df2_pos_count_all")]
+
+foo = merged_df3[, c("mutationinformation", "position"
+                     , "ligand_distance"
+                     , "interface_dist"
+                     , "or_mychisq"
+                     , "maf")]
+
+foo[foo$position==445,]
+
+foo1 = na.omit(foo)
+foo2 = foo1[order(-foo1$or_mychisq),]
+head(foo1, 10)
+head(foo2, 20)
+
+foo2[foo2$position==497,]
+
+foo2[foo2$position==328,]
+foo2[foo2$position==347,]
+
+ggplot(foo, aes(x= position), reorder(x)) + geom_bar()
+foo2[foo2$position%in%c(405, 406, 407, 408,409),]
+
+dr = seq(319,334, 1)
+dr = seq(303, 306, 1)
+
+foo2[foo2$position%in%dr,]
+foo2[foo2$position%in%aa_pos_dsl,]
+foo2[foo2$position%in%aa_pos_ca,]
+foo2[foo2$position%in%c(644,645, 690),]
+# maf
+
+foo3 = foo[order(-foo$maf),]
+head(foo3)
+E378A, M306V, M306I, G406A, R24P, Q497R
+
+foo3_nona = foo1[order(-foo1$maf),]
+head(foo3_nona)