inst/examples/optical-illusion.R
In yihui/MSG: Data and Functions for the Book Modern Statistical Graphics
# 一个经典的视觉欺骗示例
set.seed(320)
par(mar = c(1, 0, 1, 0), xpd = TRUE)
plot.new()
h = runif (4)
v = runif (4, 0, .4)
arrows(v[1:2], h[1:2], v[1:2] + .6, h[1:2], angle = 45, code = 3)
arrows(v[3:4], h[3:4], v[3:4] + .6, h[3:4], angle = 135, code = 3, col = 2)
yihui/MSG documentation built on Aug. 16, 2021, 12:13 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# 一个经典的视觉欺骗示例
set.seed(320)
par(mar = c(1, 0, 1, 0), xpd = TRUE)
plot.new()
h = runif (4)
v = runif (4, 0, .4)
arrows(v[1:2], h[1:2], v[1:2] + .6, h[1:2], angle = 45, code = 3)
arrows(v[3:4], h[3:4], v[3:4] + .6, h[3:4], angle = 135, code = 3, col = 2)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.