eine Teilmenge der Daten auf Basis der Auswahl auf einer anderen Spalte

Question

Ich habe einen Datensatz, die etwa wie folgt aussieht:

 Area  Num 
[1,] "Area 1" "99" 
[2,] "Area 3" "85" 
[3,] "Area 1" "60" 
[4,] "Area 2" "90" 
[5,] "Area 1" "40" 
[6,] "Area 3" NA  
[7,] "Area 4" "10" 
... 

Code:

structure(c("Area 1", "Area 3", "Area 1", "Area 2", "Area 1", 
"Area 3", "Area 4", "99", "85", "60", "90", "40", NA, "10"), .Dim = c(7L, 
2L), .Dimnames = list(NULL, c("Area", "Num"))) 

Ich brauche eine Berechnung auf Werte in Num für jeden zu tun Area, zum Beispiel Berechnung der Summe von jedem Area, oder summary von jedem Area.

Ich denke an eine nested for Schleife, um dies zu erreichen, aber ich bin mir nicht sicher, wie.

Answer 1

Sie können dies mit aggregate tun, aber das dplyr-Paket macht es sehr einfach, mit solchen Problemen zu arbeiten. Es gibt jedoch viele Duplikate dieser Frage.

library(dplyr) 

df <- structure(c("Area 1", "Area 3", "Area 1", "Area 2", "Area 1", 
        "Area 3", "Area 4", "99", "85", "60", "90", "40", NA, "10"), .Dim = c(7L, 
                         2L), .Dimnames = list(NULL, c("Area", "Num"))) 


df <- data.frame(df) 
df$Num <- as.numeric(df$Num) 

df2 <- df %>% 
    group_by(Area) %>% 
    summarise(totalNum = sum(Num, na.rm=T)) 

df2 

Answer 2

tun das Gleiche mit data.table

library(data.table) 

dt <- data.table(df) 

dt[,sum(as.numeric(Num),na.rm=T),by=Area] 
##   Area V1 
## 1: Area 1 199 
## 2: Area 3 85 
## 3: Area 2 90 
## 4: Area 4 10 

Answer 3

Um die Funktion zu jeder Ebene des Faktor anzuwenden, können wir auf die by Funktion Rekursion:

dt <- structure(c("Area 1", "Area 3", "Area 1", "Area 2", "Area 1", 
       "Area 3", "Area 4", "99", "85", "60", "90", "40", NA, "10"), .Dim = c(7L, 2L), .Dimnames = list(NULL, c("Area", "Num"))) 


dt <- data.frame(dt) 
dt$Num <- as.numeric(dt$Num) 

t <- by(dt$Num, dt$Area, sum) 
t