Contexto

Primeros pasos en R para aprender a declarar variables, consultar sus valores y realizar operaciones matemáticas básicas (sumas, restas, multiplicaciones y divisiones). Esto sirve como una guía rápida sobre la sintaxis esencial del lenguaje antes de trabajar con bases de datos.

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 #tambien se puede hacer con ** 
potencia
## [1] 9

Funciones matemáticas

raiz_cuadrada <- sqrt(x) 
raiz_cuadrada
## [1] 1.732051
raiz_cubica <- x^(1/3) 
raiz_cubica
## [1] 1.44225
exponencial <- exp (1)
exponencial
## [1] 2.718282
absoluto <- abs(x) 
absoluto
## [1] 3
signo <- sign(-3)
signo 
## [1] -1
redondeo_arriba <- ceiling(division)
redondeo_arriba
## [1] 2
redondeo_abajo <- floor(division)
redondeo_abajo
## [1] 1
truncar<- trunc(division)
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) #juntarlos
a
## [1] 1 2 3 4 5
b<- c(1:100) #secuencia de enteros
b
##   [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18
##  [19]  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36
##  [37]  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54
##  [55]  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72
##  [73]  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
##  [91]  91  92  93  94  95  96  97  98  99 100
c<- seq(2,5, by= 0.5) #secuencia especifica
c
## [1] 2.0 2.5 3.0 3.5 4.0 4.5 5.0
d<- rep (1:2, times=3) #Repetir vector
d
## [1] 1 2 1 2 1 2
e<- rep(1:2, each=3) #repetir elementos 
e 
## [1] 1 1 1 2 2 2
f<- c("pera", "manzana", "kiwi", "fresa")
f
## [1] "pera"    "manzana" "kiwi"    "fresa"
longitud <- length(f)
longitud
## [1] 4
promedio<- mean(a)
promedio
## [1] 3
rango <- max(a)-min(a)
rango 
## [1] 4
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_descendiente <- sort(a,decreasing = TRUE)
orden_descendiente
## [1] 5 4 3 2 1
g<- c(1,2,3,4,5)

suma_vectores <- a+g
suma_vectores
## [1]  2  4  6  8 10

Tipos de datos

  • Tipos de datos
  • Caracter: palabras, van siempre entre ““.
  • Numericos: numeros.
  • Logicos: TRUE, FALSE
  • Factores : niveles preestablecidos ‘1’ ‘0’
  • Para convertir Ej: as.numeric

Graficar

plot (a,g, main="Ventas x mes", xlab= "Mes", ylab ="M de USD")

Operadores racionales

  • Igual a==b
  • Desigual a!=b
  • Mayor que a>b
  • Menor a<b
  • Mayor o igual que a>=b
  • Menor o igual que a<=b

Condicionales

calificacion <- 71

 if (calificacion >= 70) {
   print("Pasa")
 }  else {
   print ("no pasa")
 } 
## [1] "Pasa"
# Tabla 
tabla <- data.frame(a,g)
tabla
##   a g
## 1 1 1
## 2 2 2
## 3 3 3
## 4 4 4
## 5 5 5

Ejercicio 1

  • Registra el nombre, peso, altura de alumnos, además de calcular su IMC y asignar su categoria.
nombre <- c("gabo","fede","mayte", "danara")
peso <- c(65,63,55,53)
altura <- c(1.76, 1.75, 1.69, 1.63)
df <- data.frame(nombre,peso,altura)

df$IMC <- peso/(altura**2)

df$categoria <- ifelse(df$IMC < 18.5, "Bajo peso",
                       ifelse(df$IMC < 25, "Peso normal",
                              ifelse(df$IMC < 30, "Sobrepeso", 
                                     ifelese(df$IMC < 35, "Obesidad Grado 1", "Obesidad Extrema"))))

