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

科研狗聪 2017-11-01 20:03:07 阅读: 943

Figure1.1散点图代码

data<-read.csv("R2-1-1.csv",header=TRUE)

library(ggplot2)

ggplot(data, aes(A, B)) + ggtitle("R2-20") +

xlab("A gene expression") + ylab("B gene expression") +

geom_point(aes(color=SIZE), alpha=0.4, size=3) +

xlim(-2,3) + ylim(-1,3)

Figure1_1_散点图.png

Figure1.2折线图代码

data<-read.csv("R2-1-2.csv",header=TRUE)

ggplot(data, aes(Time, value,shape=SIZE,color=SIZE)) + ggtitle("R2-20") +

geom_line(color = "black")+

geom_point(size=3)

Figure1_2_折线图.png

邀请讨论

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

删除

回复关闭