第二期作业 R-001 折线图与直方图

木萱小主 2017-07-11 16:27:25 阅读: 986

第二期作业 R-001 折线图与直方图

分别将数据1-2保存为CSV格式的Excel格式

将工作目录改成数据所在目录

任务1：折线图1

代码：data <- read.csv("第二期1.csv")
x <- data$Leu浓度
y <- data$增殖数目
plot(x,y,type="o", xlab="Leu浓度",ylab="增值数目",main="不同浓度亮氨酸处理对细胞增值的影响",col="green",col="green")

结果：附件1

任务1：折线图2

代码：data <- read.csv("第二期2.csv")
x <- data$month
y1 <- data$上

y2 <- data$下

plot(x,y1,type="o",ylim=c(0,1000),xlab="month",ylab="RMB",main="Expense",col="red")

lines(y2,type = "o",col = "green"）

结果：附件2

任务3：直方图

代码：x <- c(23.7,45.3,67.5,55.2,30.9,41.8,64.7,57.4,26.5,35.2,44.0,63.1,52.3, 32.8, 38.2)
hist(x,freq=F,xlab ="w",ylab="Density",main="Histogram of w")
lines(density(x),col="red")

结果：附件3


 
邀请讨论

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}
{{item.nick_name}} 受邀请回答 {{item.create_time}}
{{item.refer_comment.nick_name}} {{item.refer_comment.create_time}}

附件

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}
切换到完整回复 发送回复
赞({{item.count_zan}}) 踩({{item.count_cai}}) 删除 回复 关闭
R科研作图学习小组(小组)

小组最新话题

科研狗©2015-2024 科研好助手，京ICP备20005780号-1 建议意见

623577364

服务热线

178 0020 3020

微信服务号