在R中绘制不同颜色的累积直方图
我有一个大数据集（800000多个数据点），其中包含5000多家银行提供的贷款信息。我试图将发放贷款最多的前N家银行发放的贷款数量与其他银行加在一起进行比较。为此，我制作了数据框在R中绘制不同颜色的累积直方图,r,graph,histogram,R,Graph,Histogram,我有一个大数据集（800000多个数据点），其中包含5000多家银行提供的贷款信息。我试图将发放贷款最多的前N家银行发放的贷款数量与其他银行加在一起进行比较。为此，我制作了数据框banks，它按发放贷款的数量降序排列。我还添加了一个列，其中列出了发放贷款的相对累计金额。我能画出一个图，但我试图画一个柱状图，其中x轴是从1到10的N个数字，y轴是前N家银行发放的贷款的百分比。每个条，将被分割成不同的颜色。例如，第一个栏是一种颜色，仅包括第一个栏的累积值，第二个栏是前两个栏的累积值，有两种颜色：从第
banksggplotdput（）bnklibrary(dplyr)
N <- 5
# create empty tibble
top_b <- tibble(topn=0, Bank.Name = '', Loans = 0) %>%
filter(topn>0)
for (i in 1:N) {
top_b <- top_b %>%
bind_rows( bind_cols(topn = rep(i, i), head(bnk , i)))
}
# factor with opposite direction needed for graph you want
top_b$Bank.Name <- factor(top_b$Bank.Name,
levels = unique(top_b$Bank.Name)[N:1])
top_b %>%
ggplot(aes(x=topn, y=Loans, fill = Bank.Name))+
geom_bar(stat = 'identity')
库（dplyr）
N（0）
for（1:N中的i）{
最高b%
绑定行（绑定列（topn=rep（i，i），head（bnk，i）））
}
#所需图形需要方向相反的因子
top_b$银行名称%
ggplot（aes（x=topn，y=LOANTS，fill=Bank.Name））+
几何图形栏（stat='identity'）
dput（）dput（）