【564】用 R 制图

参考:R语言绘图

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()

  显示效果:

【564】用 R 制图

  ggplot2

#+++++++画散点图等展示数据的图+++++++
#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格式

  显示效果: 

【564】用 R 制图

 

上一篇:Brenda to Cytoscape (2,v1.0)


下一篇:最新宝塔面板UI美化版源码