# Parentesco de la familia Chávez Rodríguez


# Instalar y cargar kinship2
install.packages("kinship2")
library(kinship2)

# Lista de IDs
id <- c(1, 2, 3, 4, 5, 6)

# NOmbres de los IDs
 names <- c("Carlos Chávez", "Marta Gómez", "Jesús Ch.", "Karla Ch.", 
            "Ana Camila Ch.", “Carlos E. Rodríguez”, “Carlos Javier R.”)
# Sexos (hombre = 1, mujer = 2)
  sex <- c (1, 2, 1, 2, 2, 1,1)
# IDs del padre (0 = desconocido)  
  father <- c (0, 0, 1, 1, 1, 1)

# IDs de la madre ( 0 = desconocido)
  mother <- c (0, 0, 2, 2, 2,2)

  # Sistema de parentesco inicial
  familia <- pedigree(id = id, dadid = father, momid = mother, sex = sex)

  # visualizar el árbol
  plot(familia)

  
  # Árbol con nombres
  plot(familia, id = names)

  # Árbol con nombres y colores (azul = hombre, rosa = mujer)
  plot(familia, id = names, col = c("blue", "pink") [familia$sex])

  # Crear tabla de parentesco
  tabla_parentesco <- data.frame(ID = id, Nombre = names, Padre = father,
                                 Madre = mother, Sexo = ifelse(sex == 1,"Hombre", "Mujer"))

  # Mostrar la tabla en la consola
  print(tabla_parentesco)
  
  # Abrir la tabla en ventana interactiva
  View(tabla_parentesco)

# Ajustar el tamaño del árbol
  plot(familia, id = names, cex = 0.8, col = c ("blue", "pink")[familia$sex])

  # Edades correspondientes
  ages <- c (67, 62, 40, 38, 6, 37)

  # Crear etiquetas combinadas (nombres y edes)
labels <- paste(names, "\n(", ages, "años)", sep="")

# visualizar con mas detalles
plot(familia, id = labels, cex = 0.6, col = c("blue", "pink")[familia$sex])