38 lines
917 B
R
38 lines
917 B
R
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)
|