服务热线
178 0020 3020
R2-06 第十期综合
part1
library(ggplot2)
data<-read.csv(file.choose())
ggplot(data,aes(x=Day,y=Weight,group=Number))+
geom_line()+
geom_point(size=3,aes(colour=Number))+xlab("Time")+ylab("Weight")+
xlim(0,8)+ylim(16,22)+labs(title="R2-06-dean")
part2
library(ggplot2)
data<-ggplot(midwest,aes(x=area,y=poptotal))+
geom_point(aes(col=state,size=popdensity))+
geom_smooth(method='loess')+xlim(c(0,0.1))+ylim(c(0,500000))+
labs(title="R2-06-dean")
mytheme<- theme(panel.grid = element_blank(), panel.background=element_blank(),axis.text=element_blank(),axis.ticks = element_blank())+theme(legend.position = "bottom")
data+mytheme
part3
library(reshape2)
library(scales)
library(plyr)
library(ggplot2)
data<-read.csv(file.choose())
data2<-melt(data,id.vars=c("Name"))
data3<-ddply(data2,.(variable), transform,label=rescale(value))
ggplot(data3, aes(x=variable,y=Name))+geom_tile(aes(fill=label))+scale_fill_gradient(low = "white", high = "blue")+xlab("Groups") +
ggtitle("R2-06-dean")
附件