R02-17第一期-ggplot2画散点图/折线图作业

四幺1111 2017-11-05 23:32:35 阅读: 1051

2.1.1

read.csv(file="F:\\学习\\实验技术与投稿相关\\实验常用软件\\R语言\\2017.11.4课程学习作业\\R2-1-1.csv")

mydata<-read.csv(file="F:\\学习\\实验技术与投稿相关\\实验常用软件\\R语言\\2017.11.4课程学习作业\\R2-1-1.csv")

library(ggplot2)

ggplot(data=mydata, aes(x=A, y=B, color=SIZE))+

geom_point(pch=17,size=2)+

xlab("A gene expression")+

ylab("B gene expression")+

ggtitle("R2-17")+

scale_x_continuous(limits=c(-2,3))+

scale_y_continuous(limits=c(-1,3))

2.1.2

read.csv(file="F:\\学习\\实验技术与投稿相关\\实验常用软件\\R语言\\2017.11.4课程学习作业\\R2-1-2.csv")

mydata<-read.csv(file="F:\\学习\\实验技术与投稿相关\\实验常用软件\\R语言\\2017.11.4课程学习作业\\R2-1-2.csv")

library(ggplot2)

ggplot(mydata,aes(x=Time,y=value,color=SIZE,shape=SIZE))+

geom_point(size=3)+

geom_line(color="black")+

xlab("Time")+

ylab("value")+

ggtitle("R2-17")+

scale_x_continuous(limits=c(1,4))+scale_y_continuous(limits=c(1.25,2.50))

邀请讨论

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

删除

回复关闭