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

木爻子木 2017-11-05 19:51:09 阅读: 863

R2.1.1

library("ggplot2")

a <- read.csv("R2-1-1.csv",header=T)

b <- ggplot(a, aes(x=A,y=B))

b + geom_point(aes(colour = factor(SIZE)),shape=1)+ggtitle("R2-25")+xlab("A gene expression")+ylab("B gene expression")

R2.1.2

a2 <- read.csv("R2-1-2.csv",header=T)

c <- ggplot(a2, aes(Time,value,shape=SIZE,color=SIZE))

c + geom_line(color="black")+geom_point(size=3)+ggtitle("R2-25")

邀请讨论

{{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}})

删除

回复关闭