R Playground - 🇯🇵 Analysis - Tokyo Olympics | R 🇯🇵: Online Interpreter, Compiler & Editor

#---------------------------------------
#      BY Jesus Eduardo CanulK
#
# If you like please upvote and comment
# 
#           🌍🌎🌏🏔️🗾🏔️🌏🌎🌍
#              
#       ⚽⚾🏀🏐🏈🏉🎾🎳🏏🏑🏒🏓🏸🥊
#          🥋🥅⛳⛸️🎣🎽🎿🛷🥌🎯           
#       
#-----—---------------------------------
#Estableciendo estilos para la visualizacion del texto html     
        
cat("<style>body{background-color:#f8f8f8;text-align:center;color:#000000;}</style>")
#--------------------------------------
#Desarrollando las funciones base
Barplot <- function(x,title,color,lim){
    barplot(x, 
        names.arg=dt$Country,
        col=color,
        xlab="Total Medals", 
        ylab="Country", 
        xlim=lim,
        main=paste("TOP 10:",title,"Medals"),
OUTPUT