我们如何制作xkcd样式图?


696

显然,人们已经弄清楚了如何在MathematicaLaTeX中制作xkcd样式图。我们可以在R中做到吗?ggplot2-ers?一个geom_xkcd和/或theme_xkcd?

我猜在基本图形中,par(xkcd = TRUE)?我该怎么做?

xkcd#1064

作为ggplot2中的第一个选项(下面将更详细地介绍),将jitter参数添加到一行可以使手绘效果更好。所以-

ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) + 
  geom_line(position="jitter", color="red", size=2) + theme_bw()

这是一个很好的例子-但是轴和字体看起来比较复杂。字体显示为已解决(如下)。处理轴的唯一方法是将其消隐并手工拉入吗?有没有更优雅的解决方案?特别是在ggplot2中,是否可以将新主题系统中的element_line修改为采用类似抖动的参数?


8
您认为什么是xkcd图的必要元素?注释?任意曲线,坐标轴和比例尺?手绘外观?
smcg 2012年

8
我会专注于手工绘制的外观和感觉所有的图形元素,:轴,文字,线条等
joran

61
不要忘记强制将鼠标移过!
约尔根·R

4
的同时,字体照顾xkcdsucks.blogspot.com/2009/03/...
jebyrnes

11
就像我爱R和xkcd一样,曾经发起过这个模因的人应该把他们的脑袋扣好。人们用铅笔写字
naught101

Answers:


424

您可能需要考虑以下软件包:

软件包xkcd:以XKCD样式绘制ggplot2图形。

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

一些示例(散点图,条形图):

  • 散点图:

散点图

  • 条形图:

条形图


@smillig,来自Windows r-release自述文件:“二进制包将在源发布后大约1-3天在CRAN上可用。”
GSee13年

43
在出版物中使用该软件包时,我必须引用什么?
ziggystar 2013年

1
+1并感谢您提供的优质套餐。我在安装字体时遇到麻烦!简介文件中的一项更正(sec-2.1,第5行,.tff-> .ttf)。另一个仍在等待中!!
Shambho

1
很好,我真的很喜欢theme_xkcd(),它使我们可以很容易地使用它。如果要改进它,我建议xkcdaxis()可以在不带参数的情况下调用它(它只会绘制法线轴)。即ggplot(data = temp.all,aes(x = State.Code,y = Sample.Value,fill = year))+ geom_boxplot()+ coord_cartesian(ylim = c(0,40))+ theme_xkcd()+ xkcdaxis ()
zipp 2014年

看来这东西坏了。安装xkcd作品,但尝试library(xkcd)让步> library(xkcd) Loading required package: extrafont Registering fonts with R Error in loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]) : there is no package called ‘acepack’ Error: package or namespace load failed for ‘xkcd’并尝试acepack让步> install.packages("ace") Warning in install.packages : package ‘ace’ is not available (for R version 3.2.1)
Shawn Mehan

216

沿着与其他答案相同的思路思考,我对图表进行了“ un-ggplott”,并增加了x轴标签位置的灵活性(这在xkcd中似乎很常见)和任意标签。图表。

请注意,在加载Humor Sans字体并将其手动下载到工作目录时,我遇到了一些问题。

在此处输入图片说明

还有代码

library(ggplot2)
library(extrafont)

### Already have read in fonts (see previous answer on how to do this)
loadfonts()

### Set up the trial dataset 
data <- NULL
data$x <- seq(1, 10, 0.1)
data$y1 <- sin(data$x)
data$y2 <- cos(data$x)
data$xaxis <- -1.5

data <- as.data.frame(data)

### XKCD theme
theme_xkcd <- theme(
    panel.background = element_rect(fill="white"), 
    axis.ticks = element_line(colour=NA),
    panel.grid = element_line(colour="white"),
    axis.text.y = element_text(colour=NA), 
    axis.text.x = element_text(colour="black"),
    text = element_text(size=16, family="Humor Sans")
    )

 ### Plot the chart
 p <- ggplot(data=data, aes(x=x, y=y1))+
      geom_line(aes(y=y2), position="jitter")+
      geom_line(colour="white", size=3, position="jitter")+
      geom_line(colour="red", size=1, position="jitter")+
      geom_text(family="Humor Sans", x=6, y=-1.2, label="A SIN AND COS CURVE")+
      geom_line(aes(y=xaxis), position = position_jitter(h = 0.005), colour="black")+
      scale_x_continuous(breaks=c(2, 5, 6, 9), 
      labels = c("YARD", "STEPS", "DOOR", "INSIDE"))+labs(x="", y="")+
      theme_xkcd