df
##   nombre peso altura      IMC   categoria
## 1   gabo   65   1.76 20.98399 Peso normal
## 2   fede   63   1.75 20.57143 Peso normal
## 3  mayte   55   1.69 19.25703 Peso normal
## 4 danara   53   1.63 19.94806 Peso normal
LS0tCnRpdGxlOiAiQ29tYW5kb3MgQmFzaWNvcyIKYXV0aG9yOiAiTWF5dGUgQXZhbG9zIEd1enVtYW4iCmRhdGU6ICJgciBTeXMuRGF0ZSgpYCIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgIHRoZW1lOiBjb3NtbwotLS0KCiFbXShodHRwczovL2NvZGUudmlzdWFsc3R1ZGlvLmNvbS9hc3NldHMvZG9jcy9sYW5ndWFnZXMvci93b3Jrc3BhY2Utdmlld2VyLmdpZikgCgojIDxzcGFuIHN0eWxlPSAiY29sb3I6IGJsdWUiPiBDb250ZXh0byA8L3NwYW4+ClByaW1lcm9zIHBhc29zIGVuICoqUioqIHBhcmEgYXByZW5kZXIgYSBkZWNsYXJhciB2YXJpYWJsZXMsIGNvbnN1bHRhciBzdXMgdmFsb3JlcyB5IHJlYWxpemFyIG9wZXJhY2lvbmVzIG1hdGVtw6F0aWNhcyBiw6FzaWNhcyAoc3VtYXMsIHJlc3RhcywgbXVsdGlwbGljYWNpb25lcyB5IGRpdmlzaW9uZXMpLiBFc3RvIHNpcnZlIGNvbW8gdW5hIGd1w61hIHLDoXBpZGEgc29icmUgbGEgc2ludGF4aXMgZXNlbmNpYWwgZGVsIGxlbmd1YWplIGFudGVzIGRlIHRyYWJhamFyIGNvbiBiYXNlcyBkZSBkYXRvcy4KCiMgPHNwYW4gc3R5bGU9ICJjb2xvcjogYmx1ZSI+IEFzaWduYWNpw7NuIGRlIHZhcmlhYmxlcyA8L3NwYW4+CmBgYHtyfQp4IDwtIDMKeSA8LSAyCmBgYAoKIyA8c3BhbiBzdHlsZT0gImNvbG9yOiBibHVlIj4gSW1wcmVzacOzbiBkZSByZXN1bHRhZG9zIDwvc3Bhbj4KYGBge3J9CngKeQpgYGAKCiMgPHNwYW4gc3R5bGU9ICJjb2xvcjogYmx1ZSI+IE9wZXJhY2lvbmVzIGFyaXRtw6l0aWNhcyA8L3NwYW4+CmBgYHtyfQpzdW1hIDwtIHgreSAKc3VtYSAKCnJlc3RhIDwtIHgteSAKcmVzdGEKCm11bHRpcGxpY2FjaW9uIDwtIHgqeSAKbXVsdGlwbGljYWNpb24KCmRpdmlzaW9uIDwtIHgveSAKZGl2aXNpb24KCmRpdmlzaW9uX2VudGVyYSA8LSB4JS8leQpkaXZpc2lvbl9lbnRlcmEKCnJlc2lkdW8gPC0geCUleSAKcmVzaWR1bwoKcG90ZW5jaWEgPC0geF4yICN0YW1iaWVuIHNlIHB1ZWRlIGhhY2VyIGNvbiAqKiAKcG90ZW5jaWEKYGBgCgojIDxzcGFuIHN0eWxlPSAiY29sb3I6IGJsdWUiPiBGdW5jaW9uZXMgbWF0ZW3DoXRpY2FzIDwvc3Bhbj4KYGBge3J9CnJhaXpfY3VhZHJhZGEgPC0gc3FydCh4KSAKcmFpel9jdWFkcmFkYQoKcmFpel9jdWJpY2EgPC0geF4oMS8zKSAKcmFpel9jdWJpY2EKCmV4cG9uZW5jaWFsIDwtIGV4cCAoMSkKZXhwb25lbmNpYWwKCmFic29sdXRvIDwtIGFicyh4KSAKYWJzb2x1dG8KCnNpZ25vIDwtIHNpZ24oLTMpCnNpZ25vIAoKcmVkb25kZW9fYXJyaWJhIDwtIGNlaWxpbmcoZGl2aXNpb24pCnJlZG9uZGVvX2FycmliYQoKcmVkb25kZW9fYWJham8gPC0gZmxvb3IoZGl2aXNpb24pCnJlZG9uZGVvX2FiYWpvCgp0cnVuY2FyPC0gdHJ1bmMoZGl2aXNpb24pCnRydW5jYXIKYGBgCgojIDxzcGFuIHN0eWxlPSAiY29sb3I6IGJsdWUiPiBDb25zdGFudGVzIDwvc3Bhbj4KYGBge3J9CnBpIApyYWRpbyA8LSA1CgphcmVhX2NpcmN1bG8gPC0gcGkgKnJhZGlvXjIKYXJlYV9jaXJjdWxvCmBgYAoKIyA8c3BhbiBzdHlsZT0gImNvbG9yOiBibHVlIj4gVmVjdG9yZXMgPC9zcGFuPgpgYGB7cn0KYSA8LSBjKDEsMiwzLDQsNSkgI2p1bnRhcmxvcwphCgpiPC0gYygxOjEwMCkgI3NlY3VlbmNpYSBkZSBlbnRlcm9zCmIKCmM8LSBzZXEoMiw1LCBieT0gMC41KSAjc2VjdWVuY2lhIGVzcGVjaWZpY2EKYwoKZDwtIHJlcCAoMToyLCB0aW1lcz0zKSAjUmVwZXRpciB2ZWN0b3IKZAoKZTwtIHJlcCgxOjIsIGVhY2g9MykgI3JlcGV0aXIgZWxlbWVudG9zIAplIAoKZjwtIGMoInBlcmEiLCAibWFuemFuYSIsICJraXdpIiwgImZyZXNhIikKZgoKbG9uZ2l0dWQgPC0gbGVuZ3RoKGYpCmxvbmdpdHVkCgpwcm9tZWRpbzwtIG1lYW4oYSkKcHJvbWVkaW8KCnJhbmdvIDwtIG1heChhKS1taW4oYSkKcmFuZ28gCgpyZXN1bWVuIDwtc3VtbWFyeShhKQpyZXN1bWVuIAoKb3JkZW5fYXNjZW5kZW50ZSA8LSBzb3J0KGEpCm9yZGVuX2FzY2VuZGVudGUKCm9yZGVuX2Rlc2NlbmRpZW50ZSA8LSBzb3J0KGEsZGVjcmVhc2luZyA9IFRSVUUpCm9yZGVuX2Rlc2NlbmRpZW50ZQoKZzwtIGMoMSwyLDMsNCw1KQoKc3VtYV92ZWN0b3JlcyA8LSBhK2cKc3VtYV92ZWN0b3JlcwpgYGAKCiMgPHNwYW4gc3R5bGU9ICJjb2xvcjogYmx1ZSI+IFRpcG9zIGRlIGRhdG9zIDwvc3Bhbj4KKiBUaXBvcyBkZSBkYXRvcyAKKiBDYXJhY3RlcjogcGFsYWJyYXMsIHZhbiBzaWVtcHJlIGVudHJlICIiLiAKKiBOdW1lcmljb3M6IG51bWVyb3MuIAoqIExvZ2ljb3M6IFRSVUUsIEZBTFNFIAoqIEZhY3RvcmVzIDogbml2ZWxlcyBwcmVlc3RhYmxlY2lkb3MgJzEnICcwJwoqIFBhcmEgY29udmVydGlyIEVqOiBhcy5udW1lcmljIAoKIyA8c3BhbiBzdHlsZT0gImNvbG9yOiBibHVlIj4gR3JhZmljYXIgPC9zcGFuPgpgYGB7cn0KcGxvdCAoYSxnLCBtYWluPSJWZW50YXMgeCBtZXMiLCB4bGFiPSAiTWVzIiwgeWxhYiA9Ik0gZGUgVVNEIikKYGBgCgojIDxzcGFuIHN0eWxlPSAiY29sb3I6IGJsdWUiPiBPcGVyYWRvcmVzIHJhY2lvbmFsZXMgPC9zcGFuPgoqIElndWFsIGE9PWIgCiogRGVzaWd1YWwgYSE9YiAKKiBNYXlvciBxdWUgYT5iIAoqIE1lbm9yIGE8YiAKKiBNYXlvciBvIGlndWFsIHF1ZSBhPj1iIAoqIE1lbm9yIG8gaWd1YWwgcXVlIGE8PWIgCgojIDxzcGFuIHN0eWxlPSAiY29sb3I6IGJsdWUiPiBDb25kaWNpb25hbGVzIDwvc3Bhbj4KYGBge3J9CmNhbGlmaWNhY2lvbiA8LSA3MQoKIGlmIChjYWxpZmljYWNpb24gPj0gNzApIHsKICAgcHJpbnQoIlBhc2EiKQogfSAgZWxzZSB7CiAgIHByaW50ICgibm8gcGFzYSIpCiB9IAoKIyBUYWJsYSAKdGFibGEgPC0gZGF0YS5mcmFtZShhLGcpCnRhYmxhCmBgYAoKIyA8c3BhbiBzdHlsZT0gImNvbG9yOiBibHVlIj4gRWplcmNpY2lvIDEgPC9zcGFuPgoqIFJlZ2lzdHJhIGVsIG5vbWJyZSwgcGVzbywgYWx0dXJhIGRlIGFsdW1ub3MsIGFkZW3DoXMgZGUgY2FsY3VsYXIgc3UgKipJTUMqKiB5IGFzaWduYXIgc3UgY2F0ZWdvcmlhLiAKYGBge3J9Cm5vbWJyZSA8LSBjKCJnYWJvIiwiZmVkZSIsIm1heXRlIiwgImRhbmFyYSIpCnBlc28gPC0gYyg2NSw2Myw1NSw1MykKYWx0dXJhIDwtIGMoMS43NiwgMS43NSwgMS42OSwgMS42MykKZGYgPC0gZGF0YS5mcmFtZShub21icmUscGVzbyxhbHR1cmEpCgpkZiRJTUMgPC0gcGVzby8oYWx0dXJhKioyKQoKZGYkY2F0ZWdvcmlhIDwtIGlmZWxzZShkZiRJTUMgPCAxOC41LCAiQmFqbyBwZXNvIiwKICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UoZGYkSU1DIDwgMjUsICJQZXNvIG5vcm1hbCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZShkZiRJTUMgPCAzMCwgIlNvYnJlcGVzbyIsIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbGVzZShkZiRJTUMgPCAzNSwgIk9iZXNpZGFkIEdyYWRvIDEiLCAiT2Jlc2lkYWQgRXh0cmVtYSIpKSkpCgpkZgpgYGAKCgoKCgoKCgo=