欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

R語(yǔ)言變量重編碼、重命名的操作

 更新時(shí)間：2021年04月17日 09:08:48   作者：交小通  
這篇文章主要介紹了R語(yǔ)言變量重編碼、重命名的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧

1、變量重編碼

重編碼涉及根據(jù)同一個(gè)變量和/或其他變量的現(xiàn)有值創(chuàng)建新值的過程，如將符合某個(gè)條件的值重新賦值等，這里主要介紹兩種常見的方法：

#第一種方法
per <- data.frame(name = c("張三","李四","王五","趙六"),
                  age = c(23,45,34,1000))
per
per$age[per$age == 1000] <- NA #設(shè)置缺失值
per$age1[per$age < 30] = "young" #生成新變量
per$age1[per$age >= 30 & per$age<50] <- "middle age" 
per
#第二種方法
per <- data.frame(name = c("張三","李四","王五","趙六"),
                  age = c(23,45,34,1000))
per <- within(per,{
   age1 <- NA
   age1[age < 30] <- "young"
   age1[age>=30 & age<50] <- "middle age"
})
per

2、變量的重命名

變量已經(jīng)存在，但是如果對(duì)變量名稱不滿意，可以對(duì)變量重新命名，這里提供以下幾種方法：

手動(dòng)輸入。應(yīng)用fix()函數(shù)調(diào)出編輯框，手動(dòng)輸入即可。

使用names()函數(shù)。格式為：names(x) <- value。需要指定對(duì)第幾個(gè)變量名進(jìn)行修改。

使用plyr包中的rename()函數(shù)。格式為rename(x, replace, warn_missing = TRUE, warn_duplicated = TRUE)，需要指定對(duì)哪個(gè)變量名進(jìn)行修改。

per <- data.frame(name = c("張三","李四","王五","趙六"),
                  age = c(23,45,34,1000))
per
#第一種方法：手動(dòng)輸入
fix(per) #調(diào)出輸入框，手動(dòng)輸入
#第二種方法，names()函數(shù)
per <- data.frame(name = c("張三","李四","王五","趙六"),
                  age = c(23,45,34,1000))
names(per)[2] <- "年齡"  #指定第個(gè)變量重命名
per
#第三種方法
per <- data.frame(name = c("張三","李四","王五","趙六"),
                  age = c(23,45,34,1000))
library(plyr)
per <- rename(per,c(age="年齡")) #直接對(duì)變量名進(jìn)行修改
per

補(bǔ)充：R語(yǔ)言變量的處理（創(chuàng)建新變量 變量重新賦值）

創(chuàng)建新變量:

方法一:

#在mydata數(shù)據(jù)庫(kù)中創(chuàng)建新變量sum，sum是mydata數(shù)據(jù)庫(kù)中x1和x2之和
mydata$sum <- mydata$x1 + mydata$x2
#在mydata數(shù)據(jù)庫(kù)中創(chuàng)建新變量mean，sum是mydata數(shù)據(jù)庫(kù)中x1和x2平均
mydata$mean <- (mydata$x1 + mydata$x2)/2

eg:

> newwomen=women
> newwomen$bmi=women$weight/women$height^2;
> newwomen
   height weight        bmi
1      58    115 0.03418549
2      59    117 0.03361103
3      60    120 0.03333333
4      61    123 0.03305563
5      62    126 0.03277836
6      63    129 0.03250189
7      64    132 0.03222656
8      65    135 0.03195266
9      66    139 0.03191001
10     67    142 0.03163288
11     68    146 0.03157439
12     69    150 0.03150599
13     70    154 0.03142857
14     71    159 0.03154136
15     72    164 0.03163580
>

方法二:

attach(mydata) #附上數(shù)據(jù)mydata
mydata$sum <- x1 + x2 #在mydata數(shù)據(jù)庫(kù)中創(chuàng)建新變量sum
mydata$mean <- (x1 + x2)/2 #新變量mean
detach(mydata) #每次attach數(shù)據(jù)之后，應(yīng)該detach，解除之前的數(shù)據(jù)庫(kù)粘附

這個(gè)地方我們看見x1和x2變量前面不需要再使用mydata$，那是因?yàn)槲覀冎耙呀?jīng)附上mydata數(shù)據(jù)庫(kù)（attach)，這個(gè)時(shí)候，R已經(jīng)知道會(huì)利用附上的數(shù)據(jù)中的x1和x2變量直接計(jì)算。但是創(chuàng)建的新變量sum必須使用$在mydata數(shù)據(jù)庫(kù)之下，不然R就會(huì)計(jì)算出名字為sum，但是是個(gè)list性質(zhì)的單獨(dú)數(shù)據(jù)庫(kù)。

方法三：

mydata <- transform( mydata, sum = x1 + x2,mean = (x1 + x2)/2)
#通過一行命令創(chuàng)建多個(gè)新變量。
 newwomen=transform(women,bmi=weight/height^2)
> newwomen
   height weight        bmi
1      58    115 0.03418549
2      59    117 0.03361103
3      60    120 0.03333333
4      61    123 0.03305563
5      62    126 0.03277836
6      63    129 0.03250189
7      64    132 0.03222656
8      65    135 0.03195266
9      66    139 0.03191001
10     67    142 0.03163288
11     68    146 0.03157439
12     69    150 0.03150599
13     70    154 0.03142857
14     71    159 0.03154136
15     72    164 0.03163580

變量重新賦值

方法一：

mydata$agecat <- ifelse(mydata$age > 70,c("older"), c("younger")) # 創(chuàng)建年齡組別（2組）

該命令利用ifelse函數(shù)，有點(diǎn)類似于其他語(yǔ)言中的if….else。 該命令左邊告訴R我們需要在mydata數(shù)據(jù)庫(kù)里面創(chuàng)建新變量agecat（年齡組），該變量當(dāng)age>70時(shí),年齡組變量賦值為older，其他情況下(age<=70)，年齡組變量賦值為younger。關(guān)于更多ifelse()信息和案例,可通過help(ifelse)查看。

方法二：

attach(mydata)
mydata$agecat[age > 75] <- "Elder"
mydata$agecat[age > 45 & age <= 75] <- "Middle Aged"
mydata$agecat[age <= 45] <- "Young"
detach(mydata)
#創(chuàng)建變量agecat，并按照年齡大小直接賦值.

重命名

方法一

fix(mydata) #直接重命名，關(guān)閉時(shí)保存

方法二

library(reshape)
mydata <- rename(mydata, c(oldname="newname"))
#利用reshape包里面的rename函數(shù)直接重命名。

以上為個(gè)人經(jīng)驗(yàn)，希望能給大家一個(gè)參考，也希望大家多多支持腳本之家。如有錯(cuò)誤或未考慮完全的地方，望不吝賜教。

相關(guān)文章

最新評(píng)論