#--------------------------------------- # BY Jesus Eduardo CanulK # # If you like please upvote and comment # # 🌍🌎🌏🏔️🗾🏔️🌏🌎🌍 # # ⚽⚾🏀🏐🏈🏉🎾🎳🏏🏑🏒🏓🏸🥊 # 🥋🥅⛳⛸️🎣🎽🎿🛷🥌🎯 # #-----—--------------------------------- #Estableciendo estilos para la visualizacion del texto html cat("") #-------------------------------------- #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"), horiz=TRUE, panel.last=grid()) } Frecuencia <- function(x,txt,clases){ hist(x, main = paste(txt,"Medal Frequency"), ylab = "Frecuency", xlab = paste("Number of",txt,"Medals Obtained"), col = rainbow(clases+10), freq=FALSE, nclass=clases) grid() lines(density(x),lwd=3,col='black') } Circle <- function(cx,cy,col){ theta <- seq(0, 2 * pi, length = 300) polygon(x=6 * cos(theta)+cx, y=6 * sin(theta)+cy, lwd=17, border=col) } #---------------------—---------------- #Graficado los aros olimpicos png(file="hdu.png",bg="transparent") par(mar=c(0,0,0,0)) plot(c(-10, 10), c(-30, 10), type="n", xlab="", ylab="",asp=1,fg="white") text(.5,5,"TOKYO",font=2,col="black",cex=10) text(.5,-3,"2020",font=2,col="black",cex=8) Circle(-14,-15,"#0084c9") # blue Circle(-07,-22,"#e4c23d") # yellow Circle( 00,-15,"#030303") # black Circle( 07,-22,"#009f3d") # green Circle( 14,-15,"#e30123") # red #-------- IMPORT A DATASET EXTERN --------- #Obtencion y edicion del dataset externo #enlace donde esta el archivo csv (Dropbox) urlFile <- "https://www.dropbox.com/s/hu30bjc0v9kny60/tokyo%20medals%202021.csv?raw=1" #creamos el dataframe dt <- read.csv(urlFile) #renombramos las columnas del dataframe colnames(dt)<-c("Country","Gold","Silver","Bronze","Total","Rank") auxiliar <- dt #------ SHOW THE DATASET EXTERN --------- cat("

Olympic Medal Dataframe

Extern Dataset

🥇🥈🥉

") print(dt) cat("

👩‍💻👨‍💻 Analysis 👨‍💻👩‍💻

") #-------------------------------------- #Creando los graficos de top 10 png("xxu.png",height=2600,units="px",pointsize=16) par(mfrow=c(3,1)) #oro dt <- dt[1:10,] dt <- dt[order(dt$Gold,decreasing=TRUE), ] Barplot(dt$Gold,"Gold", "#ffd700", c(0,40)) #plata dt <- auxiliar dt <- dt[order(dt$Silver,decreasing=TRUE), ] dt <- dt[1:10,] Barplot(dt$Silver,"Silver","#e3e3e3",c(0,50)) #bronce dt <- auxiliar dt <- dt[order(dt$Bronze,decreasing=TRUE), ] dt <- dt[1:10,] Barplot(dt$Bronze,"Bronze","#b08d57",c(0,40)) #-------------------------------- #Creando los graficos de frecuencias png("aaa.png",height=1800,units="px",pointsize=16) par(mfrow=c(3,1)) Frecuencia(auxiliar$Gold,"Gold",15) Frecuencia(auxiliar$Silver,"Silver",15) Frecuencia(auxiliar$Bronze,"Bronze",15) #By jesus Eduardo Canul

🇯🇵 Analysis - Tokyo Olympics | R 🇯🇵