簡體   English   中英

如何在R中重新編碼多列

[英]How to recode multiple columns in R

我盡力重新編碼多列,但是我仍然很難做到。 這是我所做的:

df<-read.table(text="ZR1 Time1 ZR2 Time2 ZR3 Time3
  A 60  A   56  B   44
  C 61  B   44  D   78
  D 62  C   78  E   66
  E 58  D   46  B   45
  A 54  B   23  B   23
  A 57  E   24  B   100",h=T)

我做了什么

for (i in 1) {
 ZRi<-paste0("ZR", i)
Zi<-paste0("Z",i)}
df[,Zi]=c(A=4,B=3,C=2,D=1,E=0)
 df[,Zi]=c(A=4,B=3,C=2,D=1,E=0)[df[,ZRi]]

我懂了:

ZR1 Time1 ZR2 Time2 ZR3 Time3 Z1
1   A    60   A    56   B    44  4
2   C    61   B    44   D    78  3
3   D    62   C    78   E    66  2
4   E    58   D    46   B    45  1
5   A    54   B    23   B    23  4
6   A    57   E    24   B   100  4

如您所見,我可以得到Z1,這是錯誤的。

我想得到這個:

ZR1 Time1   ZR2 Time2   ZR3 Time3   Z1  Z2  Z3
A   60  A   56  B   44  4   4   3
C   61  B   44  D   78  2   3   1
D   62  C   78  E   66  1   2   0
E   58  D   46  B   45  0   1   3
A   54  B   23  B   23  4   3   3
A   57  E   24  B   100 4   0   3

這是基本方法(可能最快)。 您只是將ZR列的值用作c(A = 4,B = 3,C = 2,D = 1,E = 0)的索引,該c成為轉換表,然后將這些結果分配給新的列df:

df[ paste0("Z", 1:3) ] <- 
   lapply( df[ , grepl("^ZR", names(df))] , # passes "ZR" columns one-at-a-time 
               function(x) {c(A=4,B=3,C=2,D=1,E=0)[as.character(x)]})

根據這些新列的用途,@ User60應該意識到這會傳遞數字矢量

通過玩關卡和標簽,您可以獲得:

for (i in 1:3) {
  df[[paste0("Z",i)]] <-
    factor(df[[paste0("ZR", i)]],levels=LETTERS[1:5],labels=4:0)
}
df
#   ZR1 Time1 ZR2 Time2 ZR3 Time3 Z1 Z2 Z3
# 1   A    60   A    56   B    44  4  4  3
# 2   C    61   B    44   D    78  2  3  1
# 3   D    62   C    78   E    66  1  2  0
# 4   E    58   D    46   B    45  0  1  3
# 5   A    54   B    23   B    23  4  3  3
# 6   A    57   E    24   B   100  4  0  3

使用此方法創建的列將是要具有數字的因子,而應使用以下內容:

for (i in 1:3) {
  df[[paste0("Z",i)]] <-
    as.numeric(as.character(factor(df[[paste0("ZR", i)]],levels=LETTERS[1:5],labels=4:0)))
}

也許這與dplyr可能會有所幫助

df %>% 
  mutate_at(setNames(paste0("ZR", 1:3), paste0("Z", 1:3)), 
            ~5-as.numeric(factor(.x, levels = LETTERS[1:5])))

這里的技巧是將命名向量傳遞給mutate_at以創建新列。 如果您預先指定了級別,則可以將系數強制為數字。

使用dplyr + magrittr軟件包的替代解決方案

library(dplyr); library(magrittr)    
df2 <- select(df, starts_with("ZR")) %>% 
       lapply(as.character) %>% 
       mapply(`[`, list(c(A=4,B=3,C=2,D=1,E=0)), .) %>% 
       data.frame(df, .)
names(df2)[ncol(df2)-2:0] <- paste0("Z", 1:3)

這是一種更加dplyr -esque的方法。 當輸出不是整數時,對重新編碼很有用。

library(dplyr)
# Make lookup table
lookup <- data.frame(let = LETTERS[1:5], num = 4:0, stringsAsFactors = F)
# Join with lookup table
df %>% 
  left_join(lookup, by = c('ZR1' = 'let')) %>% 
  left_join(lookup, by = c('ZR2' = 'let')) %>% 
  left_join(lookup, by = c('ZR3' = 'let')) %>% 
  rename_at(vars(matches('num')), ~paste0('Z', 1:3))

或者,使用data.table

library(data.table)
lookup <- data.frame(let = LETTERS[1:5], num = 4:0, stringsAsFactors = F)
setDT(df)
df[, paste0('Z', 1:3) := lapply(df[,paste0('ZR', 1:3)], 
                                function(x) lookup$num[match(x, lookup$let)])]

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM