如何制作类似于论文“让我离开你的******邮件列表”中的散点图？

Question

这是一个严重的问题。请不要将其视为玩笑。

\n

这是来自一篇臭名昭著的同名论文的散点图，让我离开你的 F****** 邮件列表，作者为 Mazi\xc3\xa8res 和 Kohle (2005)，发表在掠夺性期刊上。有些人可能知道。

\n\n

我对重新创建相同的散点图来测试新的基于密度的聚类算法非常感兴趣，而无需从头开始创建所有字母。

\n

有什么办法可以让这个过程变得更容易吗？（例如数据集、包或重新创建绘图的智能方法）

\n

Answer 1

现在 grid 包支持剪切路径，我们可以这样做：

library(grid)
library(ggplot2)

tg <- textGrob("Get me off\nYour Fuck\ning Mailing\nList", x = 0.2,
               hjust = 0,
               gp = gpar(cex = 6, col = "grey", font = 2))
cg <- pointsGrob(x= runif(15000), y = runif(15000), pch = 3,
                 gp = gpar(cex = 0.5))

rg <- rectGrob(width = unit(0.5, 'npc'), height = unit(0.1, 'npc'),
               gp = gpar(fill = 'red'))

ggplot(data = NULL, aes(x = 100, y = 100)) +
  geom_point(col = 'white') +
  theme_classic() +
  theme(panel.border = element_rect(fill = 'white', linewidth = 1))

pushViewport(viewport(clip = tg))
grid.draw(cg)