tutorial - r plot




我们如何制作xkcd风格的图表? (5)

与其他一些答案一样,我已经对图表进行了“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)

显然,民间已经想出了如何在MathematicaLaTeX中制作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论坛和extrafont软件包链接的字体尝试:

如上所述,在xkcd网站上关于字体论坛讨论 :我抓住了我能找到的第一个,可能还有其他(更好的?)选项(@jebyrnes在上面评论中发布了可能字体的另一个来源 - TTF文件在here ;有人报告了该源的404错误,你可以herehere尝试,用下面的xkcdFontURL适当地替换这些URL;你可能需要更加努力地检索Github发布的链接)

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

(这是快速,一次性使用:对于常规使用,你应该把它放在一些标准的系统字体目录中。)

   library(extrafont)

有关字体的最有用的信息是在extrafont github网站上 - 这是从那里取得的

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


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

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

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

一些例子(散点图,条形图):

  • 散点图:

  • 条形图:


我使用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)

这里是我使用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分层的geom_text







ggplot2