tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

added corr plots as function for interactive graphs on shiny

Browse source
This commit is contained in:
Tanushree Tunstall 2021-08-20 18:52:47 +01:00
parent f7aac58081
commit 182465d579
2 changed files with 28 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

25
scripts/functions/my_pairs_panel.R
View file

@ -1,3 +1,28 @@
my_corr_pairs <- function (corr_data){
OutPlot_corr = pairs.panels(corr_data
, method = "spearman" # correlation method
, hist.col = "grey" ##00AFBB
, density = TRUE # show density plots
, ellipses = F # show correlation ellipses
, stars = T
, rug = F
, breaks = "Sturges"
, show.points = T
#, bg = c("#f8766d", "#00bfc4")[unclass(factor(corr_ps$duet_outcome))] # foldx colours are reveresed
#, pch = 21 # for bg
, jitter = T
, alpha = 1
, cex = 1.8
, cex.axis = 2
, cex.labels = 3.5
, cex.cor = 1
, smooth = F)
return(OutPlot_corr)
}
######################################################################
my_pp = function (x, smooth = TRUE, scale = FALSE, density = TRUE, ellipses = TRUE,
digits = 2, method = "pearson", pch = 20, lm = FALSE, cor = TRUE,
jiggle = FALSE, factor = 2, hist.col = "cyan", show.points = TRUE,