- [R如何改變基於條件（在另一個COL複製）

Question

我有這樣

df <- data.frame(groupx=c("k1","k1","k2","k4","k3","k2"),x1=rep(1,6),x2=rep(2,6), 
x3=rep(3,6),y1=rep(4,6),x12=rep(5,6)) 

以及用於組，每個組重複行的數據幀的多個列，我想通過前綴的修改幾個相關列與編號「a」

目前，我正在做這樣和我相當肯定這不是最有效的方法：

df[duplicated(df$groupx),"x1"]=paste0("a",df[duplicated(df$groupx),"x1"]) 
df[duplicated(df$groupx),"x2"]=paste0("a",df[duplicated(df$groupx),"x2"]) 
df[duplicated(df$groupx),"x3"]=paste0("a",df[duplicated(df$groupx),"x3"]) 

所需的輸出是有相應的前「一」 col x1，x2，x3行，但不包含其他列。

有什麼建議嗎？謝謝

編輯：對不起，誤會。 Groupx行不與山坳的名字有關，前面的例子是一個巧合

Answer 1

xCols <- intersect(df$groupx, colnames(df)) 
df[, xCols] <- lapply(df[,xCols], function(x) {indx <- duplicated(df$groupx) 
            x[indx] <-paste0("a", x[indx]); x }) 


    df 
    # groupx x1 x2 x3 y1 x12 
    #1  x1 1 2 3 4 5 
    #2  x1 a1 a2 a3 4 5 
    #3  x2 1 2 3 4 5 
    #4  x4 1 2 3 4 5 
    #5  x3 1 2 3 4 5 
    #6  x2 a1 a2 a3 4 5 

或者

m1 <- as.matrix(df[,xCols]) 
    indx <- duplicated(df[,1])[row(df[,xCols])] 
    m1[indx] <- paste0("a", m1[indx]) 
    df[,xCols] <- m1 

Answer 2

我假設你想更新只出現在df$groupx列，所以這裏是一個可能的解決方案

indx <- grep(paste0("^", paste(unique(df$groupx), collapse = "$|^"), "$"), names(df)) 
df[duplicated(df$groupx), indx] <- paste0("a", as.matrix(df[duplicated(df$groupx), indx])) 
df 
# groupx x1 x2 x3 y1 x12 
# 1  x1 1 2 3 4 5 
# 2  x1 a1 a2 a3 4 5 
# 3  x2 1 2 3 4 5 
# 4  x4 1 2 3 4 5 
# 5  x3 1 2 3 4 5 
# 6  x2 a1 a2 a3 4 5