chernofftable.R

library(jsonlite)
library(ggplot2)
library(ggChernoff)

# https://github.com/Bowserinator/Periodic-Table-JSON
d <- jsonlite::fromJSON('PeriodicTableJSON.json')[["elements"]]

ggplot(d, aes(xpos,10-ypos)) + 
  geom_chernoff(aes(fill=category, size = phase, smile = density, brow = molar_heat)) +
  geom_text(aes(label=symbol), vjust=2.5) +
  guides(fill=guide_legend(ncol=2)) +
  theme_void() +
  scale_brow_continuous(breaks = c(10, 25, 50))+
  theme(legend.position = 'right', panel.background = element_rect(colour="black"))