使用ggplot绘制独特观察的摘要

Question

是否可以通过ggplot公式计算独特的观察结果？例如，通过切断中间线以某种方式获得与此相同的结果？到目前为止我的努力，使用带有stat ='bin'的geom_histogram失败。

set.seed(1)
d = data.frame(year = sample(2005:2009, 50, prob = 1:5, rep=T), 
               group = sample(letters, 50, prob = 1:26, rep=T))
d2 = plyr::count(unique(d)$year)
ggplot(d2, aes(x, freq)) + geom_bar(stat='identity') + labs(x='year', y='count of groups')

Answer 1

stat_bin()会像这样做：

ggplot(unique(d), aes(x = as.factor(year))) + 
  stat_bin() + 
  labs(x='year', y='count of groups')