Question

我尽力重新编码多列，但我仍然很难做到。我在这里做了什么：

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

Answer 1

这是基本方法（可能最快）。您只是使用ZR列的值作为c（A = 4，B = 3，C = 2，D = 1，E = 0）的索引，它成为转换表，然后将这些结果分配给新的列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应该知道这会提供数字向量

Answer 2

通过玩水平和标签你可以得到这个：

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)))
}

Answer 3

也许这一个单行程dplyr可以提供帮助

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

这里的技巧是将命名向量传递给mutate_at以创建新列。如果您预先指定了级别，则可以将因子强制转换为数字。

Answer 4

使用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)

Answer 5

这是一个更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)])]

如何在R中重新编码多个列

5 个答案: