2

其实可以写一个视觉欺骗的 R 包

 3 years ago
source link: https://yihui.org/cn/2007/12/r-package-for-visual-illusions/
Go to the source link to view the article. You can view the picture content, updated content and better typesetting reading experience. If the link is broken, please click the button below to view the snapshot at that time.
neoserver,ios ssh client

其实可以写一个视觉欺骗的 R 包

谢益辉 / 2007-12-22

这是昨天无意间想起来的一个馊主意，鉴于这个主意和统计没什么太大的关系，我也不打算在近期写这样的 R 包。不过我相信做出来之后还是会吸引一些眼球的，就像 R 里面的数独 sudoku 包一样，和统计也没太大关系，但把它写出来供娱乐用也颇有点意思。

比如这里我可以提供我昨天随意写的一段光学幻象代码：

# By Yihui XIE, Dec 22, 2007 yihui.org
op = par(bg = "gray", mar = rep(2, 4), xpd = NA)
x = seq(0, 2 * pi, length = 16)
replicate(100, {
  for (i in 1:length(x)) {
    plot(1, xlim = c(-1, 1), ylim = c(-1, 1), axes = F, ann = F,
      type = "n")
    points(sin(x[-i]), cos(x[-i]), col = "magenta", cex = 7,
      pch = 19)
    points(0, 0, pch = "+", cex = 5, lwd = 2)
    Sys.sleep(0.05)
  }
})
par(op)

盯着中间的 “+” 看几秒之后，就会发现 “绕圈” 的那个点似乎变成绿色了。

← 函数性数据分析 我恨 Microsoft Office Word！ →

Disqus Utterances Preferences
© Yihui Xie 2005 - 2020

report

Recommend

About Joyk


Aggregate valuable and interesting links.
Joyk means Joy of geeK