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

replaced single quotes with double in R scripts

Browse source
This commit is contained in:
Tanushree Tunstall 2020-07-16 14:18:18 +01:00
parent eed3450236
commit 8a8790a7d1
5 changed files with 113 additions and 113 deletions
Download patch file Download diff file Expand all files Collapse all files

48
scripts/plotting/subcols_axis_PS.R
View file

@ -1,5 +1,5 @@
getwd()
setwd('~/git/LSHTM_analysis/scripts/plotting')
setwd("~/git/LSHTM_analysis/scripts/plotting")
getwd()
#########################################################
@ -11,8 +11,8 @@ getwd()
# Installing and loading required packages and functions #
########################################################################
#source('Header_TT.R')
#source('barplot_colour_function.R')
#source("Header_TT.R")
#source("barplot_colour_function.R")
########################################################################
# Read file: call script for combining df for PS #
@ -21,25 +21,25 @@ getwd()
#
########################################################
#%% variable assignment: input and output paths & filenames
drug = 'pyrazinamide'
gene = 'pncA'
gene_match = paste0(gene,'_p.')
drug = "pyrazinamide"
gene = "pncA"
gene_match = paste0(gene,"_p.")
cat(gene_match)
#=============
# directories
#=============
datadir = paste0('~/git/Data')
indir = paste0(datadir, '/', drug, '/input')
outdir = paste0('~/git/Data', '/', drug, '/output')
datadir = paste0("~/git/Data")
indir = paste0(datadir, "/", drug, "/input")
outdir = paste0("~/git/Data", "/", drug, "/output")
#======
# input
#======
#in_filename = 'mcsm_complex1_normalised.csv'
in_filename_params = paste0(tolower(gene), '_all_params.csv')
infile_params = paste0(outdir, '/', in_filename_params)
cat(paste0('Input file:', infile_params) )
#in_filename = "mcsm_complex1_normalised.csv"
in_filename_params = paste0(tolower(gene), "_all_params.csv")
infile_params = paste0(outdir, "/", in_filename_params)
cat(paste0("Input file:", infile_params) )
#=======
# output
@ -50,13 +50,13 @@ cat(paste0('Input file:', infile_params) )
###########################
# Read file: struct params
###########################
cat('Reading struct params including mcsm:', in_filename_params)
cat("Reading struct params including mcsm:", in_filename_params)
my_df = read.csv(infile_params
#, stringsAsFactors = F
, header = T)
cat('Input dimensions:', dim(my_df))
cat("Input dimensions:", dim(my_df))
# clear variables
rm(in_filename_params, infile_params)
@ -67,22 +67,22 @@ str(my_df)
# check for duplicate mutations
if ( length(unique(my_df$mutationinformation)) != length(my_df$mutationinformation)){
cat(paste0('CAUTION:', ' Duplicate mutations identified'
, '\nExtracting these...'))
cat(paste0("CAUTION:", " Duplicate mutations identified"
, "\nExtracting these..."))
dup_muts = my_df[duplicated(my_df$mutationinformation),]
dup_muts_nu = length(unique(dup_muts$mutationinformation))
cat(paste0('\nDim of duplicate mutation df:', nrow(dup_muts)
, '\nNo. of unique duplicate mutations:', dup_muts_nu
, '\n\nExtracting df with unique mutations only'))
cat(paste0("\nDim of duplicate mutation df:", nrow(dup_muts)
, "\nNo. of unique duplicate mutations:", dup_muts_nu
, "\n\nExtracting df with unique mutations only"))
my_df_u = my_df[!duplicated(my_df$mutationinformation),]
}else{
cat(paste0('No duplicate mutations detected'))
cat(paste0("No duplicate mutations detected"))
my_df_u = my_df
}
upos = unique(my_df_u$position)
cat('Dim of clean df:'); cat(dim(my_df_u))
cat('\nNo. of unique mutational positions:'); cat(length(upos))
cat("Dim of clean df:"); cat(dim(my_df_u))
cat("\nNo. of unique mutational positions:"); cat(length(upos))
#======================================================
# create a new df with unique position numbers and cols
position = unique(my_df$position) #130
@ -174,7 +174,7 @@ mut_pos_cols = merge(position_cols, aa_cols_ref
, all.x = TRUE)
head(mut_pos_cols)
# replace NA's
# replace NA"s
# :column "lab_bg" with "white"
# : column "lab_fg" with "black"
mut_pos_cols$lab_bg[is.na(mut_pos_cols$lab_bg)] <- "white"