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

breakage

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-05 12:45:16 +01:00
parent 14f8f5d6d4
commit c0f59bc9c9
5 changed files with 74 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

23
scripts/functions/combining_dfs_plotting.R
View file

@ -343,6 +343,29 @@ combining_dfs_plotting <- function( my_df_u
, "\nNo. of rows merged_df3: ", nrow(merged_df3))
quit()
}
#---------------------------------------------
# add columns that are needed to generate plots with revised colnames and strings
#----------------------------------------------
merged_df3['sensitivity'] = ifelse(merged_df3['dst_mode'] == 1, "R", "S")
merged_df3['mutation_info_labels'] = ifelse(merged_df3['mutation_info_labels'] == "DM", "R", "S")
merged_df2['sensitivity'] = ifelse(merged_df2['dst_mode'] == 1, "R", "S")
merged_df2['mutation_info_labels'] = ifelse(merged_df2['mutation_info_labels'] == "DM", "R", "S")
#check1 = all(table(merged_df3["mutation_info_labels"]) == table(merged_df3['sensitivity']))
#check2 = all(table(merged_df2["mutation_info_labels"]) == table(merged_df2['sensitivity']))
check1 = all(merged_df3["mutation_info_labels"] == merged_df3['sensitivity'])
check2 = all(merged_df2["mutation_info_labels"] == merged_df2['sensitivity'])
if(check1 && check2){
cat("PASS: merged_df3 and merged_df2 have mutation info labels as R and S"
, "\nIt also has sensitivity column"
, "\nThese are identical")
}else{
stop("Abort: merged_df3 or merged_df2 can't be created because of lable mismatch")
}
return(list( merged_df2
, merged_df3
))