服务热线
178 0020 3020
R2-09 第十期 综合任务
library("ggplot2")
A<-read.csv(file.choose(1))
ggplot(A,aes(x=mean,y=statu,colour=group,shape=group))+
geom_errorbar(aes(ymin=statu-sd,ymax=statu+sd),width=0.1)+
geom_line(position=position_dodge(0.2))+
geom_point(position=position_dodge(0.2),size=4)+
ggtitle("R2-09")
options("scipen=999")
library("ggplot2")
theme_set(theme_bw())
data("midwest",package="ggplot2")
gg<-ggplot(midwest,aes(x=area,y=poptotal))+
geom_point(aes(col=state,size=popdensity))+
geom_smooth(method = "loess",se=F)+
xlim(c(0,0.1))+
ylim(c(0,500000))+
labs(subtitle="Area vs Population",
y="Population",
x="Area",
title="R2-09",
caption="Source:midwest")
install.packages("RColorBrewer")
library("RColorBrewer")
library("ggplot2")
mydata <-read.csv(file.choose(1))
mymatrix=data.matrix(mydata[,c(-1)])
row.names(mymatrix)=mydata[,1]
heatmap(mymatrix,Rowv=NA,Colv=NA,scale="column",main="R2-09")
附件