服务热线
178 0020 3020
第二期 作业提交 R37-木子
作业一 用内置函数“pressure”来绘制简单箱线图，并学习调节相关参数。
pressure
boxplot(pressure,col="red",border="black")
作业二
2.1学习设置默认工作空间以及查看默认工作空间，并复习读入CSV文件并画箱线图。
getwd()
setwd("D:/R语言学习资料/R group task 4")
getwd()
a<-read.csv(file="data2.csv",header=T）
boxplot((a[,1:3]),notch=T,col=c('green','red','blue'),main='adults body index')
2.2 最终提交作业以因子T，分类画出身高的boxplot。
要求：使用setwd()函数设置默认工作空间为R(自己新建)，文件夹，读入读出均在次文件夹中进行；boxplot的box水平；并使用read.csv读入数据，pdf函数输出。（提示，颜色可以使用rainbow()）
setwd("D:/R语言学习资料/R group task 4/R")
getwd()
a <- read.csv(file="data2.csv",header=T）
pdf("adults body index-T.pdf")
boxplot((a$Height~a$T),col=c("green","red","blue"),main="Adult’s body index",horizontal=T))
dev.off()
作业三
数据前处理一下
| KRAS | NRAS | HRAS | tissue | |
| GSM543123 | 274.0212 | 136.9942 | 604.1987 | tumor |
| GSM543124 | 538.688 | 338.5137 | 391.0427 | tumor |
| GSM543125 | 356.8084 | 269.6682 | 503.0456 | tumor |
| GSM543126 | 130.4427 | 177.941 | 207.5363 | tumor |
| GSM543127 | 189.7174 | 93.16225 | 496.7795 | tumor |
| GSM543128 | 265.9812 | 541.1249 | 875.0288 | tumor |
| GSM543129 | 195.7751 | 367.0757 | 1652.851 | tumor |
| GSM543130 | 84.95902 | 304.4849 | 284.6742 | tumor |
| GSM543131 | 129.2539 | 108.6613 | 529.5682 | tumor |
| GSM543132 | 222.7421 | 274.3955 | 922.3635 | tumor |
| GSM543133 | 123.7574 | 97.90155 | 519.6525 | tumor |
| GSM543134 | 69.42021 | 110.6167 | 184.8296 | tumor |
…………
x <- read.csv("data1.csv",header=T)
x
y<-x[,-1]
pdf("RAS expression.pdf")
boxplot(KRAS~tissue,data=y,col=“red”,main=“RAS expression”,boxwex=0.1,at=1:2-0.2,ylim=c(1,2000),axes=F)
boxplot(NRAS~tissue,data=y,col=“green”,add=T,ylab=“expression”,boxwex=0.1,at=1:2)
boxplot(HRAS~tissue,data=y,col=“yellow”,add=T,boxwex=0.1,at=1:2+0.2,axes=F)
legend(“topleft”,inset=0.1,c(“KRAS”,“NRAS”,“HRAS”),col=c(“red”,“green”,“yellow”),pch=c(15,15,15))
dev.off()
附件