用ggplot写一个「囧」字吧

• 囧通冏，是汉语的一个生僻汉字，最早在2004至2005年左右在台湾網路社群开始流行的表情符號，一般认为是受到日本当时网络上流行的orz或繪文字所启发。囧作为表情符號于2008年引入中国大陆，目前流行于大中华地区。

• 普通話的囧與窘同音，讀起來的感覺也很容易跟窘境、窘況聯想在一起，普及速度飛快。又用其字的形象来表示尴尬、无奈、真受不了或被打败了等意思[7]。 一些网民受到Orz的启发，用囧代替“O”，使得失意体前屈的头部更加写意，写作“囧rz”，

大名鼎鼎的囧字，我想不用多说。而这个公众号的粉丝我想也不用介绍ggplot2，当然如果你是新粉的话，请看下面几篇文章：

后台回复「目录」可以获得完整的目录，阅读更多相关的文章。

用ggplot写个「囧」字，看上去是个不错的主意，但问题是这眉毛和嘴巴怎么来画？其实在《Use ggplot2》一文中早有演示。

有个函数就长得一副委屈的样子：

有了这个函数，画囧字，简直不能再简单：

f <- function(x) 1/(x^2-1)
x <- seq(-3,3, by=0.001)
y <- f(x)
d <- data.frame(x=x,y=y)

p <- ggplot()
p <- p+geom_rect(fill = "white",color="black",size=3,
                 aes(NULL, NULL,xmin=-3, xmax=3,
                     ymin=-3,ymax=3), alpha=0.1)

p <- p + geom_line(data=d, aes(x,y), size=3)+ylim(-3,3) 
p + theme_void()


点击「阅读原文」直达2012年的博客文。