# NOT RUN {
f <- system.file("ex/lux.shp", package="terra")
v <- vect(f)
plot(v)
plot(v, 2, pax=list(sides=1:2), plg=list(x=6.2, y=50.2, cex=1.2))
plot(v, 4, pax=list(sides=1:2), plg=list(x=6.2, y=50.2, ncol=2), main="")
plot(v, 1, plg=list(x=5.9, y=49.37, horiz=TRUE, cex=1.1), main="", mar=c(5,2,0.5,0.5))
plot(v, density=1:12, angle=seq(18, 360, 20), col=rainbow(12))
plot(v, "NAME_2", col=rainbow(12), border=c("gray", "blue"), lwd=3, type="classes")
plot(v, "AREA", type="interval", breaks=3, mar=c(3.1, 3.1, 2.1, 3.1),
plg=list(x="topright"), main="")
plot(v, "AREA", type="interval", breaks=c(0,200,250,350), mar=c(2,2,2,2),
plg=list(legend=c("<200", "200-250", ">250"), cex=1,
bty="o", x=6.4, y=50.125, box.lwd=2, bg="light yellow", title="My Legend"))
# }
Run the code above in your browser using DataLab