协慌网

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

我猜在基本图形中，par（xkcd = TRUE）？我该怎么做？

作为 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 修改为采用类似抖动的参数吗？

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

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

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

一些示例（散点图，条形图）：

• 散点图：

• 条形图：

沿着与其他答案相同的思路思考，我对图表进行了 “取消 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)

基本的画线功能：

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')

产生：