溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

R語(yǔ)言怎么按照某一列分組求均值

發(fā)布時(shí)間:2021-04-26 14:57:08 來(lái)源:億速云 閱讀:1474 作者:小新 欄目:開(kāi)發(fā)技術(shù)

小編給大家分享一下R語(yǔ)言怎么按照某一列分組求均值,希望大家閱讀完這篇文章之后都有所收獲,下面讓我們一起去探討吧!

什么是R語(yǔ)言

R語(yǔ)言是用于統(tǒng)計(jì)分析、繪圖的語(yǔ)言和操作環(huán)境,屬于GNU系統(tǒng)的一個(gè)自由、免費(fèi)、源代碼開(kāi)放的軟件,它是一個(gè)用于統(tǒng)計(jì)計(jì)算和統(tǒng)計(jì)制圖的優(yōu)秀工具。

主要介紹tapply函數(shù):

每次只能求一列

aggregate函數(shù):每次按組可以求多列

tapply(shuju[shuju[,3],shuju$year,mean)

以年份為組,求shuju表第三列的均值

aggregate(shuju[,3:4],list(shuju[,2]),mean)

以年份為均值,求數(shù)據(jù)表第三列,第四列的均值

補(bǔ)充:R語(yǔ)言按某一列分類求均值+繪圖總結(jié)

看代碼吧~

D<-aggregate(.~K,data=data1,mean)  #求數(shù)據(jù)集data1按照K分類后所有列的均值
rm(list=ls())   #刪除所有對(duì)象
attach()  #鎖定某個(gè)對(duì)象
with(mtcars,{print(summary(mpg)),plot(mpg,disp)}  #with作用等同attach
grades<-read.table('student.csv',header=TRUE,row.namens='studentid',sep=',')
#讀表

dev.new()  #開(kāi)啟新圖框
dev.off()  #關(guān)閉圖框

R語(yǔ)言怎么按照某一列分組求均值

R語(yǔ)言怎么按照某一列分組求均值 R語(yǔ)言怎么按照某一列分組求均值 R語(yǔ)言怎么按照某一列分組求均值

dose<-c(20,30,40,50,60)
drugA<-c(16,20,25,35,42)
drugB<-c(20,35,46,61,70)
opar<-par(no.readonlyTRUE)
par(pin=c(2,3))   #圖片尺寸
par(cex.axis=.75,font.axis=3)
par(lwd=2,cex=1.5)
plot(dose,drugA,type='b',pch=19,lty=2,col='red')
plot(dose,drug,type='b',pch=23,lty=6,col='blue',bg='green')
par(opar)
plot(dose,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)

dose<-c(20,30,40,50,60)
drugA<-seq(1,10,2)
drugB<-seq(2,20,2)
opar<-par(no.readonly=TRUE)
par(lwd=2,cex=1.5,font.lab=2)
plot(dose,drugA,type='b',pch=15,lty=1,
col='blue',ylim=c(0,60),main='that',
xlab='drug',ylab='resopme')
lines(dose,drugB,type='b',pch=17,lty=2,col='blue')

legend('topleft',inset=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<-par(no.readonly=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圖:

attach(mtacars)
opar<-par(no.readonly=TRUE)
par(mfrow=c(3,1))
hist(wt)
hist(disp)
hist(mpg)
par(opar)
detach(mtcars)

第一幅圖在第一行,第二三副圖在第二行:

attach(mtcars)
opar<-par(no.readonly=TRUE)
layout(matrix(c(1,1,2,3)2,2,byrow=TRUE))
hist(wt)
hist(mpg)
hist(disp)
detach(macars)

看完了這篇文章,相信你對(duì)“R語(yǔ)言怎么按照某一列分組求均值”有了一定的了解,如果想了解更多相關(guān)知識(shí),歡迎關(guān)注億速云行業(yè)資訊頻道,感謝各位的閱讀!

向AI問(wèn)一下細(xì)節(jié)

免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI