使用xkcd包和ggplot2：如何给条形图上色但保持人物实心？

Question

我正在使用颇有名气的数据分析包 xkcd，但是遇到了颜色方面的困难。我想在一个多彩的 geom_bar 旁边添加 xkcd 漫画中的男子形象，但我只能实现有色彩的 geom_bar 或者男子和柱状图并存，而无法同时实现。

library(xkcd)
library(ggplot2)
set.seed(16)

#borrowed from vignette
library(extrafont)
download.file("http://simonsoftware.se/other/xkcd.ttf", dest = "xkcd.ttf")
system("mkdir ~/.fonts")
system("cp xkcd.tff -t ~/.fonts")
library(extrafont)
font_import()
loadfonts()

#creates data from xkcd man: from vignette
mapping <- aes(
  x = x, y = y, scale = scale, ratioxy = ratioxy, angleofspine = angleofspine, 
  anglerighthumerus = anglerighthumerus, anglelefthumerus = anglelefthumerus,
  anglerightradius = anglerightradius, angleleftradius = angleleftradius,
  anglerightleg =  anglerightleg, angleleftleg = angleleftleg, 
  angleofneck = angleofneck, color = color)
dataman2 <- data.frame( 
  x= 3.5, y = 3, scale = 2, ratioxy = 0.5, angleofspine =  -pi/2, 
  anglerighthumerus = -pi/6, anglelefthumerus = 7*pi/6, 
  anglerightradius = 4*pi / 3, angleleftradius = 5*pi / 3, 
  angleleftleg = 4*pi / 3, anglerightleg = 5*pi / 3, 
  angleofneck = (3*pi/2) - (pi/10), color=c("red"))

#this rotates the xkcd man to match coord_flip
dataman2[ ,1:ncol(dataman2) %in% 5:(ncol(dataman2) - 1)] <- 
  dataman2[ ,c(5:(ncol(dataman2) -1))] - pi/2

#Create my df  
Ride <- data.frame(
  A = 1:6, 
  B = .01* seq(from = 5, to = 30, by= 5), 
  C = round(runif(6, min = .9, max = 1.1), 2) * c(2,1,2,2,1,2))

#These are the colors I want, but I want to add xkcd man on the right
ggplot(Ride, aes(A, C, fill = B)) + 
  geom_bar(stat="identity", width=.1) + coord_flip() + 
  scale_fill_continuous(low=c("#990000"), high=c("#009900")) #+ 

以下是我想要的颜色条：

（注：此内容为HTML标签，不做翻译）

#idea 1 - won't work b/c of fill = B
ggplot(Ride, aes(A, C, fill = B)) + 
  geom_bar(stat="identity", width=.1) + xkcdman(mapping,dataman2) 

#idea 2 - works but b&w; I am trying to add scale_fill_continuous (in comments)
ggplot() + xkcdrect(aes(xmin = A,
                        xmax = A + .25,
                        ymin = 0,
                        ymax = C),
                    Ride) + xkcdman(mapping,dataman2) + coord_flip() #+ 
  #scale_fill_continuous(low=c("#990000"), high=c("#009900"))

很遗憾，这些不太丰富多彩。

我该如何给一个连续的条形图上色但仍保持男人的实心？
感谢您的协助。

- Jack Ryan

---

我完全不知道这个存在。在搜索“严肃”的ggplot信息时偶然发现了它。非常感谢你让我注意到它。 - Bill Michaelson

Answer 1

这个有效：

ggplot() + 
  xkcdrect(
    aes(xmin = A, xmax = A + .25, ymin = 0, ymax = C, fill = B),
    Ride
  ) + xkcdman(mapping,dataman2) + coord_flip() + 
  scale_fill_continuous(low=c("#990000"), high=c("#009900"))

只需将aes添加fill美学即可。

- BrodieG

---

哼——棒人看起来很失望，答案竟然如此简单……;-) - Jack Ryan

@JackRyan，嘿，你做了所有的辛苦工作，我从中得到了一份很棒的xkcd教程。 - BrodieG