我们如何制作xkcd风格的图表？
显然，民间已经想出了如何在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")
一些例子（散点图，条形图）：
与其他一些答案一样，我已经对图表进行了“un-ggplotted”，并且还添加了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')
生产：
