如何在數據框中添加多個字符列？

Question

我有這樣

Peak number 
ALDH9A1  0 
ALDH9A1  2 
    RPL4  2 
    RPL4  8 
TP53BP1  0 
TP53BP1  1 
    TOM1  7 
    TOM1  17 

我想創建一個字符的組合和數字這樣

Met Char Type Made  Peak number 
111 A AAK ADDR ALDH9A1  0 
111 B AAK ADDR ALDH9A1  2 
111 A AAK ADDR  RPL4  2 
111 B AAK ADDR  RPL4  8 
111 A AAK ADDR TP53BP1  0 
111 B AAK ADDR TP53BP1  1 
111 A AAK ADDR  TOM1  7 
111 B AAK ADDR  TOM1  17 

Answer 1

嘗試4個新列：

library(dplyr) 
df %>% 
    mutate(Type = "AAK", Met = 111, Made = "ADDR") %>% 
    group_by(Peak) %>% 
    mutate(Char = LETTERS[row_number()]) 

其中給出：

#Source: local data frame [8 x 6] 
#Groups: Peak [4] 
# 
#  Peak number Type Met Made Char 
# (fctr) (int) (chr) (dbl) (chr) (chr) 
#1 ALDH9A1  0 AAK 111 ADDR  A 
#2 ALDH9A1  2 AAK 111 ADDR  B 
#3 RPL4  2 AAK 111 ADDR  A 
#4 RPL4  8 AAK 111 ADDR  B 
#5 TP53BP1  0 AAK 111 ADDR  A 
#6 TP53BP1  1 AAK 111 ADDR  B 
#7 TOM1  7 AAK 111 ADDR  A 
#8 TOM1  17 AAK 111 ADDR  B