Come possiamo creare grafici in stile xkcd?



Answers

Pensando sulla stessa linea di alcune altre risposte, ho "ggplotted" il grafico e aggiunto anche la flessibilità delle posizioni dell'etichetta dell'asse x (che sembra essere comune in xkcd) e un'etichetta arbitraria sul grafico.

Si noti che ho avuto alcuni problemi con il caricamento del font Humor Sans e scaricato manualmente nella directory di lavoro.

E il codice ...

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

A quanto pare, la gente ha capito come creare grafici in stile xkcd in Mathematica e in LaTeX . Possiamo farlo in R? Ggplot2-ers? A geom_xkcd e / o theme_xkcd?

Immagino nella grafica di base, par (xkcd = TRUE)? Come lo faccio?

Come prima pugnalata (e molto più elegantemente mostrata sotto) in ggplot2, l'aggiunta dell'argomento jitter a una linea crea un grande look disegnato a mano. Così -

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

È un buon esempio, ma gli assi e i caratteri appaiono più complicati. I caratteri sembrano risolti (sotto), però. L'unico modo per gestire gli assi è di cancellarli e disegnarli a mano? C'è una soluzione più elegante? In particolare, in ggplot2, è possibile modificare element_line nel nuovo sistema tema per assumere un argomento simile al jitter?




Questo è un inizio molto, molto approssimativo e copre solo (parzialmente) l'aspetto e le linee disegnate a mano. Ci vorrebbe un po 'di lavoro per automatizzarlo, ma aggiungere un po' di rumore AR (1) alla funzione di risposta potrebbe far sembrare leggermente disegnato a mano

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)



Ecco un tentativo sui caratteri, basato sui collegamenti dei forum xkcd e del pacchetto extrafont :

Come notato sopra c'è una discussione sul forum sui font sul sito xkcd : ho afferrato il primo che ho trovato, potrebbero esserci altre (migliori?) Opzioni (@jebyrnes invia un'altra fonte per possibili caratteri nei commenti sopra - il file TTF è here ; qualcuno ha segnalato un errore 404 per quella fonte, in alternativa potresti provare here o here , sostituendo gli URL in modo appropriato per xkcdFontURL seguito, potresti dover lavorare un po 'più difficile per recuperare i link Github-postati)

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

(Questo è per un uso immediato, rapido: per un uso regolare dovresti inserirlo in una directory di font di sistema standard).

   library(extrafont)

Le informazioni più utili sui tipi di carattere erano sul sito github extrafont - questo è preso da lì

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

Esempio preso più o meno testualmente dal sito 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")




Links



Tags

r r   ggplot2