color <-graycol(n = 50)
dr <- 0.05
emptyplot(xlim = c(-2, 2), col = color[length(color)],
main = "filledcircle")
filledcircle(r1 = 1, mid = c(1, 1), dr = dr,
col = shadepalette(endcol = "darkblue"))
filledcircle(r1 = 1, mid = c(-1, -1), dr = dr,
col = shadepalette(endcol = "darkred"))
filledcircle(r1 = 1, r2 = 0.5, mid = c(0, 0), dr = dr,
col = c(rev(color), color))
filledcircle(r1 = 1, mid = c(1, -1), dr = dr,
col = intpalette(c("red", "blue", "orange"), 100))
filledcircle(mid = c(-1, 1))
emptyplot(main = "filledcircle")
for (i in seq(0, 0.45, 0.05))
filledcircle(r1 = i+0.05, r2 = i,
mid = c(0.5, 0.5), col = i*20)
Run the code above in your browser using DataLab