link="https://docs.google.com/spreadsheets/d/e/2PACX-1vQNnD7GwYtpKO7sUvARnzv7FgEDiXVsiEfIb9KMijZmZ80kRoMRsXtR_DKBPQ_eOg/pub?gid=1148999148&single=true&output=csv"
data=read.csv(link,stringsAsFactors = F) 

str(data)

## 'data.frame':    78 obs. of  3 variables:
##  $ AÑO  : int  2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 ...
##  $ PAIS : chr  "Argentina" "Bolivia" "Brazil" "Chile" ...
##  $ GASTO: num  8.4 4.4 8.3 7 5.6 6.5 3.3 8.9 4.4 7 ...

data $ AÑO =as.factor (data $ AÑO) 

data $PAIS =as.factor(data $PAIS)

library(ggplot2)
ggplot(data=data, aes(x=PAIS, y=GASTO, fill=AÑO)) + 
    geom_bar(stat="identity", position=position_dodge()) +
    scale_fill_manual(values=c("darkgreen", "purple","black","red","yellow","blue"))