Introducción

A continuación, se explorarán varios conceptos fundamentales del lenguaje de programación R, aplicados al análisis de datos y representación gráfica. A través de ejemplos prácticos, se demostrará la asignación de variables, se realizarán operaciones aritméticas, se aplicarán funciones matemáticas, y se trabajará con constantes y vectores. Además, se visualizarán los datos mediante gráficas sencillas.

Asignación de variables

x <- 3
y <- 2

Impresión de resultados

x
## [1] 3
y
## [1] 2

Operaciones Aritméticas

suma <- x + y
suma 
## [1] 5
resta <- x - y 
resta
## [1] 1
multiplicacion <- x*y
multiplicacion
## [1] 6
division <- x/y
division 
## [1] 1.5
division_entera  <- x %/% y
division_entera
## [1] 1
residuo <- x%%y
residuo
## [1] 1
potencia <- x ^ 2
potencia
## [1] 9

Funciones matematicas

raiz_cuadrada <- sqrt(x)
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x ^  (1/3)
raiz_cubica
## [1] 1.44225
exponencial1 <- exp (1)
exponencial1
## [1] 2.718282
absoluto <- abs(x)
absoluto
## [1] 3
signo <-sign(x)
signo
## [1] 1
redondeo_arriba <- ceiling (x/y)
redondeo_arriba
## [1] 2
redondeo_abajo <- floor (x/y)
redondeo_abajo
## [1] 1
truncar  <- trunc(x/y)
truncar
## [1] 1

Constantes

pi
## [1] 3.141593
radio <-5 
area_circulo <- pi * radio **2
area_circulo
## [1] 78.53982

Vectores

a <- c(1,2,3,4,5)
a
## [1] 1 2 3 4 5
nombre <- c("Jose", "Ana", "Juan")
nombre
## [1] "Jose" "Ana"  "Juan"
longitud <- length(a)
longitud
## [1] 5
longitud_nombre <- length (nombre)
longitud_nombre
## [1] 3
promedio <- mean(a)
promedio 
## [1] 3
resumen <- summary(a)
resumen
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##       1       2       3       3       4       5
orden_ascendente <- sort(a)
orden_ascendente
## [1] 1 2 3 4 5
orden_descentente <- sort(a,decreasing=TRUE)
orden_descentente
## [1] 5 4 3 2 1
?sort

b<- c(1,2,3,4,5)
b
## [1] 1 2 3 4 5
suma_vectores <- a+b 
suma_vectores
## [1]  2  4  6  8 10

Grafica

plot(a, b, main="Ventas Totales", xlab="Semana", ylab="Millones de dólares")

Ejercicio 1 IMC

# Definición de vectores con valores numéricos
nombre <- c("Miguel", "Karla", "Valeria", "Maria", "David")
peso <- c(55, 53, 56, 59, 56) 
altura <- c(1.66, 1.76, 1.64, 1.61, 1.62) 

# Creación de un data frame con los vectores anteriores
df <- data.frame(nombre, peso, altura)

# Cálculo del IMC y adición al data frame
# IMC = peso (kg) / altura (m)^2
df$IMC <- peso / (altura * altura)

# Impresión del data frame con la columna IMC añadida
df
##    nombre peso altura      IMC
## 1  Miguel   55   1.66 19.95936
## 2   Karla   53   1.76 17.11002
## 3 Valeria   56   1.64 20.82094
## 4   Maria   59   1.61 22.76147
## 5   David   56   1.62 21.33821
# Resumen estadístico del data frame
summary(df)
##     nombre               peso          altura           IMC       
##  Length:5           Min.   :53.0   Min.   :1.610   Min.   :17.11  
##  Class :character   1st Qu.:55.0   1st Qu.:1.620   1st Qu.:19.96  
##  Mode  :character   Median :56.0   Median :1.640   Median :20.82  
##                     Mean   :55.8   Mean   :1.658   Mean   :20.40  
##                     3rd Qu.:56.0   3rd Qu.:1.660   3rd Qu.:21.34  
##                     Max.   :59.0   Max.   :1.760   Max.   :22.76
# Los valores del Índice de Masa Corporal varían de 17.11 a 22.76. La mediana y la media del IMC (20.82 y 20.40, respectivamente) sugieren que, en general, el grupo cae dentro de un rango de IMC considerado como normal según los estándares de la Organización Mundial de la Salud (OMS), que define un IMC normal entre 18.5 y 24.9.

