TAST:
（1） 将图形区域进行分割，分成3个不规则区域，第一行一个图，第二行二个图。对作业（第一周）的df.csv的Weight和Scores分别绘制直方图（同时添加正态分布密度曲线、图例和标题），放在第二行。将df中的2到4列都绘制到在同一张图中，放在第一行。（第四章）
（2） 对df.csv中的数据，以Height,Weight为x,y轴，画出Age数据的三维散点图（第四章）。
（3） [图片上传失败...(image-d396bf-1531845811111)]
（4） 运用ggplot2程序包绘制df.csv数据中的Height为x轴、Weight为y轴，以变量Age映射为颜色属性的图层；使用+添加第二层散点图、第三层平滑曲线、第四层分面、第五层添加标题，并且在每层图根据自己的喜好修改图形的样式和颜色等。最后将图形保存为.jpeg格式。
代码：
1
rm(list=ls())
x<-read.csv("df.csv")
layout(matrix(c(1,2,1,3),2,2))
matplot(x[2:4],type="l",col=1:3,lwd=2)
legend(1,150,col=1:3,pch="-",legend=c("x1","x2","x3"))
hist(x[,4],main ="weight",col=2,freq=F,density=20,ylim=range(0,0.05))
lines(density(x[,4]),col="blue")
hist(x[,5],main ="分数",col=3,freq=F,density=20,xlab="scores")
lines(density(x[,5]),col=6)
2
install.packages("rgl")
library(rgl)
plot3d(x[,3],x[,4],x[,2],col=2)
3
x3=seq(-2pi,2pi,length.out=50)
y=x3
f<-function(x,y)
{
z=sin(x)sin(0.5y)
}
sin.exp=expression(z=sin(x)sin(0.5y))
z=outer(x,y,f)
oldpar=par(bg="white")
persp(x,y,z,theta=30,phi=30,expand=0.5,col="lightblue")
title(main=sin.exp)
4
install.packages("ggplot2")
library(ggplot2)
jpeg(file="f:\分层图.jpeg")
a1=ggplot(data=x,aes(x=Height,y=Weight,color=Age))
print(a1+geom_point(aes(color=Age))+geom_smooth()+facet_wrap(~Age,ncol = 6)+ggtitle("分层图"))
dev.off()
