R - Median einer Häufigkeitsverteilung, durch eine andere Variable gruppiert

Question

ich einen Datensatz haben, die aussehen wie folgt: http://i.imgur.com/OdiLf4t.png

Name | Staat | Postleitzahl | Kreisname | durchschnittliche Zahlung | Häufigkeit

Meine gewünschte Ausgabe wäre eine Gruppierung nach Staat und die Median-Zahlung mit den Spalten für die durchschnittliche Zahlung und Häufigkeit.

Ich weiß, wie diese

für die Gesamtdatenmenge zu tun

median(rep(Clean$medicare_average_payment, Clean$Frequency))   

aber nicht sicher, wie dies von Staat zu tun Danke

Answer 1

Wir mit dplyr

library(dplyr)  
Clean1 <- Clean[rep(1:nrow(Clean), Clean$Frequency),] 
Clean1 %>% 
     group_by(State) %>% 
     summarise(Median = median(medicare_average_payment)) 

versuchen

---

Oder mit data.table

library(data.table) 
setDT(Clean)[, .(Median = median(rep(medicare_average_payment, Frequency))) , State] 

Answer 2

Sie können by verwenden, um den Datenrahmen zu tun aufgeteilt und diese Funktion auf jedem Stück durchführen:

by(Clean, Clean$State, 
    FUN=function(x) median(rep(x$medicare_average_payment, x$Frequency)) 
)