if(interactive()){ require(ggplot2) p <- ggplot(mtcars, aes(mpg, disp, color = factor(cyl))) + geom_point() tohtml(p,filename = file.path(tempdir(), ...
確定! 回上一頁