#--------------------------------------- # BY Jesus Eduardo CanulK # # If you like please upvote and comment # #-----—--------------------------------- labels <-c("Zebra Circle", "THIS CODE","Mushroom Kingdom","Contour Plot","Red Flower", "Curses in Sololearn","HCL palette colors") colors <- c( "#EF280F","yellow1","blue", "#6DC76D", "#F3682C", "magenta","#109DFA") Imgsave <- function(name){ png(file=name, bg="white", height = 950, width = 700, units = "px", pointsize= 15) } Mostralabels <- function(){ legend("topleft", labels, title="Code Name: ", cex=1.2, fill=colors) } Lines <- function(tc,l1,l2,l3,l4,l5){ #----- Using Lines() Fuction ---- lines(tc,col=colors[2],lwd="5") lines(l1,col=colors[3],lwd="3") lines(l2,col=colors[4],lwd="3") lines(l3,col=colors[5],lwd="3") lines(l4,col=colors[6],lwd="3") lines(l5,col=colors[7],lwd="3") } Abline <- function(l1,a1,l2,a2){ abline(h=seq(0,l1,by=a1), v=seq(0,l2,by=a2), col="#d6d6d6") } #------------------------------- #This code ltc <- c(0,2 ,11 ,14 ,19 ,23 ,27 ,29, 31 ,33 ,34 ,38 ,40,40 ,42 ,45,46,49,53) ctc <- c(0,1 ,7,11 ,15 ,15,15 ,16,18 ,18, 19, 19 ,19 ,21 ,23 ,24 ,24 ,26 ,26) vtc <- c(0,1,15,25,68 ,120,161,174, 217,244 ,282 ,308, 321,325,332,341,361,479,555) #Zebra Circle lza <- c(0,2 ,8 ,13 ,18 ,19 ,22 ,25 ,27 ,35 ,39 ,42 ,45 ,47 ,49 ,51 ,54 ,55,58) cza <- c(0,2 ,10 ,15 ,15 ,15 ,15 ,17 ,17 ,19 ,19 ,19 ,19 ,19 ,21 ,21 ,22 ,22,22) vza <- c(0,2,11,20,73,108,131,146 ,209 ,354, 438,491,552 ,607 ,820 ,890 ,901 ,906,906) #MushRoom Kingdom lmk <-c(0,5,14,20,34 ,41 ,45 ,45 ,45 ,46 ,46 ,46 ,47 ,48 ,49 ,51 ,52 ,53,54) cmk <-c(0,2,7,14,17 ,19 ,19 ,19 ,19 ,22 ,23, 23 ,23 ,25 ,25 ,25 ,25 ,25,25) vmk <- c(0,10,40,70,171,276,337,346,382,387, 391,415,529,558,786,1100,1500,1600,1600) #Contour plot lcp <- c(0,2,4,7, 10 ,17 ,20 ,22 ,24 ,26 ,30 ,30 ,33 ,33 ,36 ,36 ,36 ,36,38) ccp <- c(0,3,5,9 ,17 ,17 ,20 ,20 ,20 ,25 ,26 ,29 ,29 ,29 ,31 ,31 ,31 ,31,33) vcp <- c(0,3,6,12,26 ,72,115,157 ,182 ,209 ,281, 340, 376, 391 ,410 ,483 ,580 ,595,595) #Red Flower lfa <- c(0,5, 9 ,15 ,24 ,28 ,32 ,35 ,36 ,48 ,57 ,61 ,62 ,65 ,67 ,67 ,67 ,69,70) cfa <- c(0,8 ,15 ,33 ,37 ,37 ,46 ,49 ,49 ,55 ,55 ,56 ,56 ,59 ,59 ,59 ,59 ,63,69) vfa <- c(0,7,16,39,163,235,255,318,358,594 ,700 ,786 ,839 ,881 ,924 ,936 ,963 ,971,971) #curse in sololearn lcs <- c(0, 7 ,11 ,17 ,22 ,28 ,31 ,35 ,50 ,55 ,59 ,59 ,60 ,62 ,63 ,64 ,65 ,66,68) ccs <- c(0, 6, 15 ,26 ,32 ,38 ,39 ,39 , 45, 45 ,45 ,48 ,50 ,50 ,52 ,52 ,52, 52,52) vcs <- c(0,11,29,149 ,197 ,248 ,304,349,506, 594,658,702,750,789,815,944,963,1100,1100) #hcl colores lhc <- c(0, 4 ,10 ,12 ,14 ,18 ,21 ,26 ,28 ,30 ,33 ,35 ,46 ,56 ,58 ,58 ,60 ,62,68) chc <- c(0, 10, 11 ,15 ,19 ,25 ,26 ,29 ,29 ,30, 31 ,31 ,33 ,38 ,43 ,43 ,45 ,46,46) vhc <- c(0, 7,11 ,29 ,36 ,90 ,120 ,133,165 ,187,258,430 ,556 ,597 ,619 ,650,716,737,737) #-------------------------------- Imgsave("AMostLikes.png") plot(lza, type="l", col=colors[1], lwd="3", ylim=c(0,80), ylab="Number of likes", xlab="Time (days)", main="My codes with the most Likes in R") Abline(80,5,19,2) Lines(ltc,lmk,lcp,lfa,lcs,lhc) Mostralabels() #-------------------------------- Imgsave("zFMostComent.png") plot(cza, type="l", col=colors[1], lwd="3", ylim=c(0,70), ylab="Number of Comments", xlab="Time(days)", main="My codes with more comments in R") Abline(70,5,19,2) Lines(ctc,cmk,ccp,cfa,ccs,chc) Mostralabels() #-------------------------------- Imgsave("MostView.png") plot(vza, type="l", col=colors[1], lwd="3", ylim=c(0,1600), ylab="Number of Views", xlab="Time(days)", main="My codes with most views in R") Abline(1600,100,19,2) Lines(vtc,vmk,vcp,vfa,vcs,vhc) Mostralabels() #------------------------------- cat("

Analizando mis Codigos en R

") cat("

By Jesus Eduardo CanulK

") cat("")

👨‍💻 Analysis - My codes | R 👨‍💻