#--------------------------------------- # BY Jesus Eduardo CanulK # # If you like please upvote and comment # # 🌍🌎🌏🏔️🗾🏔️🌏🌎🌍 # # ⚽⚾🏀🏐🏈🏉🎾🎳🏏🏑🏒🏓🏸🥊 # 🥋🥅⛳⛸️🎣🎽🎿🛷🥌🎯 # #-----—--------------------------------- #Estableciendo estilos para la visualizacion del texto html cat("") #-------------------------------------- #Desarrollando las funciones base Save <- function(name,h,w){ png(file = paste0(name,".png"), height = h, width=w, units = "px", pointsize=15, bg="transparent") } Barplot <- function(x,title,color,lim){ par(mar=c(7,5,5,1)) barplot(x, names.arg=dt$Country, col=color, ylab="Total Medals", ylim=lim, las=2, main=paste("TOP 10:",title,"Medals"), panel.last=grid()) } Frecuencia <- function(x,txt,n){ hist(x, main = paste(txt,"Medal Frequency"), ylab = "Frecuency", xlab = paste("Number of",txt,"Medals Obtained"), ylim=c(0,n), freq=FALSE, col = rainbow(15*4), nclass=15*3) 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) } color <- c("#000099", "#00FEFF", "#45FE4F", "#FCFF00", "#FF9400", "#FF3100") Smooth <- function(x,y,title){ smoothScatter(x, 1:y, main=paste(title,"Smooth Scatter"), xlab="Number of Medals obtained", ylab="n countrys", transformation = function(x) x ^ 0.4, colramp = colorRampPalette(color)) } #---------------------—---------------- #Graficado los aros olimpicos png(file="zzz.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/2pn6lkgojhtm0f3/paralympic-medals.csv?raw=1" #creamos el dataframe dt <- read.csv(urlFile) #renombramos las columnas del dataframe colnames(dt)<-c("RankTokio","Country","Code","Gold","Silver","Bronze","Total","RKGlobal") #Eliminando 3 columnas q no usare dt$RankTokio <- NULL dt$RKGlobal <- NULL dt$Total <- NULL auxiliar <- dt #------ SHOW THE DATASET EXTERN --------- cat("

🚵‍♂️🏊‍♀️⛹️‍♂️🏋️‍♂️🏋️‍♀️🤼‍♂️🤽‍♂️🤺

♿ Paralympic Dataframe ♿

Extern Dataset

🥇🥈🥉

") print(dt) cat("

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

") #-------------------------------------- #Creando los graficos de top 10 #oro dt <- dt[1:10,] dt <- dt[order(dt$Gold,decreasing=TRUE), ] Save("aaa",850,700) Barplot(dt$Gold,"Gold", "#ffd700", c(0,100)) #plata dt <- auxiliar dt <- dt[order(dt$Silver,decreasing=TRUE), ] dt <- dt[1:10,] Save("bbb",850,700) Barplot(dt$Silver,"Silver","#e3e3e3",c(0,60)) #bronce dt <- auxiliar dt <- dt[order(dt$Bronze,decreasing=TRUE), ] dt <- dt[1:10,] Save("uii",850,700) Barplot(dt$Bronze,"Bronze","#b08d57",c(0,55)) #-------------------------------- #Creando los graficos de frecuencias tam <- 1180 th <- 700 #Gold Save("yyy",tam,th) par(mfrow=c(2,1)) Smooth(auxiliar$Gold,86,"Gold") Frecuencia(auxiliar$Gold,"Gold",0.30) #Silver Save("zzy",tam,th) par(mfrow=c(2,1)) Smooth(auxiliar$Silver,86,"Silver") Frecuencia(auxiliar$Silver,"Silver",0.45) #Bronze Save("zz9",tam,th) par(mfrow=c(2,1)) Smooth(auxiliar$Bronze,86,"Bronze") Frecuencia(auxiliar$Bronze,"Bronze",.45) #By jesus Eduardo CanulK

🇯🇵 Analysis - Tokyo Paralympics | R