R语⾔按某⼀列分类求均值+绘图总结D<-aggregate(.~K,data=data1,mean)#求数据集data1按照K分类后所有列的均值
rm(list=ls())#删除所有对象
attach()#锁定某个对象
with(mtcars,{print(summary(mpg)),plot(mpg,disp)}#with作⽤等同attach
grades<-read.table('student.csv',header=TRUE,row.namens='studentid',p=',')
#读表三号位
物业顾问dev.off（）#关闭图框
在这⾥插⼊图⽚描述
do<-c(20,30,40,50,60)
drugA<-c(16,20,25,35,42)
drugB<-c(20,35,46,61,70)
opar<-adonlyTRUE)
par(pin=c(2,3))#图⽚尺⼨
par(cex.axis=.75,font.axis=3)
par(lwd=2,cex=1.5)
plot(do,drugA,type='b',pch=19,lty=2,col='red')
plot(do,drug,type='b',pch=23,lty=6,col='blue',bg='green')
par(opar)
中国十大刑事案件plot(do,drugA,type='b',col='red',
lty=2,pch=2,lwd=2,main='clain',
sub='this is',xlab='dosa',ylab='drug',
xlim=c(0,60),ylim=c(0,70))
图例
#legend（location,title,legend）
do<-c(20,30,40,50,60)
drugA<-q(1,10,2)
drugB<-q(2,20,2)
opar<-adonly=TRUE)
par(lwd=2,cex=1.5,font.lab=2)杂糅
plot(do,drugA,type='b',pch=15,lty=1,
炸薯片的家常做法col='blue',ylim=c(0,60),main='that',
xlab='drug',ylab='resopme')
lines(do,drugB,type='b',pch=17,lty=2,col='blue')
legend('topleft',int=0.05,title='main',c('A','B'),lty=c(1,2),
pch=c(15,17),col=c('red','blue'))
par(opar)
画2*2图：
过渡球attach(mtcars)
opar<-adonly=TRUE)
par(mfrow=c(2,2))
plot(wt,mpg,main='11')
plot(wt,disp,main='xx')
hist(wt,main='dd')
boxplot(wt,main='ds')
par(opar)
detach(mtcars)
画3*1图：英语13
attach(mtacars)
opar<-adonly=TRUE)
par(mfrow=c(3,1))
hist(wt)
hist(disp)
hist(mpg)
par(opar)
detach(mtcars)
第⼀幅图在第⼀⾏，第⼆三副图在第⼆⾏：
attach(mtcars)
opar<-adonly=TRUE)
layout(matrix(c(1,1,2,3)2,2,byrow=TRUE))期末复习方法
hist(wt)
hist(mpg)
hist(disp)
detach(macars)
