atb118的博客

x <- c(1:10) y <- x z <- 10/x opar <- par(no.readonly=TRUE) par(mar = c(5,4,4,8)+0.1) plot(x, y, type="b", pch = 21, col = "red", yaxt = "n", lty = 3, ann = FALSE) lin...

源代码： dose <- c(20, 30, 40, 45, 60) drugA <- c(16, 20, 27, 40, 60) drugB <- c(15, 18, 25, 31, 40) opar <- par(no.readonly = TRUE) par(lwd = 2, cex = 1.5, font.lab = 2) plot(dos...