xâu, Pad và Paste Cột trong Dataframe mà không có một vòng

Question

Tôi có dataframe này, nó trông như thế này:

tôi cần phải thực hiện ký tự đầu tiên từ cột tại, toàn bộ giá trị trong một , sau đó đặt một bộ đếm ở đầu để tăng số lần lặp lại trong cột a. Bộ đếm này phải luôn có độ dài là ba. Kết quả cuối cùng là thế này:

Vì vậy, không có gì ở đây mà ấn tượng, tôi đã có thể làm điều này với đoạn mã sau (chuẩn bị được ấn tượng):

library(stringr) 
tk <- "" 
for (i in 1:nrow(df)){ 
    if (tk == df$an[i]){ 
    counter <- counter + 1 
    } else { 
    tk <- df$an[i] 
    counter <- 1 
    } 
    df$ap[i] <- counter 
} 

df$ap <- paste0(substr(df$at, 1, 1), df$an, str_pad(df$ap, 3, pad="0")) 

Tôi rất không hài lòng với sự thất bại này. Nó có vẻ không phải là rất "R" và tôi muốn rất nhiều không bao giờ để cho phép điều này để xem ánh sáng trong ngày. Làm thế nào tôi có thể làm cho điều này "R" hơn?

Tôi đánh giá cao lời khuyên.

Answer 1

library(stringr) 
library(dplyr) 
df1 <- df %>% 
      group_by(an) %>% 
      mutate(ap=paste0(substr(at, 1, 1), an, str_pad(row_number(), 3, pad="0"))) 

    at  an   ap 
1 NDA 023356 N023356001 
2 ANDA 023357 A023357001 
3 ANDA 023357 A023357002 
4 NDA 023357 N023357003 
5 ANDA 023398 A023398001 

Answer 2

này hoạt động:

library(stringr)  
df = data.frame(at=c("NDA","ANDA","ANDA","NDA","ANDA"),an=c("023356","023357","023357","023357","023398"),stringsAsFactors = F) 

df$ap = paste0(substr(df$at,1,1), 
       df$an,str_pad(ave(df$an, df$an, FUN = seq_along),width=3,pad="0")) 

Output:

at  an   ap 
1 NDA 023356 N023356001 
2 ANDA 023357 A023357001 
3 ANDA 023357 A023357002 
4 NDA 023357 N023357003 
5 ANDA 023398 A023398001 

Hope this helps!

Answer 3

Trong cơ sở R, bạn có thể sử dụng sprintf để 0s pad và ave để có được số lượng như thế này:

df$ap <- paste0(substr(df$at, 1, 1), df$an, 
       sprintf("%03.0f", as.numeric(ave(df$an, df$an, FUN=seq_along)))) 

ave thực hiện các tính toán nhóm và seq_along đếm các hàng.

trả về

df 
    at  an   ap 
1 NDA 023356 N023356001 
2 ANDA 023357 A023357001 
3 ANDA 023357 A023357002 
4 NDA 023357 N023357003 
5 ANDA 023398 A023398001 

Answer 4

Các rleid và rowid chức năng từ data.table có thể hữu ích ở đây:

# using df from @Florian's answer 
library(data.table) 
setDT(df) 

df[, v := paste0(
    substr(at, 1, 1), 
    an, 
    sprintf("%03.f", rowid(rleid(an))) 
)] 

#  at  an   v 
# 1: NDA 023356 N023356001 
# 2: ANDA 023357 A023357001 
# 3: ANDA 023357 A023357002 
# 4: NDA 023357 N023357003 
# 5: ANDA 023398 A023398001 

Cách hoạt động:

• sprintf từ cơ sở một cách hiệu quả Làm công việc của stringr::str_pad trong OP.
• rleid nhóm chạy các giá trị lặp lại với nhau.
• rowid đặt bộ đếm trong mỗi nhóm.