Tweeted plot example

## In response to: https://twitter.com/ewijaya_/status/921178681069809664

# Load ggplot2
library(ggplot2)

# Start by creating a data frame similar to that found in the plot
x = LETTERS[1:4]
y = letters[1:8]
df <- expand.grid(x, y)
names(df) <- c("x", "y")
df$w = runif(nrow(df))
df$z = sample(c(letters[10:14]), size = nrow(df), replace = TRUE)

# Make the plot
ggplot(df) + 
  geom_point(aes(x = x, y = y, color = z, size = w)) + 
  theme_minimal()