R/r.bar.plot.R

r.bar.plot <-
function(mat)
{
	maxy <- max(mat)
	r <- as.numeric(dimnames(mat)[[1]])
	for(i in seq(along = r))
		geosubplot(barplot(mat[i,  ], ylim = c(0, maxy), axes = F),
			pos = r.corners(r[i]))
}

Try the geoextras package in your browser

Any scripts or data that you put into this service are public.

geoextras documentation built on May 2, 2019, 5:56 p.m.