顏色編碼Boxplot

Question

我試圖使用ggplot通過顏色/透明度創建僞boxplot，但我掙扎了一點。這個想法是，對於x軸上的任何點，特定的y值出現的次數越多，（x，y）點應該越黑。要增加併發症，我沒有對每個（x，y）進行計數，但是我有一個計數爲(x , ymin:ymax)，這意味着這個計數適用於（x，ymin）和（x，ymax）之間的所有點。

搜索似乎是有點棘手和我「米不能發現什麼我可以使用，我可以通過自己得到的最接近的是如下，但是這需要很長的更大的數據集。

library(ggplot2) 
set.seed(1) 
(d <- data.frame(cbind(x = sample(1:3, 10, replace = TRUE), y = sample(3:8, 10, replace = TRUE)), fac = sample(1:3, 10, replace = TRUE))) 

p1 <- ggplot() 

for (i in seq(nrow(d))) 
{ 
    p1 <- p1 + geom_rect(
    data=d[i,], 
    aes(
     xmin = fac - .4, 
     xmax = fac + .4, 
     ymin = x, 
     ymax = y), 
    alpha = .25 
) 

} 

任何建議？我寧願一個ggplot的解決方案。感謝

11月23日更新，隨着特洛伊的幫助，我已經到了這裏。現在唯一的問題是圖例在每個矩形的t值之間變化，而它應該從x，y處的累積t開始。

library(ggplot2) 
set.seed(1) 
d <- data.frame(cbind(x = sample(1:3, 6, replace = TRUE), 
         ymin = sample(3:8, 6, replace = TRUE), 
         ymax = sample(3:8, 6, replace = TRUE), 
         t = sample(3:8, 6, replace = TRUE)/10 
        )) 

ggplot(data=d) + 
    geom_rect(aes(xmin=x-0.4,xmax=x+0.4,ymin=ymin,ymax=ymax,alpha=t),fill="red") 

Answer 1

ggplot將利用geom_rect

這將至少擺脫循環的，如果你滿意的原創情節的力學支持向量？

library(ggplot2) 
set.seed(1) 
(d <- data.frame(cbind(x = sample(1:3, 10, replace = TRUE), y = sample(3:8, 10, replace = TRUE)), fac = sample(1:3, 10, replace = TRUE))) 
ggplot(data=d) + 
geom_rect(aes(xmin=fac-0.4,xmax=fac+0.4,ymin=x,ymax=y),alpha=0.25,fill="red") 

還是你想改變如何計算的透明度，使用不同的實現計數的（）？

編輯 - 如果你只是希望阻止了與「數」的指示一格：

library(ggplot2) 
set.seed(1) 
d <- data.frame(cbind(x = sample(1:3, 15, replace = TRUE), 
    y = sample(3:8, 18, replace = TRUE))) 

ggplot(data=d) + 
    geom_tile(aes(x=x,y=y),alpha=0.25,fill="red")