根据数据中的值创建两列。r中的框架

Question

我有一张800万行的大桌子。此表有15列带有数值，但这些值只能是0，并且只能是该列特有的另一个数值。我想根据特定值为这些列中的每一列创建两个新列。这些新值总是特定于列。

这是我的数据外观的虚拟示例：

mydf1 <- data.frame(ID=1:5, c1n=c(0,1,0,0,1), c2n=c(2,0,2,0,0), c3n=c(0,0,0,3,3))

这是我想要的输出

 > mydf2
   ID c1n c1n_ctr c1n_cas c2n c2n_ctr c2n_cas c3n c3n_ctr c3n_cas
#1  1   0       0       0   2      25      55   0       0       0
#2  2   1      10     100   0       0       0   0       0       0
#3  3   0       0       0   2      25      55   0       0       0
#4  4   0       0       0   0       0       0   3     580    1002
#5  5   1      10     100   0       0       0   3     580    1002

对应关系始终相同，即c1n中1的值为（10,100），c2n中2的值为（25,55），c3n中3的值为（580,1002）。

我知道我可以用这样的东西

 mydf3 <- mutate(mydf1, c1n_ctr = ifelse(c1n == 1, 10, 0)) %>%
        mutate(c1n_cas = ifelse(c1n ==1, 100, 0)) %>%
            mutate(c2n_ctr = ifelse(c2n ==2, 25, 0)) %>%
            mutate(c2n_cas = ifelse(c2n ==2, 55, 0)) %>%
            mutate(c3n_ctr = ifelse(c3n ==3, 580, 0)) %>%
            mutate(c3n_cas = ifelse(c3n ==3, 1002, 0)) 

但我的真实数据有15列，需要大量的复制粘贴，有没有干净的方法？

Answer 1

假设您必须以某种方式写下具体值，那么您可以使用这种方法。

library(dplyr)
mydf1 <- data.frame(ID=1:5, c1n=c(0,1,0,0,1), c2n=c(2,0,2,0,0), c3n=c(0,0,0,3,3))

c1 <- data.frame(c1n=1, c1n_ctr=10, c1n_cas=100)
c2 <- data.frame(c2n=2, c2n_ctr=25, c2n_cas=55)
c3 <- data.frame(c3n=3, c3n_ctr=580, c3n_cas=1002)

mydf3 <- 
    mydf1 %>% 
    left_join(c1) %>% 
    left_join(c2) %>% 
    left_join(c3) %>% 
    mutate_if(is.numeric, funs(ifelse(is.na(.), 0, .)))