Train Themed Charts



Hello Everyone! First post here, happy to be part of the community!

I make visualisations specifically to be imported into PowerBI - nothing too complicated, usually for aesthetic tweaks that it can't do itself. I am new to R (and programming in general), but I do like getting stuck so I can find a solution!

I am currently designing (on request) some visuals that I want to be train themed (think steam, choo-choo, rail etc). Already have a traffic light looking one, but am looking to make a simple bar chart using trains to replace the bars.

Anyone have any experience with something like this? I'm thinking images to replace bars, or rectangular blocks instead of bars if that is possible. Creative ideas welcome!




A great source of symbols is Unicode, which can be included in charts just like normal text. I use this collection of code charts a lot. The emojifont package makes it easier to search for and specify Unicode characters. And the code's easier to understand.


space_demography <- starwars %>%
    gender = factor(gender, c("female", "male", "hermaphrodite", "none")),
    race   = case_when(
      species == "Human" ~ "Human",
      species == "Droid" ~ "Droid",
      TRUE               ~ "Alien"
  ) %>%
  arrange(gender, race) %>%
  select(gender, race)

space_demography %>%
  ggplot(aes(x = race, color = gender, shape = race)) +
  geom_point(aes(y = 1), size = 5, position = "stack") +
  scale_shape_manual(values = c(
    Human = emoji("bust_in_silhouette"),
    Droid = emoji("robot"),
    Alien = emoji("alien")
  )) +
  coord_flip() +



Unfortunately, the emojifont package isn't supported within PowerBI, but I could maybe do something with other Unicode characters.

Thanks very much!

Edit: For anyone finding this in the future - supported PowerBI R packages can be found here: