simple plot for radiation data

fukushima.R

rad<-read.csv(file="~/Downloads/radtext.csv",as.is=TRUE)
radplot<- ggplot(data=rad,aes(x=1:619,y=cumsum(microSv))) + geom_line(size=I(1),linetype=I(2)) + scale_y_log10(name="microSieverts") + scale_x_continuous(labels=c(rad$time[seq(from=100,to=600,by=100)]),breaks=c(seq(from=100,to=600,by=100)),name='') 
radplot<- radplot + geom_line(aes(x=1:619,y=microSv),colour="blue") + geom_hline(aes(yintercept=50000),colour="red")
radplot<- radplot + annotate(geom="text",x=575,y=35000,label="Yearly Limit",colour="red") + annotate(geom="text",x=575,y=1000,label="Hourly Dose",colour="blue") + annotate(geom="text",x=575,y=200000,label="Cumulative")