- library(ggplot2)#加载包
- #基本数据
- datax <- c(0:99)*2*pi/100
- datay <- sin(datax)*4+cos(2*datax)*2
- dix <- c(rnorm(100))
- datax <- c(0:99)*2*pi/100
- #Scatter plot 散点图
- plot(datax,datay)#绘制散点图
- plot(datax,datay)#绘制散点图
- #Line Graph 线图
- plot(datax,datay,type="l")#绘制线图
- points(datax[20:40],datay[20:40])#标点
- lines(datax,datay/2,type="l",col="red")
- points(datax[20:40],datay[20:40]/2,col="red")
- #Bar Graph 柱状图
- barplot(dix,col = "yellow")