R2-18-第一期-ggplot2画散点图/折线图作业

无桀纣 2017-11-04 21:04:18 阅读: 950

散点图

mydata<-read.cvs("R2-1-1.csv")

library(ggplot2)

ggplot(mydata,aes(x=A,y=B,colour=SIZE))+geom_point(shape=1,size=4)+xlab("A gene expression")+ylab("B gene expression")+ggtitle("R2-18")

折线图

mydata<-read.csv("R2-1-2.csv")

library(ggplot2)

ggplot(mydata, aes(Time,value,color =SIZE,shape = SIZE))+geom_line(color = "blue")+geom_point(size=3)+ ggtitle("R2-18")+xlab("Time")+ylab("value")

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