- 3D- "". ggplot2, .
, .
library(plyr)
df2<-ddply(diamonds,.(clarity),nrow)
ggplot() clarity x V1 (counts) y geom_blank() - x . geom_rect() - xmin xmax as.numeric() clarity, - xmin xmax . ymin 0 ymax V1 (counts) . geom_bar(stat="identity") , -.
ggplot(df2,aes(clarity,V1)) + geom_blank()+
geom_rect(aes(xmin=as.numeric(clarity)-0.38,
xmax=as.numeric(clarity)+.5,
ymin=0,
ymax=V1+250),fill="green")+
geom_bar(width=0.8,stat="identity")
