surv.plot(time, status, group=rep(1,length(time)), mark=3, col=1, lty=1, na.group = T, cex=1, log=F, yscale=1, xlab="", ylab="")
In addition, the high-level graphics arguments described under par and the arguments to title may be supplied to this function.
surv.plot(pgtime,pgstat,g2group,col=c(3,6),log=T)