r 情节拉伸传奇

Posted 2021-05-23

PlotStretchLegend <- function(r, breaks, pal, ...){
	plot(r, col=pal(length(breaks) - 1), breaks=breaks, xaxt="n", yaxt="n", legend=F, ...)
	# add a reasonable legend
	legend_at <- round(seq(breaks[2], breaks[length(breaks) - 1], len=7))
	# legend_at_date <- as.Date(legend_at, origin="1970-1-1")
	# legend_labels <- c(paste("<", legend_at_date[1]), as.character(legend_at_date[2:(length(legend_at_date) - 1)]), paste(">", legend_at_date[length(legend_at_date)]))
    legend_labels <- c(paste("<", legend_at[1]), as.character(legend_at[2:(length(legend_at) - 1)]), paste(">", legend_at[length(legend_at)]))
	plot(raster(matrix(legend_at[1]:legend_at[length(legend_at)])), legend.only=T, col=pal(length(breaks)-1), axis.args=list(at=legend_at, labels=legend_labels))
}