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

stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-27 15:35:41 +01:00
parent 79b251047d
commit c6f5a446c3
6 changed files with 56 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

26
scripts/functions/position_count_bp.R
View file

@ -22,20 +22,22 @@ theme_set(theme_grey())
# visually might be nicer for it to be inside the plot
#=================================================================
site_snp_count_bp <- function (plotdf
, df_colname = "position"
site_snp_count_bp <- function (plotdf,
df_colname = "position",
#, bp_plot_title = ""
#, leg_title = "Legend title"
, leg_text_size = 10#20
, axis_text_size = 10#25
, axis_label_size = 10#22
, subtitle_size = 10#20
, geom_ls = 10
, xaxis_title = "Number of nsSNPs"
, yaxis_title = "Number of Sites"
, title_colour = "chocolate4"
, subtitle_text = NULL
, subtitle_colour = "pink")
leg_text_size = 10,#20
axis_text_size = 10,#25
axis_label_size = 10,#22
subtitle_size = 10,#20
geom_ls = 10,
xaxis_title = "Number of nsSNPs",
yaxis_title = "Number of Sites",
title_colour = "chocolate4",
subtitle_text = NULL,
subtitle_colour = "pink",
...
)
{
plotdf = as.data.frame(plotdf)