ggplot2幾何圖形的每個點類型的數量（對連續軸）？

Question

我想弄清楚如何製作一種特定的圖形。它看起來像在R或ggplot2中很容易做的事情，但我不能找到正確的關鍵字來描述它。我瀏覽了各種幾何圖形並閱讀了一些指南，但都是空手而歸。

關鍵問題是這樣的：我有一個電子郵件列表，以及它們發送的日期（定義爲自1970年1月1日以來的天數）。我已成功製作了一張圖，其中顯示了根據binwidth發送的電子郵件;例如如果我每天可發一個電子郵件，並設置binwidth至30天，我會得到與高度酒吧30

什麼我試圖做的就是這樣的圖表：

上面的圖具有在x軸的電子郵件的量，而y軸示出了天數上，這對應於該數量電子郵件的數量的。

因此，對於一些實施例的數據，其中的電子郵件被送到天的列表：

data <- c(15562,15562,15562,15562,15563,15564, 
      15564,15564,15566,15566, 15566,15566) 

，而不是與高度4，1，3的棒的圖，和圖4（對應於電子郵件的數量上每天）我會想要一個高度爲1，1和2的酒吧（因爲有1天發送一封電子郵件，1天發送3封電子郵件，2天發送4封電子郵件）。

和示例圖一樣，我想要一個連續的x軸。

有沒有人知道如何建立像上述圖形？

Answer 1

dat <- c(15562,15562,15562,15562,15563,15564,15564,15564,15566,15566,15566,15566) 
table(table(dat)) 
#1 3 4 
#1 1 2 

#example with more data 
set.seed(42) 
dat <- sample(1:500,50000,TRUE) 
hist(table(table(dat)),breaks=20) 

Answer 2

有人想複製Stephen Wolfram personal analytics plots？ ;-)

不用擔心，去接近數學式的可視化效果，是鎢已經使用過，這是最好的去與lattice，我想：

library(lattice) 
library(latticeExtra) 
histogram(~ FSC.H, gvhd10, xlab = "", ylab="", type = "density", 
      col="yellow", nint = 100, scales = list(y=list(draw=F))) 
ltext(400,110,col="gray","distribution of emails per day")