# NOT RUN {
# }
# NOT RUN {
# use sample to set colour scheme
sex.colours <- replace(as.vector(patient$sex), which(patient$sex == 'male'),'dodgerblue');
sex.colours <- replace(sex.colours, which(patient$sex == 'female'), 'pink');
len <- apply(SNV[1:15], 2, function(x){mutation.count <- length(which(x == 1))});
create.barplot(
filename = paste0(tempdir(),'/Using_patient_dataset.tiff'),
formula = len ~ colnames(SNV[1:15]) ,
data = SNV,
main = 'patient dataset',
xaxis.rot = 45,
ylimits = c(0,30),
yat = seq(0,30,5),
col = sex.colours,
description = 'Barplot created by BoutrosLab.plotting.general'
);
# }
Run the code above in your browser using DataCamp Workspace