어떻게 xkcd 스타일 그래프를 만들 수 있습니까?

어떻게 xkcd 스타일 그래프를 만들 수 있습니까?

분명히, 사람들은 Mathematica와 LaTeX에서 xkcd 스타일 그래프를 만드는 방법을 알아냈습니다.R? Ggplot2-ers에서 할 수 있습니까?gem_xkcd 및/또는 theme_xkcd?

기본 그래픽에서는 par(xkcd=TRUE)?제가 그걸 어떻게 합니까?

ggplot2에서 첫 번째 찌르기(그리고 아래에 훨씬 더 우아하게 표시됨)로, 선에 지터 인수를 추가하면 손으로 그린 모양이 매우 좋습니다.그래서...

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-ggplot"했고 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')

생성물:

다음은 xkcd 포럼의 링크를 기반으로 글꼴을 시도한 것입니다.extrafont패키지:

위에서 언급한 바와 같이 xkcd 사이트의 글꼴에 대한 포럼 토론이 있습니다.나는 내가 찾을 수 있는 첫 번째 것을 잡았고, 다른 (더 나은?) 옵션이 있을 수 있습니다. (@jebyrnes는 위의 주석에 가능한 글꼴에 대한 다른 소스를 게시합니다. TTF 파일은 여기에 있습니다. 누군가가 해당 소스에 대해 404 오류를 보고했습니다. 또는 여기에서 해당 URL을 적절하게 대체하여 시도할 수 있습니다.xkcdFontURL아래; Github-posted 링크를 검색하려면 조금 더 노력해야 할 수도 있습니다.)

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

(이것은 빠른 일회용입니다. 일반적으로 사용하려면 표준 시스템 글꼴 디렉터리에 넣어야 합니다.)

   library(extrafont)

글꼴에 대한 가장 유용한 정보는 외부 글꼴 허브 사이트에 있습니다. 이것은 거기에서 가져온 것입니다.

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

저는 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)

이것은 매우 매우 거친 시작이며 라인의 손으로 그린 모양과 느낌만을 (부분적으로) 커버합니다.이를 자동화하려면 약간의 작업이 필요하지만 응답 기능에 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)

이것이 저의 견해입니다.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.

언급URL : https://stackoverflow.com/questions/12675147/how-can-we-make-xkcd-style-graphs