skcd

最新推荐文章于 2021-12-24 16:14:07 发布

chenlongzhen_tech

最新推荐文章于 2021-12-24 16:14:07 发布

阅读量453

点赞数

分类专栏： R

本文链接：https://blog.csdn.net/sadfasdgaaaasdfa/article/details/47836255

版权

R 专栏收录该内容

27 篇文章 5 订阅

订阅专栏


# library(xkcd)
# vignette("xkcd-intro")

# xkcdFontURL <- "http://simonsoftware.se/other/xkcd.ttf"
# download.file(xkcdFontURL,dest="xkcd.ttf")
# 
# font_import(".")   ## because we downloaded to working directory
# loadfonts()


ratioxy <- diff(xrange)/diff(yrange)
mapping <- aes(x, y, scale, ratioxy, angleofspine,  
               anglerighthumerus, anglelefthumerus, 
               anglerightradius, angleleftradius, 
               anglerightleg, angleleftleg, angleofneck,  
               linetype=city)  
dataman <- data.frame(x= c(15,30), y=c(3, 4),  
                      scale = c(0.3,0.51) ,  
                      ratioxy = ratioxy,  
                      angleofspine = -pi/2 ,  
                      anglerighthumerus = c(pi/4, -pi/6), 
                      anglelefthumerus = c(pi/2 + pi/4, pi +pi/6), 
                      anglerightradius = c(pi/3, -pi/3),  
                      angleleftradius = c(pi/3, -pi/3),
                      anglerightleg = 3*pi/2 - pi / 12,  
                      angleleftleg = 3*pi/2 + pi / 12 ,  
                      angleofneck = runif(1, 3*pi/2-pi/10, 3*pi/2+pi/10),  
                      city=c("Liliput","Brobdingnag"))  
p <- ggplot() + geom_point(aes(mpg, wt, colour=as.character(vs)), data=mtcars) + 
  xkcdaxis(xrange,yrange) + 
  xkcdman(mapping, dataman)
p