data(sotiriou)
plot(sotiriou$AGE,sotiriou$TUMOR_SIZE,pch=(sotiriou$recur+1),
main="Age and Tumor Size",
sub="Breast Cancer Recurrence Data",
xlab="Age (years)",ylab="Tumor Size",
col=c("blue","darkolivegreen"))
legend(31,8,legend=c("Not Recurrent","Recurrent"),pch=1:2,
col=c("blue","darkolivegreen"))
Run the code above in your browser using DataLab