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)