查看原文
其他

带你装逼带你飞,画图的文本打出阴影立体效果

2017-11-09 Y叔 biobabble

Sercan Kahveci

Greetings Mr. Yu,

I am very happy that this package exists. Thank you for making it! I would like to request a feature, to ensure the package is able to compete with professional meme-creation tools like memegenerator and paint.net. Since memes often use the font Impact, in white and with black outline, I believe the package would be more powerful if it also did that automatically.

Regards,

Sercan Kahveci, MSc

Content creator at Questionable Research Memes on Facebook
https://www.facebook.com/QResearchMemes/

上次一篇《用R画meme ;)》把脸书在做MEME的人都给炸出来了,专业人士给出专业建议,要用Impact字体,并且要让字体出现阴影效果,这真是厉害了,感觉有点神奇,但他一句,这样就可以拿专业工具PK了,着实太刺激了,我决定试一试能不能搞个阴影效果。结果还真让我搞成了,文本有一种浮在上面的错觉。

我们知道meme包是grid写的,我的输出是grob对象,当我半夜调试到2点,带着兴奋入睡之后,一点都睡不安稳,早上早早就迷迷糊糊在床上想着,既然我造出了文本阴影效果的grob对象,我应该封装成geom图层,送给ggplot2用户。

于是我又开始了另一个tiny toy package的开发,shadowtext,顾名思义,出阴影效果的文本。

shadow text grob: shadowtextGrob() and grid.shadowtext()

library(shadowtext) grid.shadowtext("grid is awesome", gp=gpar(cex=3, col="white"), rot=45) grid.shadowtext("hello world", y=0.85, gp=gpar(cex=5, col="steelblue"), bg.color="firebrick") grid.shadowtext("R you ready!!!", y=.1, gp=gpar(cex=4, col="firebrick"))

ggplot2 layer: geom_shadowtext()

ggplot2的成功是站立在grid的肩膀上,有了grid的支持,ggplot2要拿下来也不是很容易,说容易是骗你们的。

geom_shadowtext的使用和geom_text是一样一样的,所以你们不会有使用问题,该怎么用就怎么用,只不过多了bg.color参数用于设置阴影的颜色和bg.r用于设置阴影的大小。

library(ggplot2) random_text <- function(n=1, length=10) {    d <- data.frame(n=1:n, length=length)    sapply(1:nrow(d), function(i) {        paste(sample(c(0:9, letters, LETTERS),                     d$length[i], replace=TRUE),              collapse="")    }) } n <- 10 set.seed(2017-10-27) d <- data.frame(x = rnorm(n), y=rnorm(n),                label = random_text(n),                angle = sample(0:360, 10)) p <- ggplot(d, aes(x, y)) + xlim(-2, 2.2) + ylim(-2, 2.4) p + geom_shadowtext(aes(label=label, angle=angle), size=5)

p + geom_shadowtext(aes(label=label, angle=angle, color=label),                    bg.color='firebrick', size=5) +    theme(legend.position="none")


这包已经在CRAN上发布,于是我发现有来自霓虹国的博客文,https://www.karada-good.net/analyticsr/r-618,我已经哭晕,感觉别人出的图比我好看太多了!


你或许觉得这玩意只是玩玩而已,没太多实际应用。我给大家讲一个实际例子,当你画图的背景非常复杂的时候,这个shadowtext包就可以出来非常好的效果,像下面这个只是google map的截屏而已,你可以用ggmap来画,以前你没办法打字像google map这样子的,现在你可以了。

您可能也对以下帖子感兴趣

文章有问题?点此查看未经处理的缓存