【564】用 R 制图

参考：R语言绘图

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

plot(cars$dist~cars$speed, #y~x，cars是R自带的数据      main="Relationship between car distance & speed", #标题      xlab = "Speed(miles per hour)", #x轴标题      ylab = "Distance travelled (miles)", #Y轴标题      xlim = c(0,30), #设置x轴的取值区间为0到30      ylim = c(0,140), #设置y轴的取值区间为0到140      xaxs = "i", #这里是设置x轴的风格，暂时没看明白有多大区别      yaxs = "i",      col = "red", #设置颜色      pch = 19) #pch指代点的形状，用数字表示，可查看帮助文档 # 如果要保存图片怎么办呢？我觉得最简单的方法就是使用RStudio这个IDE，极其得好， # 可惜很多人都不知道。#如果你不会，可以用如下代码实现： #（图形的参数还有很多个，我这里只使用了其中的几个） png(filename="散点图.png",width=480,height=480) dev.off()

　　显示效果：

　　ggplot2

?

1 2 3 4 5 6 7 8 9 10 11 12 13

#+++++++画散点图等展示数据的图+++++++ #install.packages("ggplot2")#如果还没安装过这个包可以安装 library(ggplot2) data=data.frame(x=c(1:18),y=sin(c(1:18)/6*pi)+1.2)#数据一定要用data.frame储存 #pdf("1.pdf",width=2,height=1.5)#保存为pdf格式 ggplot(data,aes(x=x,y=y))+   geom_line()+geom_point(size=3)+#点和线，可以换成其他图表类型，相关代码在网上有很多   theme(panel.grid.major=element_blank(),panel.grid.minor=element_blank(),panel.background=element_blank(),         axis.line=element_line(colour="black"))+   scale_x_continuous(expand=c(0,0))+   scale_y_continuous(expand=c(0,0))+   xlab("t")+ylab("Demand level") #dev.off()#保存为pdf格式

　　显示效果：