r - 将xkcd软件包与ggplot2结合使用:如何为条形图上色，但要保持立体感？

我正在使用卓越的软件包进行值得注意的数据分析，xkcd，但是我在颜色方面遇到了困难。我正在尝试将xkcd人添加到一个彩色geom_bar旁边，但是我只能在该条形图旁边添加一个彩色geom_bar或man，而不能同时做两个。

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

这些是我想要的颜色条。

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

不幸的是，这些没有那么丰富多彩。


如何为条形图上色（连续），但使人保持稳定？
感谢您的协助。

最佳答案

这有效：

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。