立方柱形图

[XiangyunHuang]

立方柱形图有时候也可用棋盘图代替，理由是如果俯视柱形图看到的就是下面这样，如下


同时也要注意颜色的区分度，这里第二张图更好区别

[XiangyunHuang]

dat <- as.data.frame( cbind(rep( 1948 + seq(12), each = 12), rep(seq(12),12), AirPassengers) )  
colnames(dat) <- c("year","month","passengers")
library(ggplot2)

pdf(file="AirlinePassenger.pdf")
ggplot(data = dat, aes(as.factor(year), as.factor(month))) + 
    geom_point(pch = 15,size = 8 ,aes(colour = passengers )) +
	scale_colour_distiller(palette = "Spectral") +
	labs(x = "Year",y = "Month",colour = "Passengers") +
	theme_bw()
	
library(colormap)	
ggplot(data = dat, aes(as.factor(year), as.factor(month))) + 
    geom_point(pch = 15,size = 8 ,aes(color = passengers )) +
	scale_color_colormap(colormap = colormaps$viridis) +
	labs(x = "Year",y = "Month",colour = "Passengers") +
	theme_bw()	
dev.off()