powered by
data(t3012)
data(t3012) data(elec88) area.plot(elec88$area) s.arrow(t3012$xy, ori = as.numeric(t3012$xy["Paris",]), add.p = TRUE)
Run the code above in your browser using DataLab