library(ggplot2)
library(gridExtra)

numbers <- read.csv('numbers.csv', sep='\t')

ggplot(numbers) +
  geom_point(aes(number, entropy)) +
  scale_x_continuous('Number', breaks=seq(1, 23, 2)) +
  scale_y_continuous('Entropy', breaks=seq(0, 1, .2))

numbers$position <- factor(numbers$position, levels=c('FW', 'MF', 'DF', 'GK'))

(g1 <-
ggplot(numbers) +
  geom_col(aes(x=number, y=count, fill=position)) +
  scale_x_continuous('Number', breaks=1:23, minor_breaks=NULL) +
  scale_y_continuous('Count', breaks=seq(0, 32, 4)) +
  scale_fill_manual('Position', values=c('dodgerblue1', 'green2', 'gold1', 'darkorange1'))
)

(g2 <-
ggplot(numbers) +
  geom_col(aes(x=number, y=count * (1 - entropy), fill=position)) +
  scale_x_continuous('Number', breaks=1:23, minor_breaks=NULL) +
  scale_y_continuous('Count * (1 - entropy)', breaks=seq(0, 32, 4)) +
  scale_fill_manual('Position', values=c('dodgerblue1', 'green2', 'gold1', 'darkorange1'))
)

ggsave('~/Downloads/1.png', g1)
ggsave('~/Downloads/1.png', g2)