File:Sex Linked changes in generations.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file ‎(SVG file, nominally 546 × 344 pixels, file size: 63 KB)

Captions

Captions

Changes in gene frequencies in males and females when starting gene frequencies are different.

Summary

[edit]
Description
English: This is a representation when females with a gene frequency of 1 and males with a gene frequency of 0 are mixed. The gene frequencies in males and females tend to be similar through generations. In each following generation, males have the gene frequency of females of previous generation and females have the average frequencies of males and females of the previous generation.
Español: Esta gráfica representa cuando se unden una población de hembras con frecuencia génica de 1 y machos con frecuencia génica de 0. Las hembras en las siguientes generaciones tendrán la frecuencia promedio de machos y hembras de la generación anterior y los machos tendrán la frecuencia de las hembras de la generación anterior. A lo largo de las generaciones, las frecuencias en machos y hembras tenderá a ser igual.

R code

library(tidyverse)
N <- 10
ph <- 1
pm <- 0
i <- 2

for (i in 2:10) {
  ph[i]=1/2*(pm[i-1]+ph[i-1])
   pm[i]=ph[i-1]
  i <- i+1
}

datos <- data.frame(Generaciones=seq(1:10),Hembras = ph,Machos = pm)  
datos <- gather(datos,key= "Sexo",value="Frecuencia",2:3)
scaleFUN <- function(x) sprintf("%.2f", x)
gráfica <- ggplot(datos, aes(Generaciones, Frecuencia, group = Sexo, colour = Sexo))
gráfica + geom_line(aes(group = Sexo)) + 
  geom_hline(yintercept=2/3, color = "gray") +
  scale_y_continuous(breaks=c(seq(0,1,0.25), 2/3),labels=scaleFUN) +
  scale_x_continuous(breaks=seq(0,10,1)) + 
  ggtitle("Cambios en frecuencias a lo largo\n de generaciones para genes ligados al sexo") +
  theme(plot.title = element_text(face = "bold", hjust = 0.5))
Date
Source Own work
Author Sergio Melgar

Licensing

[edit]
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current14:41, 27 August 2019Thumbnail for version as of 14:41, 27 August 2019546 × 344 (63 KB)Smelgar (talk | contribs)User created page with UploadWizard

You cannot overwrite this file.

There are no pages that use this file.

Metadata

This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Sex_Linked_changes_in_generations.svg&oldid=702817248"