集計データから密度プロットを作成する

Question

私は集計データの3つの列を持つデータフレームを持っています：CreditScore、Count、Month。

したがって、550,3,3の行は、行進に550クレジットスコアの3人がいることを意味します。

私は、2ヶ月間の信用度格差を比較するためにオーバーレイする密度プロットを作成しようとしています。

私はこれが本当にシンプルなはずだが、Googleで何も見つけることができないように感じる。任意の提案が高く評価されているR.

でこれをやろうとし

。

データ例：ggplot2で

structure(list(CrScore = c(0L, 2L, 3L, 530L, 535L, 544L, 549L, 
551L, 554L, 558L, 560L, 561L, 563L, 565L, 567L, 568L, 569L, 577L, 
579L, 580L), Count.of.MFSAccount = c(2L, 9L, 2L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 1L, 1L, 3L, 1L, 1L, 2L, 1L, 2L, 1L, 1L), EnterDate.Month = structure(c(17136, 
17136, 17136, 17136, 17136, 17136, 17136, 17136, 17136, 17136, 
17136, 17136, 17136, 17136, 17136, 17136, 17136, 17136, 17136, 
17136), class = "Date")), .Names = c("CrScore", "Count.of.MFSAccount", 
"EnterDate.Month"), row.names = c(10L, 28L, 42L, 80L, 113L, 174L, 
212L, 231L, 259L, 299L, 320L, 331L, 359L, 382L, 409L, 421L, 432L, 
540L, 573L, 593L), class = "data.frame") 

Answer 1

重みとしてCount.of.MFSAccountの正規化されたバージョンを使用して：

library(ggplot2) 
library(dplyr) 

# Create weights that are normalized within each date 
df <- df %>% 
     group_by(EnterDate.Month) %>% 
     mutate(w = Count.of.MFSAccount/sum(Count.of.MFSAccount)) 

# Plot with constructed weights 
ggplot(df, aes(CrScore, weight=w, color=factor(EnterDate.Month))) + geom_density()