Tutorial sobre la comparación de vectores y operaciones de lógica en R.

Puedes seguir el tutorial por vídeo en https://youtu.be/CUSpBbp5S8U

Los principales símbolos para comparar son >,>=,<,<=,==,!=

araña = c(2,1,5,3,4,9,9,7,5,5,4,7,5,6,3,1,4,7,1,2) 
araña == 2 # Decimos a R que nos diga de todas las muestras, cuales tienen dos arañas y cuales no.
##  [1]  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
## [12] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE
which (araña==2) # ¿Qué muestras tienen 2 arañas?
## [1]  1 20
mean(araña)
## [1] 4.5
which (araña>=(mean(araña))) # ¿Qué muestras están por encima de la media? POSICIONES
##  [1]  3  6  7  8  9 10 12 13 14 18
mayor.media = which (araña>=(mean(araña))) 
araña[mayor.media] # VALORES
##  [1] 5 9 9 7 5 5 7 5 6 7
sum (araña>=(mean(araña))) # ¿Cuántas muestras están por encima de la media?
## [1] 10

Los símbolos para valores logicos son “&” (ampersand ) y, “|” (pipe) o, “!” no

My2yMn6 = which(araña>2 & araña<6) # ¿Qué muestras tienen más de 2 arañas, pero menos que 6?
My2yMn6
## [1]  3  4  5  9 10 11 13 15 17
araña[My2yMn6]
## [1] 5 3 4 5 5 4 5 3 4
Mn2oMy6 = which(araña<2 | araña>6) # ¿Qué muestras tienen menos que 2 o más de 6 arañas?
Mn2oMy6
## [1]  2  6  7  8 12 16 18 19
araña[Mn2oMy6]
## [1] 1 9 9 7 7 1 7 1
MyIg5noMy8 = which(araña>=5 &! araña>8)
MyIg5noMy8
## [1]  3  8  9 10 12 13 14 18
araña[MyIg5noMy8]
## [1] 5 7 5 5 7 5 6 7

Si al cabo de un rato trabajando vemos en nuestras notas que la muestra 9 tenía 6 arañas aunque al escribirlo en el cuaderno de campo el número se podía confundir con un 5 y te entra la duda de si lo has introducido bien.

araña[9]   # Podemos preguntar a R cual es el noveno componente del objeto/vector "araña".
## [1] 5
araña[9]=6 # Reemplazamos el valor de la novena muestra. Ahora es 6. No es necesario introducir
        # todos los datos nuevamente.
araña[9]   # Lo comprobamos
## [1] 6
araña[21]   # Al preguntar por el vigésimo primero, la consola nos muestra NA "Not Avaliable",
## [1] NA
# es decir, que no está disponible o no existe.

araña[21] = 8 # Introducimos el número 8 en la vigésimo primera posición del vector.
araña # Lo comprobamos
##  [1] 2 1 5 3 4 9 9 7 6 5 4 7 5 6 3 1 4 7 1 2 8

No es necesario volver a escribir todos los comandos, nos vamos a la línea 14 y corremos de nuevo el script.

pulgon=c(5,9,6,2,4,7,8,2,1,7,6)

comment(araña) = "Muestras de araña de la finca de Juan"
comment(pulgon) = "Muestras de pulgón de la finca de Luis"
comment(araña)
## [1] "Muestras de araña de la finca de Juan"
comment(pulgon)
## [1] "Muestras de pulgón de la finca de Luis"