Using the xkcd package with ggplot2: how to color the histogram but keep the person solid?

Question

I am using a preliminary package for noteworthy data analysis, xkcd , but I am having difficulty with colors. I am trying to add a person xkcd standing next to a colorful one geom_bar, but I can only make colorful geom_baror a person next to a histogram, and not both.

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

These are the colored stripes that I would like.

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

Unfortunately, this is not so colorful.

How to color the histogram (continuous), but keep the person solid?
Thanks for the help.

Answer 1

It works:

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

fill aes.