(Veja a parte inferior da postagem para atualizações)Mensagem inicial, 29/07/2014 11: 43: 38Z

Eu vi esses gráficos emo site do Economist e se perguntou se é possível produzir umgeom_bar() com esses ícones ilustrativos embutidos? (dados fictícios abaixo)

Dados fictícios,

require(ggplot2)

# Generate data
df3 <- data.frame(units = c(1.3, 1.8, 2.7, 4.2, 4.7, 6.7, 20), 
                   what = c('Wikipedia', 'London Olympic Park', 'Aircraft carrier', 
                            'The Great Pyramid', 'Stonehenge', 'Burj Khalifas', 
                            'Empire State Building'))

# make gs an ordered factor
df3$what <- factor(df3$what, levels = df3$what, ordered = TRUE)

    #plots
    ggplot(df3, aes(what, units)) + geom_bar(fill="white", colour="darkgreen", 
           alpha=0.5, stat="identity") + coord_flip() + scale_x_discrete() + 
           scale_y_continuous(breaks=seq(0, 20, 2)) + theme_bw() + 
           theme(axis.title.x  = element_blank(), axis.title.y  = element_blank())

Atualização # 1, 2014-07-29 15: 07: 51Z

Pelo vistoRobert Grant começou a criar uma função R para produzir gráficos de barras com pictogramas,pode ser encontrado no Github. Graças aAndrie para essa informação. Atualmente, estou trabalhando para ver se a função de Robert pode fazer o que estou procurando.

Entre em contato se tiver algum conselho sobre como responder à minha pergunta usandoFunção de Robert.

Atualização # 2, 02/08/2014 - 12: 35: 19Z

Aqui está uma ilustração simples de comoTrabalho da função R-pictograma de Grant

# in case you don't alredy have RCurl
# install.packages("RCurl", dependencies = TRUE)
source_github <- function(u) {
  # load package
  require(RCurl)

  # read script lines from website and evaluate
  script <- getURL(u, ssl.verifypeer = FALSE)
  eval(parse(text = script),envir=.GlobalEnv)
}

Obtive este scriptformar esta resposta SO

source_github("https://raw.githubusercontent.com/robertgrant/pictogram/master/pictogram.R")

# install.packages("png", dependencies = TRUE)
  require(png)

img <- readPNG(system.file("img", "Rlogo.png", package="png"))
pictogram(icon = img, n = c( 12, 35, 7),
grouplabels=c("12 R logos","35 R logos","7 R logos"))

Isso lhe dá esse tipo de enredo