plot(altura, peso, main="Altura y Peso", xlab= "Altura", ylab="Peso", col="red")

Conclusiones

R es un lenguaje de programación útil para realizar cálculos, principalmente estadísticos, y forma parte de las herramientas del Big Data.

R Studio es el entorno en donde se puede programar R, y gracias a que también aqui se puede programar python, en julio del 2023 se anunció su nuevo nombre: Posit.

En esta introducción, lo que 1lama la atención es: la constante aparición de alertas o errores en el programa, los cuales encontramos que principalmente se deben a que la versión de R no es la más reciente, a la falta de instalación de paquetes o 1lamar a las librerías, problemas de escritura (typost) y los muchos argumentos que tienen las funciones.

Si desde un inicio programamos de forma estructurada, disciplinada y meticulosa, podemos preveer muchas de las alertas o errores y así obtendremos los muchos beneficios de la programación en R, como los pronósticos de predicción.

El lenguaje R facilita el análisis de datos y la visualización gráfica, A través de ejercicios prácticos, como el cálculo del IMC y la creación de gráficas, se evidencia la potencia de R para manipular y representar datos de manera intuitiva. Este ejemplo prácticos subrayn la utilidad de R en la simplificación del análisis de datos complejos, proveyendo insights valiosos

LS0tDQp0aXRsZTogIkNvbWFuZG9zIELDoXNpY29zIg0KYXV0aG9yOiAiQWxtYSBTYW50aWFnbyAtIEEwMDgzNjYzNiINCmRhdGU6ICIyMDI0LTAyLTE1Ig0Kb3V0cHV0OiANCiBodG1sX2RvY3VtZW50Og0KICAgdG9jOiBUUlVFDQogICB0b2NfZmxvYXQ6IFRSVUUNCiAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgIA0KLS0tDQohW10oRDpcXERlc2Nhcmdhc1xcTUFURVMuanBnKQ0KDQojIEludHJvZHVjY2nDs24gDQpBIGNvbnRpbnVhY2nDs24sIHNlIGV4cGxvcmFyw6FuIHZhcmlvcyBjb25jZXB0b3MgZnVuZGFtZW50YWxlcyBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLCBhcGxpY2Fkb3MgYWwgYW7DoWxpc2lzIGRlIGRhdG9zIHkgcmVwcmVzZW50YWNpw7NuIGdyw6FmaWNhLiBBIHRyYXbDqXMgZGUgZWplbXBsb3MgcHLDoWN0aWNvcywgc2UgZGVtb3N0cmFyw6EgbGEgYXNpZ25hY2nDs24gZGUgdmFyaWFibGVzLCBzZSByZWFsaXphcsOhbiBvcGVyYWNpb25lcyBhcml0bcOpdGljYXMsIHNlIGFwbGljYXLDoW4gZnVuY2lvbmVzIG1hdGVtw6F0aWNhcywgeSBzZSB0cmFiYWphcsOhIGNvbiBjb25zdGFudGVzIHkgdmVjdG9yZXMuIEFkZW3DoXMsIHNlIHZpc3VhbGl6YXLDoW4gbG9zIGRhdG9zIG1lZGlhbnRlIGdyw6FmaWNhcyBzZW5jaWxsYXMuDQoNCiMgQXNpZ25hY2nDs24gZGUgdmFyaWFibGVzDQpgYGB7cn0NCnggPC0gMw0KeSA8LSAyDQpgYGANCg0KIyBJbXByZXNpw7NuIGRlIHJlc3VsdGFkb3MNCmBgYHtyfQ0KeA0KeQ0KYGBgICAgICAgIA0KDQojIE9wZXJhY2lvbmVzIEFyaXRtw6l0aWNhcw0KYGBge3J9DQpzdW1hIDwtIHggKyB5DQpzdW1hIA0KDQpyZXN0YSA8LSB4IC0geSANCnJlc3RhDQoNCm11bHRpcGxpY2FjaW9uIDwtIHgqeQ0KbXVsdGlwbGljYWNpb24NCg0KZGl2aXNpb24gPC0geC95DQpkaXZpc2lvbiANCg0KZGl2aXNpb25fZW50ZXJhICA8LSB4ICUvJSB5DQpkaXZpc2lvbl9lbnRlcmENCg0KcmVzaWR1byA8LSB4JSV5DQpyZXNpZHVvDQoNCnBvdGVuY2lhIDwtIHggXiAyDQpwb3RlbmNpYQ0KYGBgDQoNCiMgRnVuY2lvbmVzIG1hdGVtYXRpY2FzDQpgYGB7cn0NCnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KQ0KcmFpel9jdWFkcmFkYQ0KDQpyYWl6X2N1YmljYSA8LSB4IF4gICgxLzMpDQpyYWl6X2N1YmljYQ0KDQpleHBvbmVuY2lhbDEgPC0gZXhwICgxKQ0KZXhwb25lbmNpYWwxDQoNCmFic29sdXRvIDwtIGFicyh4KQ0KYWJzb2x1dG8NCg0Kc2lnbm8gPC1zaWduKHgpDQpzaWdubw0KDQpyZWRvbmRlb19hcnJpYmEgPC0gY2VpbGluZyAoeC95KQ0KcmVkb25kZW9fYXJyaWJhDQoNCnJlZG9uZGVvX2FiYWpvIDwtIGZsb29yICh4L3kpDQpyZWRvbmRlb19hYmFqbw0KDQp0cnVuY2FyICA8LSB0cnVuYyh4L3kpDQp0cnVuY2FyDQpgYGANCg0KIyBDb25zdGFudGVzDQpgYGB7cn0NCnBpDQpyYWRpbyA8LTUgDQphcmVhX2NpcmN1bG8gPC0gcGkgKiByYWRpbyAqKjINCmFyZWFfY2lyY3Vsbw0KYGBgDQoNCiMgVmVjdG9yZXMNCmBgYHtyfQ0KYSA8LSBjKDEsMiwzLDQsNSkNCmENCg0Kbm9tYnJlIDwtIGMoIkpvc2UiLCAiQW5hIiwgIkp1YW4iKQ0Kbm9tYnJlDQoNCmxvbmdpdHVkIDwtIGxlbmd0aChhKQ0KbG9uZ2l0dWQNCg0KbG9uZ2l0dWRfbm9tYnJlIDwtIGxlbmd0aCAobm9tYnJlKQ0KbG9uZ2l0dWRfbm9tYnJlDQoNCnByb21lZGlvIDwtIG1lYW4oYSkNCnByb21lZGlvIA0KDQpyZXN1bWVuIDwtIHN1bW1hcnkoYSkNCnJlc3VtZW4NCm9yZGVuX2FzY2VuZGVudGUgPC0gc29ydChhKQ0Kb3JkZW5fYXNjZW5kZW50ZQ0KDQpvcmRlbl9kZXNjZW50ZW50ZSA8LSBzb3J0KGEsZGVjcmVhc2luZz1UUlVFKQ0Kb3JkZW5fZGVzY2VudGVudGUNCg0KP3NvcnQNCg0KYjwtIGMoMSwyLDMsNCw1KQ0KYg0KDQpzdW1hX3ZlY3RvcmVzIDwtIGErYiANCnN1bWFfdmVjdG9yZXMNCmBgYA0KDQojIEdyYWZpY2ENCmBgYHtyfQ0KcGxvdChhLCBiLCBtYWluPSJWZW50YXMgVG90YWxlcyIsIHhsYWI9IlNlbWFuYSIsIHlsYWI9Ik1pbGxvbmVzIGRlIGTDs2xhcmVzIikNCmBgYA0KDQojIEVqZXJjaWNpbyAxIElNQw0KDQpgYGB7cn0NCiMgRGVmaW5pY2nDs24gZGUgdmVjdG9yZXMgY29uIHZhbG9yZXMgbnVtw6lyaWNvcw0Kbm9tYnJlIDwtIGMoIk1pZ3VlbCIsICJLYXJsYSIsICJWYWxlcmlhIiwgIk1hcmlhIiwgIkRhdmlkIikNCnBlc28gPC0gYyg1NSwgNTMsIDU2LCA1OSwgNTYpIA0KYWx0dXJhIDwtIGMoMS42NiwgMS43NiwgMS42NCwgMS42MSwgMS42MikgDQoNCiMgQ3JlYWNpw7NuIGRlIHVuIGRhdGEgZnJhbWUgY29uIGxvcyB2ZWN0b3JlcyBhbnRlcmlvcmVzDQpkZiA8LSBkYXRhLmZyYW1lKG5vbWJyZSwgcGVzbywgYWx0dXJhKQ0KDQojIEPDoWxjdWxvIGRlbCBJTUMgeSBhZGljacOzbiBhbCBkYXRhIGZyYW1lDQojIElNQyA9IHBlc28gKGtnKSAvIGFsdHVyYSAobSleMg0KZGYkSU1DIDwtIHBlc28gLyAoYWx0dXJhICogYWx0dXJhKQ0KDQojIEltcHJlc2nDs24gZGVsIGRhdGEgZnJhbWUgY29uIGxhIGNvbHVtbmEgSU1DIGHDsWFkaWRhDQpkZg0KYGBgDQoNCmBgYHtyfQ0KIyBSZXN1bWVuIGVzdGFkw61zdGljbyBkZWwgZGF0YSBmcmFtZQ0Kc3VtbWFyeShkZikNCg0KIyBMb3MgdmFsb3JlcyBkZWwgw41uZGljZSBkZSBNYXNhIENvcnBvcmFsIHZhcsOtYW4gZGUgMTcuMTEgYSAyMi43Ni4gTGEgbWVkaWFuYSB5IGxhIG1lZGlhIGRlbCBJTUMgKDIwLjgyIHkgMjAuNDAsIHJlc3BlY3RpdmFtZW50ZSkgc3VnaWVyZW4gcXVlLCBlbiBnZW5lcmFsLCBlbCBncnVwbyBjYWUgZGVudHJvIGRlIHVuIHJhbmdvIGRlIElNQyBjb25zaWRlcmFkbyBjb21vIG5vcm1hbCBzZWfDum4gbG9zIGVzdMOhbmRhcmVzIGRlIGxhIE9yZ2FuaXphY2nDs24gTXVuZGlhbCBkZSBsYSBTYWx1ZCAoT01TKSwgcXVlIGRlZmluZSB1biBJTUMgbm9ybWFsIGVudHJlIDE4LjUgeSAyNC45Lg0KDQpwbG90KGFsdHVyYSwgcGVzbywgbWFpbj0iQWx0dXJhIHkgUGVzbyIsIHhsYWI9ICJBbHR1cmEiLCB5bGFiPSJQZXNvIiwgY29sPSJyZWQiKQ0KDQpgYGANCg0KIyBDb25jbHVzaW9uZXMgDQoqUiogZXMgdW4gbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiDDunRpbCBwYXJhIHJlYWxpemFyIGPDoWxjdWxvcywgIHByaW5jaXBhbG1lbnRlIGVzdGFkw61zdGljb3MsIHkgZm9ybWEgcGFydGUgZGUgbGFzIGhlcnJhbWllbnRhcyBkZWwgKkJpZyBEYXRhKi4NCg0KKlIgU3R1ZGlvKiBlcyBlbCBlbnRvcm5vIGVuIGRvbmRlIHNlIHB1ZWRlIHByb2dyYW1hciAqKlIqKiwgeSBncmFjaWFzIGEgcXVlIHRhbWJpw6luIGFxdWkgc2UgcHVlZGUgcHJvZ3JhbWFyICoqcHl0aG9uKiosIGVuIGp1bGlvIGRlbCAyMDIzIHNlIGFudW5jacOzIHN1IG51ZXZvIG5vbWJyZTogKipQb3NpdCoqLg0KDQpFbiBlc3RhIGludHJvZHVjY2nDs24sIGxvIHF1ZSAxbGFtYSBsYSBhdGVuY2nDs24gZXM6IGxhIGNvbnN0YW50ZSBhcGFyaWNpw7NuIGRlIGFsZXJ0YXMgbyBlcnJvcmVzIGVuIGVsIHByb2dyYW1hLCBsb3MgY3VhbGVzIGVuY29udHJhbW9zIHF1ZSBwcmluY2lwYWxtZW50ZSBzZSBkZWJlbiBhIHF1ZSBsYSB2ZXJzacOzbiBkZSAqKlIqKiBubyBlcyBsYSBtw6FzIHJlY2llbnRlLCBhIGxhIGZhbHRhIGRlIGluc3RhbGFjacOzbiBkZSBwYXF1ZXRlcyBvIDFsYW1hciBhIGxhcyBsaWJyZXLDrWFzLCBwcm9ibGVtYXMgZGUgZXNjcml0dXJhICgqdHlwb3N0KikgeSBsb3MgbXVjaG9zIGFyZ3VtZW50b3MgcXVlIHRpZW5lbiBsYXMgZnVuY2lvbmVzLg0KDQpTaSBkZXNkZSB1biBpbmljaW8gcHJvZ3JhbWFtb3MgZGUgZm9ybWEgZXN0cnVjdHVyYWRhLCBkaXNjaXBsaW5hZGEgeSBtZXRpY3Vsb3NhLCBwb2RlbW9zIHByZXZlZXIgbXVjaGFzIGRlIGxhcyBhbGVydGFzIG8gZXJyb3JlcyB5IGFzw60gb2J0ZW5kcmVtb3MgbG9zIG11Y2hvcyBiZW5lZmljaW9zIGRlIGxhIHByb2dyYW1hY2nDs24gZW4gKlIqLCBjb21vIGxvcyBwcm9uw7NzdGljb3MgZGUgcHJlZGljY2nDs24uDQoNCkVsIGxlbmd1YWplICpSKiBmYWNpbGl0YSBlbCBhbsOhbGlzaXMgZGUgZGF0b3MgeSBsYSB2aXN1YWxpemFjacOzbiBncsOhZmljYSwgQSB0cmF2w6lzIGRlIGVqZXJjaWNpb3MgcHLDoWN0aWNvcywgY29tbyBlbCBjw6FsY3VsbyBkZWwgSU1DIHkgbGEgY3JlYWNpw7NuIGRlIGdyw6FmaWNhcywgc2UgZXZpZGVuY2lhIGxhIHBvdGVuY2lhIGRlIFIgcGFyYSBtYW5pcHVsYXIgeSByZXByZXNlbnRhciBkYXRvcyBkZSBtYW5lcmEgaW50dWl0aXZhLiBFc3RlIGVqZW1wbG8gcHLDoWN0aWNvcyBzdWJyYXluIGxhIHV0aWxpZGFkIGRlIFIgZW4gbGEgc2ltcGxpZmljYWNpw7NuIGRlbCBhbsOhbGlzaXMgZGUgZGF0b3MgY29tcGxlam9zLCBwcm92ZXllbmRvIGluc2lnaHRzIHZhbGlvc29z