secret
Created

  • Download Gist
gistfile1.txt
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
##Scatter plot for both groups
gap.plot(jitter(rep(0,length(GRO.Controls)),amount = 0.3), gap = c(50,100), xlim=range(-0.5,2), ylim=range(0,max.GRO+0.5),
GRO.Controls, xlab = "", ylab = "Concentrations (pg/ml)", main = "GRO(P=0.0010)")
points(jitter(rep(1,length(GRO.Breast)),amount = 0.3), GRO.Breast, col = "blue")
#axis.break(2,200)
 
##Places y-axis (#2) on the left side
axis(2)
 
##Adds x- variable (groups) labels
mtext("Controls", side = 1, at= 0.0, cex=0.5)
mtext("Breast Cancer", side = 1, at= 1.0, cex=0.5)
 
##Adds median lines for each group
segments(-0.25, median(GRO.Controls), 0.25, median(GRO.Controls), lwd = 2.0)
segments(0.7, median(GRO.Breast), 1.2, median(GRO.Breast), lwd = 2.0)

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.