Como podemos criar gráficos no estilo xkcd?

697

Aparentemente, o pessoal descobriu como fazer gráficos no estilo xkcd no Mathematica e no LaTeX . Podemos fazer isso em R? Ggplot2-ers? Um geom_xkcd e / ou theme_xkcd?

Eu acho que nos gráficos base, par (xkcd = TRUE)? Como eu faço isso?

xkcd # 1064

Como uma primeira tentativa (e muito mais elegantemente mostrada abaixo) no ggplot2, adicionar o argumento de jitter a uma linha cria uma ótima aparência desenhada à mão. Assim -

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

É um bom exemplo - mas os eixos e as fontes parecem mais complicados. As fontes aparecem resolvidas (abaixo), no entanto. É a única maneira de lidar com os eixos para esvaziá-los e desenhá-los manualmente? Existe uma solução mais elegante? Em particular, no ggplot2, o element_line no novo sistema de temas pode ser modificado para obter um argumento semelhante ao jitter?

jebyrnes
fonte
8
o que exatamente você considera serem elementos necessários dos gráficos xkcd? anotações? curvas, eixos e escalas arbitrários? aparência e sensação desenhadas à mão?
smcg
8
Gostaria de focar o olhar desenhado à mão e sentir, de todos os elementos gráfico: eixos, texto, linhas, etc.
Joran
61
Não se esqueça do mouse obrigatório!
Jørgen R
4
Cuidado Além disso, as fontes são tomadas de xkcdsucks.blogspot.com/2009/03/...
jebyrnes
11
Por mais que eu goste de R e xkcd, quem já começou esse meme deve ter a cabeça afundada. Use um lápis , pessoal!
naught101

Respostas:

424

Você pode considerar o seguinte pacote:

Pacote xkcd : plotando gráficos ggplot2 no estilo XKCD.

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

Alguns exemplos (gráficos de dispersão, gráficos de barras):

  • Gráfico de dispersão:

Gráfico de dispersão

  • Gráfico de barras:

Gráfico de barras

Emilio Torres Manzanera
fonte
@smillig, no Leia-me do r-release do Windows : "Pacotes binários estarão disponíveis no CRAN cerca de 1 a 3 dias após a publicação das fontes."
GSee
43
O que preciso citar ao usar o pacote em publicações?
precisa saber é o seguinte
1
+1 E obrigado pelo ótimo pacote. Estou tendo problemas com a instalação das fontes ! Uma correção no arquivo de introdução (sec-2.1, linha 5, .tff -> .ttf). Outro ainda pendente !!
Shambho
1
Ótimo trabalho, eu realmente gosto do theme_xkcd () que nos permite usá-lo com muita facilidade. Se você quiser melhorá-lo, eu sugeriria que xkcdaxis () possa ser chamado sem argumento (seria apenas desenhar o eixo normal). 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 12/12
parece que algo nisto está quebrado. instalação de xkcdobras, mas tentando library(xkcd)rendimentos > 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’e tentando para acepackrendimentos> install.packages("ace") Warning in install.packages : package ‘ace’ is not available (for R version 3.2.1)
Shawn Mehan
216

Pensando da mesma maneira que algumas das outras respostas, eu "desagrupei o gráfico" do gráfico e também adicionei a flexibilidade dos locais dos rótulos do eixo x (o que parece ser comum no xkcd) e um rótulo arbitrário no gráfico.

Observe que tive alguns problemas com o carregamento da fonte Humor Sans e a baixei manualmente para o diretório de trabalho.

insira a descrição da imagem aqui

E o código ...

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)
Mark Bulling
fonte
Isto é fantástico! Agora, se houvesse uma maneira de a element_line usar um argumento de instabilidade para trabalhar em temas ... isso selaria o acordo, eu acho.
Jbyrnes #
1
Poderia haver um pacote faltando em seu código, eu recebo "Erro: Não foi possível encontrar a função 'tema' em theme_xkcd <- tema (
Owe Jessen
1
Hm, qual é a solução para a mensagem de erro então? - Uma versão mais recente do ggplot2fez o truque.
Rico
Descobri que usando geom_smoothcom method = "loess", span = 0.6, se = FALSEe position = position_jitter(h=0.005)estava me dando melhores resultados em dados barulhento, como linhas são ambos suave e se agitou.
zeehio
Ainda falta alguma coisa? Fehler no grid.Call (C_textBounds, as.graphicsAnnot (x $ label), x $ x, x $ y,: Polygonkante nicht gefunden Ruft auf: ggsave ... <Anônimo> -> widthDetails -> widthDetails.text -> grid .Call zusätzlich: Warnmeldungen: 1: Em grid.Call (C_textBounds, as.graphicsAnnot (x $ rótulo), x $ x, x $ y,: Pele Familie "Humor Sans" könnte kein Zeichensatz gefunden werden ... Ausführung angehalten
Coliban
189

Função básica de desenho de linha:

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);
}

Eixo básico:

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

E código de exemplo:

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

Produz:

Exemplo de gráfico

user295691
fonte
137

Aqui está uma tentativa das fontes, com base nos links dos fóruns xkcd e do extrafontpacote:

Como observado acima, há uma discussão no fórum sobre fontes no site xkcd : peguei a primeira que encontrei, pode haver outras opções (melhores?) (@Jebyrnes publica outra fonte para possíveis fontes nos comentários acima - o arquivo TTF está aqui ; alguém relatou um erro 404 para essa fonte; você pode tentar alternadamente aqui ou aqui , substituindo os URLs apropriadamente xkcdFontURLabaixo; talvez seja necessário um pouco mais para recuperar os links publicados no Github)

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

(Isso é para uso rápido e único: para uso regular, você deve colocá-lo em algum diretório de fontes padrão do sistema.)

   library(extrafont)

As informações mais úteis sobre fontes estavam no site extrafont github - isso é retirado de lá

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

Exemplo extraído mais ou menos literalmente do site do 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")

insira a descrição da imagem aqui

Ben Bolker
fonte
32

Criei um calendário de análise com tema xkcd usando o RStudio. Aqui está um exemplo de estilo xkcd de gráfico de barras

  • Fonte usada = HumorSans.ttf [link fornecido acima]
  • Pacote usado [xkcd]

Para gerar esse gráfico Proxy de plotagem de barras para 'Perigos no Trabalho'

Aqui está o código usado

#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)
d2a2d
fonte
14

Este é um começo muito, muito difícil e cobre apenas (parcialmente) a aparência e as linhas desenhadas à mão. Demoraria um pouco de trabalho para automatizar isso, mas adicionar algum ruído AR (1) à função de resposta pode fazer com que pareça levemente desenhado à mão

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)
Dason
fonte
13

Aqui está minha opinião sobre o ggplot2uso de parte do código acima:

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

Não sei como substituir os eixos, mas poderia usar a mesma abordagem com jitter. Então é uma questão de importar a fonte do XKCD e colocar em camadas geom_text.

jslefche
fonte