Apuntes de R

Librerías
Instalar librerías:
install.packages("psych")

Cargar librerías:
library(psych)

Ver las librerías cargadas:
search()


Sistema de archivos:
getwd()            #Muestra el directorio actual
setwd("/xxx/xxx")  #Cambia el directorio actual
list.files()       #Muestra contenido del directorio actual
source ("file.R", echo=T) #Ejecuta un script


Datos:
#c() is a function that combines its arguments into a list
data = c(3,3,4,3,3,2)


#Read data into a dataframe called "ratings"
ratings <- read.table("stats.txt", header=T)


#Mostrar las variables en el entorno
ls()


#Explore the contents of the dataframe
class (ratings)     # Returns "data.frame"
names (ratings)     # Returns the names of the columns
head(ratings)       # Muestra 6 primeras filas
tail(ratings)       # Muestra ultimas 5 filas



#Crear una nueva tabla con la condición de que la columna 'cond' contenga el valor "des".
#La nueva tabla no incluye la columna 'cond'
des_group <-subset(data, data$cond=="des", select= -cond)


#Crear una nueva tabla con la condición de que la columna 'cond' No contenga el valor "des".
#La nueva tabla no incluye la columna 'cond'
aer_group <-subset(data, data$cond!="des", select= -cond)


#Crear correlación con las columnas 2,4 y 5:
cor (data[c(2,4,5]))


Histogramas
Ejemplo 1
#Plot histogram
hist (ratings$RedTruck)


Ejemplo 2
#Dibujar histograma de los datos en que la columna 'cond' contiene el valor 'des'.
#Incluye un título con dos lineas de texto.


hist(data$pre.wm.v[data$cond=="des"],
     main="Designed sports training\nPre WM verbal")


Ejemplo 3


hist(fakedata,
  xlab="etiqueta de X",
  ylab="etiqueta de Y",
  main="Titulo")




Layout
Ejemplo 1
# Plot four histograms in one page
layout(matrix(c(1,2,3,4),2,2,byrow=TRUE))
hist(ratings$WoopWoop,xlab="Rating")
hist(ratings$RedTruck,xlab="Rating")
hist(ratings$HobNob,xlab="Rating")
hist(ratings$FourPlay,xlab="Rating")


Ejemplo 2
#layout(matrix(c(1,2,3,4,5,6,7,8),4,2,byrow=TRUE)) # matriz de 2 columnas, 4 filas
layout(matrix(c(1,2,3,4,5,6,7,8),2,4,byrow=TRUE)) # matriz de 4 columnas, 2 filas


O también:
layout(matrix(c(1,2,3,4), nrow = 2, ncol = 2,byrow=TRUE))


Estadísticas
Ejemplo 1
# Get descript statistics
describe (ratings)

Ejemplo 2a

des_group <-subset(data, data$cond=="des", select= -cond)

describe(des_group)

Ejemplo 2b

describe(data[data$cond=="des",])  #Ojo a la coma