R：绘图-彩色饼图等

> dose <- c(20,30,40,45,60)
> drugA <- c(16,20,27,40,60)
> drugB <- c(15,18,25,31,40)

> n <- 10

> mycolors <- rainbow(n)

> pie(rep(1, n), labels=mycolors, col=mycolors)

> pie(rep(1, n), labels=mycolors, col=mycolors)
> pie(rep(1, n), labels=mycolors, col=mycolors)
> opar <- par(no.readonly=TRUE)
> par(lwd=2,cex=1.5)
> par(cex.axis=.75, font.axis=3)
> plot(dose, drugA, type="b", pch=19, lty=2, col="red")
> plot(dose, drugB, type="b", pch=23, lty=6, col="blue", bg="green")
> par(opar)
>