Publications by Juan Pablo Gomez Bravo
0001EDA_DataViz
##Exploracion inicial de datos #Cargue Librerias library(readxl) library(ggplot2) library(reshape2) df = read_excel("G:/TRABAJO/DOCENCIA/UNIANDES/Esp. Inteligencia de Mercados/001 DataViz I/archive/ifood_df.xlsx") head(df) ## # A tibble: 6 × 39 ## Income Kidhome Teenhome Recency MntWines MntFruits MntMeatProducts ## <dbl> <dbl> <db...
75 sym R (11363 sym/17 pcs) 5 img
Nuestra Primera Data Experiencia
Cargue inicial de librerias library(ggplot2) library(CGPfunctions) library(plotly) ## ## Adjuntando el paquete: 'plotly' ## The following object is masked from 'package:ggplot2': ## ## last_plot ## The following object is masked from 'package:stats': ## ## filter ## The following object is masked from 'package:graphics': ## ## ...
207 sym R (4062 sym/29 pcs) 2 img
Loops y Graficos
Loops Usando for, while, repeat # Ejemplo de loop con for para imprimir los números del 1 al 5 for (i in 1:5) { print(i) } [1] 1 [1] 2 [1] 3 [1] 4 [1] 5 Este loop “for” imprimirá los números del 1 al 5. # Ejemplo de loop con while para imprimir los números del 1 al 5 j <- 1 while (j <= 5) { print(j) j <- j + 1 } [1] 1 [1]...
5359 sym R (1862 sym/14 pcs) 7 img
R_Basico
Primeros pasos #Aritmetica 6+6 ## [1] 12 2*9 ## [1] 18 5/9 ## [1] 0.5555556 8-9 ## [1] -1 9^3 ## [1] 729 Creacion de objetos x = 2 y = 3 z = x*y z ## [1] 6 Condiciones Logicas # x mayor que y x > y ## [1] FALSE # x igual que y x == y ## [1] FALSE #x diferente que y x != y ## [1] TRUE #condicion combinada x&y > 1 ## [1] TRUE Cargar datos De...
298 sym R (821 sym/29 pcs)
R Objetos y Funciones
Objetos Creacion de vectores #Creacion de Vectores v1 = c(1,2,3) v2 = c(4,5,6) v3 =v1 + v2 v3 [1] 5 7 9 Construccion de matrices #Construccion de matrices m1= matrix(1:9,nrow = 3,ncol = 3) m1 [,1] [,2] [,3] [1,] 1 4 7 [2,] 2 5 8 [3,] 3 6 9 #seleccionar elementos matrices m1[1,3] [1] 7 #operaciones con matric...
3850 sym
Regresiones Expansion v6
library(readxl) library(ggplot2) library(CGPfunctions) library(plotly) library(lmtest) #Definir directorio setwd("G:/TRABAJO/CONSULTORIAS/TRABAJOS VARIOS/JORGE CHAVARRIA/analisis4") data1 = read_excel("Bicuspid4.xlsx") head(data1,5) Modelo 1 mod1=lm(RelativeStentExpansion ~ Predilatation + Postdilation + Raphaecalcificatio...
8619 sym R (11604 sym/27 pcs)
Regresiones Ellipticity v6
library(readxl) library(ggplot2) library(CGPfunctions) library(plotly) library(lmtest) #Definir directorio setwd("G:/TRABAJO/CONSULTORIAS/TRABAJOS VARIOS/JORGE CHAVARRIA/analisis4") data1 = read_excel("Bicuspid4.xlsx") head(data1,5) Modelo 1 mod1=lm(Ellipticity ~ Predilatation + Postdilation + Raphaecalcification + ...
9898 sym R (13395 sym/29 pcs)
Ellipticity Analysis v5
library(readxl) library(ggplot2) library(CGPfunctions) library(plotly) library(lmtest) #Definir directorio setwd("G:/TRABAJO/CONSULTORIAS/TRABAJOS VARIOS/JORGE CHAVARRIA/analisis3") data1 = read_excel("Bicuspid3.xlsx") head(data1,5) ANALISIS ELLIPTICITY #Relacion entre Maximum Sinus Diameter Indexed vs Ellipticity g1=ggplot(data=data1,mappi...
15322 sym R (19319 sym/65 pcs) 13 img
Bicuspid Expansion v5
library(readxl) library(ggplot2) library(CGPfunctions) library(plotly) library(lmtest) #Definir directorio setwd("G:/TRABAJO/CONSULTORIAS/TRABAJOS VARIOS/JORGE CHAVARRIA/analisis3") data1 = read_excel("Bicuspid3.xlsx") head(data1,5) ANALISIS RELATIVE STENT EXPANSION #Relacion entre Maximum Sinus Diameter Indexed vs Relative Stent Expansion %...
13357 sym R (20486 sym/70 pcs) 15 img
Bicuspid Ellipticity v4
library(readxl) library(ggplot2) library(CGPfunctions) library(plotly) ## ## Attaching package: 'plotly' ## The following object is masked from 'package:ggplot2': ## ## last_plot ## The following object is masked from 'package:stats': ## ## filter ## The following object is masked from 'package:graphics': ## ## layout libr...
2687 sym R (18968 sym/67 pcs) 13 img