File:Number of prokaryotic genomes and sequencing costs.svg
Une page de Wikimedia Commons, la médiathèque libre.
Aller à la navigation
Aller à la recherche
- Fichier
- Historique du fichier
- Utilisations locales du fichier
- Utilisations du fichier sur d’autres wikis
- Métadonnées
![File:Number of prokaryotic genomes and sequencing costs.svg](https://upload.wikimedia.org/wikipedia/commons/thumb/7/73/Number_of_prokaryotic_genomes_and_sequencing_costs.svg/800px-Number_of_prokaryotic_genomes_and_sequencing_costs.svg.png?20121221050421)
Taille de cet aperçu PNG pour ce fichier SVG : 800 × 533 pixels. Autres résolutions : 320 × 213 pixels | 640 × 427 pixels | 1 024 × 683 pixels | 1 280 × 853 pixels | 2 560 × 1 707 pixels | 1 350 × 900 pixels.
Fichier d’origine (Fichier SVG, nominalement de 1 350 × 900 pixels, taille : 145 kio)
Informations sur le fichier
Données structurées
Légendes
Légendes
Ajoutez en une ligne la description de ce que représente ce fichier
Description
[modifier]DescriptionNumber of prokaryotic genomes and sequencing costs.svg |
English: Plot of the total number of prokaryotic genomes submitted to Genbank as a function of time. Based on data from genome reports and genome.gov. Subfigures: (A) Exponential growth of genome sequence databases since 1995. (B) The cost in US Dollars (USD) to sequence one million bases. (C) The cost in USD to sequence a 3,000 Mb (human-sized) genome on a log10 transformed scale. |
Date | |
Source | Travail personnel |
Auteur | Estevezj |
Autres versions |
Ce fichier est dérivé de : Bacterial and archeal genome sequences submitted to Genbank.svg: ![]() |
SVG information InfoField | ![]() Ce fichier SVG utilise du texte encapsulé qui peut être traduit facilement à l'aide d'un éditeur de texte. |
Code source InfoField | R code# Download our tables from NCBI's FTP site. Accessed 14:30PST, 18 December 2012
prok <- read.table("ftp://ftp.ncbi.nlm.nih.gov/genomes/GENOME_REPORTS/prokaryotes.txt", sep="\t", comment.char="!", header=T)
# Pull release dates, while dropping rows lacking a release date.
prok <- as.Date(prok$Release.Date[prok$Release.Date != '-'],format="%Y/%m/%d")
# Bin our dates by month and year, tabulate, and save to a dataframe.
prok.cut <- as.data.frame(
table(
as.Date(
cut(prok, "month")
)
)
)
# Correct our column titles, calculate a running total, and reconvert from factor to date
colnames(prok.cut) <- c("Date", "Total")
prok.cut$Total <- cumsum(prok.cut$Total)
prok.cut$Date <- as.Date(prok.cut$Date)
# DNA Sequencing Costs from NHGRI: http://www.genome.gov/sequencingcosts/
# Data from http://www.genome.gov/pages/der/sequencing_cost.pptx
# After munging the pptx, download the tables from pastebin. Accessed 12:42PST, 2012-12-20
seq.cost <- read.table("http://pastebin.com/raw.php?i=NA6c4i70", header=TRUE)
# Format the date.
seq.cost$Date <- as.Date(seq.cost$Date,format="%m-%d-%Y")
# Draw our plots
library("ggplot2")
library("grid")
library("scales")
(p <- ggplot(prok.cut, aes(Date, Total)) + geom_area() + ggtitle("Bacterial and archeal genome sequences submitted to Genbank") + xlab('Time') + ylab("Total number of genomes")
)
(mb <- ggplot(seq.cost, aes(Date, USD.per.Mb)) + geom_point(colour = "blue") +
stat_smooth(color="#984EA3")+
ggtitle("Cost to sequence one million nucleotides") +
xlab('Time') +
ylab("USD per MB") +
scale_y_continuous(labels = dollar)
)
(genome <- ggplot(seq.cost, aes(Date, USD.per.Genome)) + geom_point(colour = "red") +
stat_smooth(method='lm',color="#FC8D62")+
ggtitle("Cost to sequence one human genome") +
xlab('Time') +
ylab("USD per genome") +
scale_y_log10(labels = dollar)
)
# This part is based on Hadley's Ggplot2 book (doi:10.1007/978-0-387-98141-3_8)
# Save our plot to SVG
library(grDevices)
svg(filename='ncbi-genomes.svg', width = 15, height = 10)
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
vplayout <- function(x, y)
viewport(layout.pos.row = x, layout.pos.col = y)
print(p, vp = vplayout(1, 1:2))
print(mb, vp = vplayout(2, 1))
print(genome, vp = vplayout(2, 2))
dev.off()
|
Conditions d’utilisation
[modifier]Moi, en tant que détenteur des droits d’auteur sur cette œuvre, je la publie sous les licences suivantes :
![w:fr:Creative Commons](https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/CC_some_rights_reserved.svg/90px-CC_some_rights_reserved.svg.png)
![paternité](https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Cc-by_new_white.svg/24px-Cc-by_new_white.svg.png)
![partage à l’identique](https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/Cc-sa_white.svg/24px-Cc-sa_white.svg.png)
Ce fichier est disponible selon les termes de la licence Creative Commons Attribution – Partage dans les Mêmes Conditions 3.0 (non transposée).
- Vous êtes libre :
- de partager – de copier, distribuer et transmettre cette œuvre
- d’adapter – de modifier cette œuvre
- Sous les conditions suivantes :
- paternité – Vous devez donner les informations appropriées concernant l'auteur, fournir un lien vers la licence et indiquer si des modifications ont été faites. Vous pouvez faire cela par tout moyen raisonnable, mais en aucune façon suggérant que l’auteur vous soutient ou approuve l’utilisation que vous en faites.
- partage à l’identique – Si vous modifiez, transformez, ou vous basez sur cette œuvre, vous devez distribuer votre contribution sous la même licence ou une licence compatible avec celle de l’original.
![]() |
Vous avez la permission de copier, distribuer et modifier ce document selon les termes de la GNU Free Documentation License version 1.2 ou toute version ultérieure publiée par la Free Software Foundation, sans sections inaltérables, sans texte de première page de couverture et sans texte de dernière page de couverture. Un exemplaire de la licence est inclus dans la section intitulée GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
Vous pouvez choisir l’une de ces licences.
Historique du fichier
Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.
Date et heure | Vignette | Dimensions | Utilisateur | Commentaire | |
---|---|---|---|---|---|
actuel | 21 décembre 2012 à 05:04 | ![]() | 1 350 × 900 (145 kio) | Estevezj (d | contributions) | Added subplot labels. |
21 décembre 2012 à 04:50 | ![]() | 1 350 × 900 (107 kio) | Estevezj (d | contributions) | {{Information |Description ={{en|1=Plot of the total number of prokaryotic genomes submitted to Genbank as a function of time. Based on data from [http://www.ncbi.nlm.nih.gov/genome genome reports] and [http://www.genome.gov/sequencingcosts/ genome.... |
Vous ne pouvez pas remplacer ce fichier.
Utilisations locales du fichier
La page suivante utilise ce fichier :
Utilisations du fichier sur d’autres wikis
Les autres wikis suivants utilisent ce fichier :
- Utilisation sur bs.wikipedia.org
- Utilisation sur en.wikipedia.org
- Utilisation sur id.wikipedia.org
- Utilisation sur mk.wikipedia.org
- Utilisation sur sr.wikipedia.org
Métadonnées
Ce fichier contient des informations supplémentaires, probablement ajoutées par l'appareil photo numérique ou le numériseur utilisé pour le créer.
Si le fichier a été modifié depuis son état original, certains détails peuvent ne pas refléter entièrement l'image modifiée.
Largeur | 1080pt |
---|---|
Hauteur | 720pt |