muate_each in dplyr: neue Spalte mit den mittleren Zeilenwerten anderer Spalten mit gemeinsamem Text erstellen

Question

Gibt es eine Möglichkeit, neue Spalten mit den Mittelwerten anderer vorhandener Spalten einzufügen, die mit einem bestimmten Text beginnen?

Zum Beispiel in diesem Datensatz:

zz <-(" 
id 20_1 20_2 20_3 22_1 22_2 22_3  
1 .  4.00  3.50 5.80 5.35 5.15  
2 3.50 .  3.30 5.65 5.40 5.05  
3 2.80 3.40 3.80 5.30 5.25 5.30  
") 

df <- read.table(text=zz, header = TRUE) 

Id möchte zwei neue Spalten 20_4 erstellen und mit dem mittleren Zeilenwert des 20_1 22_4: 20_3 und 22_1: 22_3 jeweils ...

id 20_1 20_2 20_3 20_4 22_1 22_2 22_3 22_4 
1 NA  4.00 3.50 3.75 5.80 5.35 5.15 5.43 
2 3.50 NA  3.30 3.40 5.65 5.40 5.05 5.37 
3 2.80 3.40 3.80 3.33 5.30 5.25 5.30 5.28 

Könnte mir jemand dabei helfen? Ich bin immer noch dplyr lernen ...

Answer 1

Ein anderer Weg, dies zu tun, wäre mit ‚zusammenfassen‘ in dplyr die Variablen anlegen möchten Sie

zznew<-zz %>% 
    group_by(id)%>% 
    summarize("20_4"=mean(`20_1`:`20_3`,na.rm=TRUE),"22_4"=mean(`22_1`:`22_3`,na.rm=TRUE))%>% 
    left_join(zz,zznew,by="id") 

Edit: Im Nachhinein glaube, ich bin falsch zu sagen, verwenden ‚zusammenfassen‘. Hier ist eine andere Art und Weise, dass die Mittel für jede Zeile für die ausgewählten Spalten berechnen wird und binden sie an den Datenrahmen:

zzz<-cbind(zz,"20_4"=rowMeans(zz[,c("20_1","20_2","20_3")],na.rm=TRUE), 
     "22_4"=rowMeans(zz[,c("22_1","22_2","22_3")],na.rm=TRUE)) 

Answer 2

Eine elegante Lösung hierfür wäre wahrscheinlich Nicht-Standard-Auswertung werden:

Lassen Sie uns einen df ähnlich wie bei Ihnen betrachten:

zz = data_frame(
    `20_1` = rnorm(5), 
    `20_2` = rnorm(5), 
    `20_3` = rnorm(5), 
    `22_1` = rnorm(5), 
    `22_2` = rnorm(5), 
    `22_3` = rnorm(5) 
) 

1. Erste Wir erstellen einen Zeichenvektor mit dem Namen der Spalten, die wir zusammen berechnen möchten. Der folgende Code wählt dynamisch die alle Spaltennamen mit 20_ Start:

   to_aggregate = names(zz)[grepl("^20", names(zz))] 
   

2. Wir schaffen eine Formel, die den Mittelwert dynamisch berechnen:

   agg_formula = as.formula(paste0(" ~ mean(c(", paste0("`", to_aggregate, "`", collapse = ", "), "))")) 
   

   dies die Formel schaffen: ~ bedeuten (c ('20_1', '20_2', '20_3'))

3. dplyr Wir verwenden kann Zeile für Zeile zu gehen und die dynamische gelten obige Formel generiert:

   zz %>% 
       mutate(tmp_ID = row_number()) %>% 
       group_by(tmp_ID) %>% 
       mutate_(.dots = setNames(list(agg_formula), 'res')) %>% 
       mutate(check_res = (`20_1` + `20_2` + `20_3`)/3) %>% 
       ungroup()