数据帧中每个组的bin的直方图

Question

我有一个数据框说df1为2列grp和bin

grp     bin
============
1       [0-100]
1       [101-200]
1       [101-200]
1       [201-300]
2       [301-400]
2       [301-400]
2       [401-500]
3       [401-500]
3       [401-500]
3       [501-600]

我想将这个数据帧分成3组并绘制bin频率 在每组中使用ggplot。基本上我想要3个直方图（即每个直方图一个） group）显示bin频率如下

grp     bin       Hist freq
============================
1      [0-100]     1
1      [101-200]   2
2      [301-400]   2

我正在尝试拆分数据框，而不是绘制每个组的直方图，如下所示

x <- split(df1,as.factor(df1$grp))
plothist <-function(pl) {ggplot(pl,aes(x=bin))+ geom_histogram()}
lapply(x,plothist)

它无效，我收到如下错误：

  

.Call.graphics（C_palette2，.Call（C_palette2，NULL））出错：

  无效的图形状态

我也希望每个bin栏都有不同的颜色。

我该怎么做？