error.R

library(ggplot2)

# Festival.
x.festival <- c(0)
y.festival <- c(0, 0)

# Lollypop.
x.lollypop <- c(0)
y.lollypop <- c(0, 0)

# MusicBee.
x.musicbee <- c(0)
y.musicbee <- c(0, 118)

# GNOME Music.
x.gnome <- c(0)
y.gnome <- c(0, 33)

# iTunes.
x.itunes <- c(0)
y.itunes <- c(0, 35)

# Data.
input.data <- rbind(
  data.frame(x = x.festival, y = y.festival, series = "Festival (0)"),
  data.frame(x = x.musicbee, y = y.musicbee, series = "MusicBee (118)"),
  data.frame(x = x.gnome,    y = y.gnome,    series = "GNOME Music (33)"),
  data.frame(x = x.lollypop, y = y.lollypop, series = "Lollypop (0)"),
  data.frame(x = x.itunes,   y = y.itunes,   series = "iTunes (35)")
)

# Bar plot.
p <- ggplot(aes(x = x, y = y, fill = series), data = input.data) +
	geom_col(position = "dodge", width = 15) +
	scale_x_discrete(labels = NULL) +
	scale_y_continuous(breaks = scales::pretty_breaks(n = 25)) +
	theme(text = element_text(size = 30)) +
	theme(plot.title = element_text(color = "black", size = 40, face = "bold")) +
	labs(title = "Error", y = "Errors (less is better)", x = NULL, fill = NULL) +
	scale_fill_manual(values = c("#D82C6A", "#4F89C2", "#195750", "#957DAD", "#FB931F"))

# Create PNG.
png("error.png", width = 1000, height = 1000, pointsize = 50, res = 75)
print(p)
dev.off()