ggsave("xkcd_ggplot.jpg", plot=p, width=8, height=5)

这是太棒了!现在,我想,如果只有一种方法可以让element_line接受一个抖动参数以使其成为主题,那将达成协议。
jebyrnes 2012年

1
您的代码中是否可能缺少包,我得到了“错误:在theme_xkcd <-theme(
Owe Jessen

1
嗯,那么错误消息的解决方案是什么?-的新版本可以解决问题ggplot2
Rico 2012年

我发现,使用geom_smoothmethod = "loess", span = 0.6, se = FALSEposition = position_jitter(h=0.005)是给我上的噪声数据更好的效果,因为线条光滑和抖动。
zeehio

还缺少什么吗?Fehler in grid.Call(C_textBounds,as.graphicsAnnot(x $ label),x $ x,x $ y,:Polygonkante nicht gefunden Ruft auf:ggsave ... <匿名>-> widthDetails-> widthDetails.text-> grid呼叫Zusätzlich:Warnmeldungen:1:在grid.Call(C_textBounds,as.graphicsAnnot(x $ label),x $ x,x $ y,:FürFamilie“ Humor Sans” konente kein Zeichensatz gefunden werden ...Ausführungangehalten
Coliban

189

基本画线功能:

xkcd_line <- function(x, y, color) {
  len <- length(x);
  rg <- par("usr");
  yjitter <- (rg[4] - rg[3]) / 1000;
  xjitter <- (rg[2] - rg[1]) / 1000;
  x_mod <- x + rnorm(len) * xjitter;
  y_mod <- y + rnorm(len) * yjitter;
  lines(x_mod, y_mod, col='white', lwd=10);
  lines(x_mod, y_mod, col=color, lwd=5);
}

基本轴:

xkcd_axis <- function() {
  rg <- par("usr");
  yaxis <- 1:100 / 100 * (rg[4] - rg[3]) + rg[3];
  xaxis <- 1:100 / 100 * (rg[2] - rg[1]) + rg[1];
  xkcd_line(1:100 * 0 + rg[1] + (rg[2]-rg[1])/100, yaxis,'black')
  xkcd_line(xaxis, 1:100 * 0 + rg[3] + (rg[4]-rg[3])/100, 'black')
}

和示例代码:

data <- data.frame(x=1:100)
data$one <- exp(-((data$x - 50)/10)^2)
data$two <- sin(data$x/10)
plot.new()
plot.window(
    c(min(data$x),max(data$x)),
    c(min(c(data$one,data$two)),max(c(data$one,data$two))))
xkcd_axis()
xkcd_line(data$x, data$one, 'red')
xkcd_line(data$x, data$two, 'blue')

产生:

图表示例


137

这是根据xkcd论坛和extrafont程序包的链接尝试的字体:

如上所述,xkcd网站上有一个关于字体论坛讨论:我抓到了第一个可以找到的字体,可能还有其他(更好的选择)选项(@jebyrnes在上面的评论中发布了另一种可能的字体来源-TTF文件在此处;有人报告了该源的404错误,您可以在这里此处尝试,为xkcdFontURL下面的URL适当地替换这些URL ;您可能需要更加努力地检索Github发布的链接)

   xkcdFontURL <- "http://simonsoftware.se/other/xkcd.ttf"
   download.file(xkcdFontURL,dest="xkcd.ttf",mode="wb")

(这是供一次性使用的快捷方式:对于常规用途,应将其放在某些标准系统字体目录中。)

   library(extrafont)

有关字体的最有用的信息在extrafont github网站上 -从那里获取

font_import(".")   ## because we downloaded to working directory
loadfonts()

从github站点或多或少逐字记录的示例:

library(ggplot2)
p <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(size=16, family="xkcd"))

ggsave("xkcd_ggplot.pdf", plot=p,  width=4, height=4)
## needed for Windows:
##   Sys.setenv(R_GSCMD = "C:/Program Files/gs/gs9.05/bin/gswin32c.exe")
embed_fonts("xkcd_ggplot.pdf")

在此处输入图片说明


32

我仅使用RStudio设计了xkcd主题分析日历。这是条形图xkcd样式的示例

  • 使用的字体= HumorSans.ttf [上面给出的链接]
  • 使用的套件[xkcd]

要生成此图 条形图代理“工作中的危险”

这是使用的代码

#using packages xkcd, ggplot 
library(xkcd)
library(ggplot2)
font_import(pattern="[H/h]umor")
loadfonts()

### Set up the trial dataset 
d1 <- data.frame('type'=c('DROWNING','RADIATION','TOILET',"ELECTRICAL",'NOISE','PANTRY','YOUR    FALLING ON OBJECTS','OBJECTS FALLING ON YOU','BOSS','FIRE','TRAVEL TO WORK'),'score'=c(2,2,3,6,6,6,11,14,21,26,30))

# we will keep adding layers on plot p. first the bar plot
p <- NULL
p <- ggplot() + xkcdrect(aes(xmin = type-0.1,xmax= type+0.1,ymin=0,ymax =score),
                     d1,fill= "#D55E00", colour= "#D55E00")  +
     geom_text(data=d1,aes(x=type,y=score+2.5,label=score,ymax=0),family="Humor Sans") +   coord_flip()

#hand drawn axes
d1long <- NULL
d1long <- rbind(c(0,-2),d1,c(12,32))
d1long$xaxis <- -1
d1long$yaxis <- 11.75

# drawing jagged axes
p <- p + geom_line(data=d1long,aes(x=type,y=jitter(xaxis)),size=1)
p <- p + geom_line(data=d1long,aes(x=yaxis,y=score), size=1) 

# draw axis ticks and labels
p <- p +  scale_x_continuous(breaks=seq(1,11,by=1),labels = data$Type) +
     scale_y_continuous(breaks=NULL)

#writing stuff on the graph
t1 <- "GOOGLE RESULTS"
p <- p + annotate('text',family="Humor Sans", x=12.5, y=12, label=t1, size=6) 

# XKCD theme
p <- p + theme(panel.background = element_rect(fill="white"),
           panel.grid = element_line(colour="white"),axis.text.x = element_blank(), 
           axis.text.y = element_text(colour="black"),text = element_text(size=18, family="Humor   Sans") ,panel.grid.major = element_blank(),panel.grid.minor = element_blank(),panel.border = element_blank(),axis.title.y = element_blank(),axis.title.x = element_blank(),axis.ticks = element_blank())

print(p)

14

这是一个非常非常粗糙的开始,仅(部分)覆盖了线条的手绘外观。自动执行此操作需要一点工作,但在响应函数中添加一些AR(1)噪声可能会使它看起来有些手工绘制

set.seed(551)
x <- seq(0, 1, length.out = 1000)
y <- sin(x)

imperfect <- arima.sim(n = length(y), model = list(ar = c(.9999)))
imperfect <- scale(imperfect)
z <- y + imperfect*.005
plot(x, z, type = "l", col = "blue", lwd = 2)

13

这是我ggplot2使用上面的一些代码得出的结论:

ggplot()+geom_line(aes(x=seq(0,1,length.out=1000),y=sin(x)),position=position_jitter(width=0.02),lwd=1.5,col="white")+
  geom_line(aes(x=seq(0,1,length.out=1000),y=sin(x)),position=position_jitter(width=0.004),lwd=1.4,col="red")+
  geom_line(aes(x=seq(0,1,length.out=1000),y=cos(x)),position=position_jitter(width=0.02),lwd=1.5,col="white")+
  geom_line(aes(x=seq(0,1,length.out=1000),y=cos(x)),position=position_jitter(width=0.004),lwd=1.4,col="blue")+
  theme_bw()+theme(panel.grid.major=element_blank(),panel.grid.minor=element_blank())

不确定如何更换轴,但可以使用与相同的方法jitter。然后是从XKCD导入字体并使用分层的问题geom_text

By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.