32:T66d,intro = md` _These analyses are based on sequences deposited in gisaid-logo

database by numerous contributing labs and agencies._ **Last update: April 27th, 2020**.
Which positions in the [SARS-CoV-2 genome](https://www.ncbi.nlm.nih.gov/nuccore/?term=COVID) **may be** subject to **positive** selection, i.e., involved in adaptation, or **negative** selection, i.e. conserved during evolution? We used several statistical techniques and other sources of information to identify potential candidates using unique genomic sequences ([details](ttps://github.com/veg/SARS-CoV-2)), with permissive thresholds to identify sets of sites that might merit a deeper look. The sites which **we think are the most interesting** are shown at the top. Each site receives _points_ for **six** different categories, coded by icons and explained below, and sites with the most points are ranked higher. Details of what's in the table are below all the images on the page. The table below may take a little while to load, since it combines several "live" sources of data. The image below summarizes all the genomic sites which appear in any of the "interesting" categories detailed below (total # of categories = site score). ` 33:Tb26,summary_table = table( summary.table, { limit: 5000, enableCSVDownload: true, sort: true, enableFilter: false, columns: [ { key: 'prior', name: 'First Detected', render: val => { if (val && val[1]) { if (val[0].length == 0) { return `New`; } else { return date_format_short (date_reader(val[0][0])); } } return 'New'; } }, { key: 'site', name: 'Site' }, { key: 'classification', name: 'Categories', render: val => { let tags = []; if (val.fel) { if (val.kind == "negative") tags.push (''); else tags.push (''); } else { if (val.meme) { tags.push (''); } } if (val.MAF) { tags.push (''); } if (val.trend) { tags.push (''); } if (val.branches > 1) { tags.push (''); } if (val.variants > 0) { tags.push (''); } if (('evo_support' in val) && (val.evo_support == false)) { tags.push (''); } return `${tags.join (' ')}`;} }, { key: 'composition', name: 'Site composition/Evolutionary Credibility', render: val => {return `${val.composition} ${val.variants.length > 0 ? '' : ''} `} }, { key: 'substitutions', name: 'Substitutions at
Internal Branches
[Syn:Non-syn]', render:val => `${d3.format (".2g")(val[0])} : ${d3.format (".2g")(val[1])}` }, /*{ key: 'prime', name: 'Biochemical Property Importance', render: val => `${_.map (val, (d)=> render_property (d))}` }*/ ] } )34:T70f,temporal_evolution_plot = vegalite({ "title" : "Temporal evolution of " + render_site.split (',').slice (0,2).join ("/") + " composition", width : 600, height: 300, data: {values: timing}, transform: [{ "window": [{ "op": "sum", "field": "count", "as": "total_count" }], "groupby": ["sample"], "frame" : [null, null] }, { "calculate": "datum.count/datum.total_count * 100", "as": "PercentOfTotal" }], mark: {type:"line", tooltip: true}, encoding: { x: {field: "sample", type: "temporal", axis: {"title": "Collection Date", titleFontSize : 14}}, "tooltip": [ {"field": "sample", "type": "temporal"}, {"field": "count", "type": "quantitative"}, {"field": "residue", "type": "nominal"} ] }, "layer": [{ "mark": {"type": "bar", "opacity" : 0.5}, "encoding": { "y": {"field": "count", "type": "quantitative", axis: { "title": "#Sequences with residue", "titleFontSize" : 14 }, "scale": { "type": "linear" }}, "color" : { "sort": {"field": "residue"}, "field" : "residue" , "scale": {"scheme": "set1"} } }, }, { "mark": {"type": "line", "interpolate" : "monotone", "strokeWidth" : 3}, "encoding": { "y": {"field": "PercentOfTotal", "type": "quantitative", axis: { "title": "% of total", "titleFontSize" : 14 }, "scale": { "type": "linear" }}, "color" : { "sort": {"field": "residue"}, "field" : "residue" , "scale": {"scheme": "set1"}, //"legend" : null } }, } ], "config": {"axisY": {"minExtent": 30}}, "resolve": {"scale": {"y": "independent"}} })35:T49b,distribution_map = vegalite ( { "width": 800, "height": 400, "title" : "Distribution of " + use_residue + " at " + render_site.split (',').slice (0,2).join ('/'), "data": { "values" : world, "format": { "type": "topojson", "feature": "countries" } }, "transform": [{ "lookup": "id", "default" : "-0.0001", "from": { "data": { "values": subs_count }, "key": "id", "fields": ["rate","name","total","variant"] } }], "projection": { "type": "mercator", "center" : [5,20], "scale": 110, }, "mark": { type : "geoshape", }, "encoding": { "tooltip": [ {"field": "name", "type": "nominal"}, {"field": "variant", "type": "quantitative"}, {"field": "total", "type": "quantitative"}, {"field": "rate", "type": "quantitative"} ], "color": { "condition": { "test": "datum.rate < 0", "value": "#aaa" }, "scale" : { //domain : [0,1] }, "legend" : { "title" : "Residue frequency" }, "field": "rate", "type": "quantitative" } } } )36:Tb86,rendered_tree = { var t = tree.render({ height:height, width:width, 'left-right-spacing': 'fit-to-size', 'top-bottom-spacing': 'fit-to-size', 'is-radial' : false, 'node_circle_size' : (n)=>0 }); const bs = (n) => { if (tree.is_leafnode (n)) { let bits = n.data.name.split ('_'); return Math.sqrt(parseFloat (bits[bits.length-1])); } return 0; }; if ('usebl' in tree) { t.phylotree.branch_length_accessor = n=>tree.usebl[n.data.name]; } var c10 = d3.scaleOrdinal(d3.schemeSet1); t.node_bubble_size = bs; t.phylotree.node_bubble_size = bs; t.options["draw-size-bubbles"] = true; t.font_size = 10; let node_label_set = {}; t.node_label ((n)=> { try { if (node_labels[n.data.name][0] != '-') { node_label_set [node_labels[n.data.name][0]] = 1; } if (tip_names) { return n.data.name + "[" + node_labels[n.data.name][0] + "]"; } return node_labels[n.data.name][0]; } catch {} return ""; }); c10.domain (_.sortBy(_.keys(node_label_set))); function sort_nodes (asc) { tree.traverse_and_compute (function (n) { var d = 1; if (n.children && n.children.length) { d += d3.max (n.children, function (d) { return d["count_depth"];}); } n["count_depth"] = d; }); tree.resort_children (function (a,b) { return (a["count_depth"] - b["count_depth"]) * (asc ? 1 : -1); }); } sort_nodes (true); t.style_edges ((e,d) => { try { if (node_labels[d.target.data.name][0] != '-') { let node_label = node_labels[d.target.data.name][0]; if (node_label) { e.style ('stroke', c10 (node_label)); } } let to_aa = node_labels[d.target.data.name][0]; let from_aa = node_labels[d.source.data.name][0]; let from_codon = node_labels[d.source.data.name][1]; let to_codon = node_labels[d.target.data.name][1]; if (from_codon != to_codon && to_aa != "-") { e.style ('stroke-width' , '5px'); //console.log ([from_aa + "->" + to_aa]); let title = e.selectAll("title").data ([from_codon + "(" + from_aa + ")->" + to_codon + "(" + to_aa + ")"]); title.enter().append("title"); title.text (d=>d); } } catch {} }); t.style_nodes ((n,d) => { try { n.selectAll("title").data ([d.data.name + "(" + node_labels[d.data.name][1] + ")"]).enter().append("title").text (d=>d); } catch {} /*if (tree.is_leafnode (d)) { let ebf = Math.max (1e-3,Math.min (meme_results_json["branch attributes"][indices[0]][d.data.name][site],1000)); n.style ("fill", color_scale(ebf)); }*/ }); t.update(); return t.show(); }37:T14b9,documentation = md`### What's in the selection table? Each row is a position in the SARV-CoV-2 genome, annotated by the gene, its position within that gene, and (if appropriate) peptide product, that was _inferred_ to be evolving **not-neutrally** using [MEME](http://hyphy.org/methods/selection-methods/#meme) and/or [FEL](http://hyphy.org/methods/selection-methods/#fel) methods, restricted only to internal tree branches, **or** carried a high minor allele frequency (MAF > 0.2) among uniue haplotypes. #### First detected The date this site first appeared on the list, or **New**. Note that sites that were detected in the past but are not detected at present are not shown in the table and you can choose to view the table as it appeared on a prior date by selecting it from the pull-down list. #### Categories Each site can _check_ one of the following five categories (the more it checks, the more interesting it is). Note that each site must on the list must be **either** under selection (as determined by MEME/FEL) **or** have an minor allele at frequency of 20% or greater. ##### Selection kind * (Positive Pervasive): on average along interior tree branches, this site has a [dN/dS>1](https://en.wikipedia.org/wiki/Ka%2FKs_ratio) is accumulating non-synonyomous changes (some of which might have a functional impact, but most probably don't) faster relative to synonymous changes than would be expected under [neutral evolution](https://en.wikipedia.org/wiki/Neutral_mutation). * (Positive Episodic): only a fraction of interior tree branches has dN/dS > 1. This pattern is consistent with periods of evolutionary change followed by conservation or neutral evolution. Mouse over to the see the fraction of branches. * (Negative): on average along interior tree branches, this site has a dN/dS<1, meaning that it **conserved**, i.e. non-synonymous changes might be selected against. Note that sites with no changes (i.e. perfectly conserved sites) cannot be detected by dN/dS based methods ##### Multiple selective events If a site belongs to this category, then at least **two** internal branches in the tree are inferred to be subject to positive selection, implying several selective events (not just a single introduction) ##### Increasing allele frequency When a site belongs to this category, alternative amino-acids at this site has an increasing frequency trend (based on applying the [Jonckheere–Terpstra test](https://en.wikipedia.org/wiki/Jonckheere%27s_trend_test) to 10-day intervals) ##### High frequency variants When a site belongs to this category, the fraction of **unique viral hapoltypes in this gene** that carry a minor allele is ≥20%. ##### High frequency variants When a site belongs to this category, there is at least one [deep sequencing dataset](https://covid19.galaxyproject.org/genomics/4-Variation/) that shows the presence of intra-host variation at the same site. ##### Evolutionarily unexpected variants When a site belongs to this category, there is at least one amino-acid present in more than one sequence that was not predicted to occur at this site based on the evolution of **other** betacoronaviruses. It might indicate evolutionary events that we have not observed in similar viruses before. As with any statistical inference, sites may be incorrectly classified, i.e. truly selected sites may be missed, and detected sites may in fact be neutral. #### Composition/Evolutionary Credibility How often does an amino-acid occur in the unique haplotypes and their inferred ancestral sequences (prior to 2020/04/12 updates), or all includes sequences (2020/04/12 and thereafter) ? \`[-]\` is used to denote a deletion (or missing sequence data). If the composition column is labeled with , then there are some deep sequencing samples where **intra-host ** (minor or major) allele variants are present at this position ([details](https://covid19.galaxyproject.org/genomics/4-Variation/)). Hover over this icon to see the SRR numbers and additional information. If there were **mixed bases** in the genome (e.g. AKT which maps to either AGT, coding for S or ATT, coding for I), you may see ambiguous amini-acids recorded in the table and the charts (e.g. SI₁) Evolutionary credibility is computed by determining whether the presence of a given residue is **expected** or **unexpected** based on the imputations under an evolutionary model fitted to an alignment of homologous sequences from betacoronaviruses. The color of the residue (green, yellow, orange, red) indicates what category the residue belongs to. Currently, these calculations are only done for S and some of the ORF1a, but we are working to extend them to the entire genome. `38:T4c8,variation_plot = vegalite({ "title": null, //"title" : {text : "Temporal evolution of genomic variation", fontSize : 20, anchor : "middle"}, //transform: [{"filter" : "datum.gene=='S'"}], width : 200, height: 200, data: {values: variation_data}, "mark": {"type": "line", "interpolate" : "monotone", "strokeWidth" : 3}, encoding: { "facet" : { "field" : "gene" , "type": "ordinal", "columns": 3, "title" : "Gene", "sort": {"field": "gene"} //"scale": {"scheme": "set1"}, }, "x": {field: "date", type: "temporal", axis: {"title": "Analysis date", titleFontSize : 14, grid : false}}, "y": {"field": "fraction", "type": "quantitative", axis: { "title": "Fraction of total sites", "titleFontSize" : 14, "grid" : false }, "scale": { "type": "sqrt" }}, "color" : { "sort": {"field": "kind"}, "field" : "kind" , "type": "nominal", "scale": {"scheme": "set1"}, "legend" : {"title" : "Variable site kind", titleFontSize : 14, labelFontSize: 12, orient : "right"} }, } })39:T52d,dnds_plot = vegalite({ "title": null, //"title" : {text : "Temporal evolution of genomic variation", fontSize : 20, anchor : "middle"}, //transform: [{"filter" : "datum.gene=='S'"}], width : 200, height: 200, data: {values: _.flatten(_.map (all_selection_data, (d,k) => { let gene_selection = []; _.each (d, (r,g)=> { if (("dN/dS" in r) && (g == "S" || g == "ORF1a" || g == "ORF1b")) { gene_selection.push ({ 'date' : d3.timeParse ("%Y%m%d")(k), 'gene' : g, 'omega' : r["dN/dS"]["internal"][0][0] }); } }); return gene_selection; }), true)}, "mark": {"type": "line", "interpolate" : "monotone", "strokeWidth" : 3}, encoding: { "facet" : { "field" : "gene" , "type": "ordinal", "columns": 3, "title" : "Gene", "sort": {"field": "gene"} //"scale": {"scheme": "set1"}, }, "x": {field: "date", type: "temporal", axis: {"title": "Analysis date", titleFontSize : 14, grid : false}}, "y": {"field": "omega", "type": "quantitative", axis: { "title": "dN/dS on internal branches", "titleFontSize" : 14, "grid" : false }, "scale": { "type": "linear" }}, } })3a:T417,resultURLs = ({ "ORF1b":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.ORF1b.json", "ORF1a":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.ORF1a.json", "ORF8":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.ORF8.json", "ORF7a":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.ORF7a.json", "ORF6":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.ORF6.json", "ORF3a":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.ORF3a.json", "M":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.M.json", "N":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.N.json", "S":"https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/20200418/sequences.S.json" })3b:T542,aall_selection_data = { let retrieve = async function asyncCall (use_this_date) { let analysis_results = {}; let genes = ['S','N','M','ORF3a','ORF6','ORF7a','ORF8','ORF1a','ORF1b']; for (var k in genes) { try { analysis_results[genes[k]] = await d3.json ("https://raw.githubusercontent.com/veg/SARS-CoV-2/master/data/fasta/"+use_this_date+"/sequences." + genes[k] + ".json"); if (! ('map' in analysis_results[genes[k]])) { analysis_results[genes[k]]['map'] = _.range (analysis_results[genes[k]].sites); } /*_.each (analysis_results[genes[k]]['selection'], (site)=> { _.each (site["labels"], (info, branch) => { if (info[0].length > 1){ // mixed base //console.log (info[0]); site["labels"][branch][0] = "amb"; } }); });*/ } catch (e) {console.log (e);} } return analysis_results; }; let retrieve_all = async function (dates) { let all_results = {}; for (var k in dates) { all_results[dates[k]] = await retrieve (dates[k]); } return all_results; } let raw_data = retrieve_all(analysis_dates); return raw_data; }3c:T2424,summary = { let prior_dates = []; let support_format = d3.format (".2g"); let tabulate_for_date = (selection_info) => { let T = []; let for_plotting = []; let selectors = []; _.each (selection_info, (record, gene)=> { _.each (record['selection'], (info, site) => { let site_score = 0; let genomic_site = record.map[+site]+1; let ref_coord = _.find (gene_coordinates, (d)=> d[1] == gene)[0] + (genomic_site-1)*3; let prc = for_plotting.length; let plot_record = {'position' : ref_coord, 'gene' : gene, 'site_in_gene' : genomic_site}; ref_coord = "" + ref_coord + "-" + (ref_coord+2) + ""; let peptide_site = _.find (peptide_coordinates, (d)=> (genomic_site >= d[1] && genomic_site <= d[2] && d[3] == gene)); let site_record = { 'site' : gene + " " + genomic_site + (peptide_site ? "
" + peptide_site[0] + " " + (genomic_site - peptide_site[1] + 1) : "") + "
Genomic " + ref_coord, 'classification' : {'fel' : info['fel'] <= record.p , 'meme' : info['meme'] <= record.p, 'fraction' : info['meme-fraction'], 'kind' : info['kind'], 'branches' : info['meme-branches'] }, 'substitutions' : info['substitutions'] }; if (peptide_site) { plot_record['peptide'] = peptide_site[0] + " " + (genomic_site - peptide_site[1] + 1); } if ((site_record['classification']['fel']||site_record['classification']['meme'])) { site_score += 1; if (info['kind'] == "negative") { plot_record.kind = "Negative selection"; for_plotting.push (_.clone(plot_record)); } else { plot_record.kind = "Positive selection"; for_plotting.push (_.clone(plot_record)); } } if (site_record['classification']['branches'] > 1) { site_score++; plot_record.kind = "Multiple Clades"; for_plotting.push (_.clone(plot_record)); } if ('MAF' in record) { if (info.MAF >= record.MAF) { site_record['classification']['MAF'] = info.MAF; site_score++; plot_record.kind = "Common Variant"; for_plotting.push (_.clone(plot_record)); } } if ('trend' in info) { if (info['trend'] >= 3) { site_record['classification']['trend'] = true; site_score++; plot_record.kind = "Increasing frequency"; for_plotting.push (_.clone(plot_record)); } } let composition = _.sortBy(_.map (info['composition'], (v,k) => [k,v]), (d)=>-d[1]); if ('evolutionary_support' in info) { let support_by_residue = {}; _.each (info['evolutionary_support'], (e)=>{ if (! (e.aa in support_by_residue)) { support_by_residue[e.aa] = 0; } support_by_residue[e.aa] += e.support; }); _.each (composition, (d, i) => { if (d[0] in support_by_residue) { d[2] = support_by_residue[d[0]]; } else { d[2] = 0; } }); if (_.every (composition, (d,i)=> (i == 0 || d[2] > 0 || d[1] == 1 || d[0].length > 1))) { site_record['classification']['evo_support'] = true; //site_score++; } else { site_record['classification']['evo_support'] = false; site_score++; plot_record.kind = "Unexpected residues"; for_plotting.push (_.clone(plot_record)); } } let cov_url = "http://cov-glue.cvr.gla.ac.uk/#/project/replacement/"; if (peptide_site) { cov_url += peptide_site[0] + ":" + composition[0][0] + ":" + (genomic_site - peptide_site[1] + 1); } else { cov_url += gene + ":" + composition[0][0] + ":" + genomic_site; } site_record ['composition'] = { 'composition' : _.map (composition, (d,i)=>{ let style_string = ''; let support_text = ''; if (d.length>2 && d[0].length == 1 && d[0] != '-') { if (d[2] > 0.1) { style_string = 'style="color:darkgreen"'; support_text = "Very high evolutionary credibility"; } else { if (d[2] > 0.001) { style_string = 'style="color:#c2a90f"'; support_text = "High evolutionary credibility"; } else { if (d[2] > 0.0) { style_string = 'style="color:#ff8c00"'; support_text = "Medium evolutionary credibility"; } else { style_string = 'style="color:darkred"'; support_text = "Low evolutionary credibility"; } } } } return "" + (d[0] == '-' ? '[-]' : d[0]) + "_{" + d[1] + "}"; } ).join (""), 'variants' : site_record['variants'] = _.filter (intra_host, (d)=>d[0] == gene && d[1] == genomic_site && d[2]<1.0)}; if ('prime' in info) { site_record ['composition']['prime'] = info['prime']; } if (site_record ['composition'].variants.length > 0) { site_record['classification']['variants'] = site_record ['composition'].variants.length; site_score++; plot_record.kind = "Intra-host variants"; for_plotting.push (_.clone(plot_record)); } site_record['score'] = site_score; for (let i = prc; i < for_plotting.length; i++) { for_plotting[i]['score'] = site_score; } site_record['for_plot'] = _.clone(plot_record); site_record['for_plot'].score = site_score; T.push (site_record); selectors.push ([gene, genomic_site, +site+1,site_score]); }); }); return {'table' : _.sortBy (T,(d)=>-d.score), 'selectors' : _.sortBy (selectors,(d)=>-d[3]), 'plot' : for_plotting}; }; let current_data = tabulate_for_date (selection_data[0]); let all_dates_before_this = _.sortBy (_.filter (analysis_dates, (d)=> d < use_date)); if (all_dates_before_this.length > 0) { let prior_summaries = {}; _.each (all_dates_before_this, (d)=>{ prior_summaries[d] = tabulate_for_date (all_selection_data[d]); }); _.each (current_data.table, (row)=>{ let previously_found = []; _.each (prior_summaries, (d,v) => { if (_.find (d.table, (r)=>r.gene == row.gene && r.site == row.site)) { previously_found.push(v); } }); row.prior = [previously_found , all_dates_before_this.length]; if (previously_found.length==0) { let new_flag = row.for_plot; new_flag.kind = "New"; current_data.plot.push (new_flag); } }); } return current_data; }3d:T592,timing = { var raw_timing = selection_data[0][render_site.split (',')[0] ]['selection'][render_site.split (',')[2]-1]['timing']; let time_parser = d3.timeParse ("%Y%m%d"); let rows = []; let do_aggregate = false; _.each (raw_timing, (dates, residue) => { _.each (dates, (count, date_value) => { if (residue != '-') { if (_.isArray (count)) { do_aggregate = true; let row = {'residue' : residue, 'count' : count[3], 'sample' : time_parser (count[0]) }; rows.push (row); } else { let row = {'residue' : residue, 'count' : count, 'sample' : time_parser (date_value) }; rows.push (row); } } }) }); if (do_aggregate) { let by_date = _.groupBy (rows, (d)=>d.sample); let aggregated = []; _.each (by_date, (v,d)=> { _.each (_.groupBy (v, (v)=>v.residue), (counts, r)=> { aggregated.push ({'residue' : r, 'sample' : d, 'count' : d3.sum (counts, (d)=>d.count)}); }); }); return aggregated; } return rows; }3e:T704,subs_count = { let residue = use_residue; let raw_counts = current_site_info["timing"]; const parser = d3.timeParse ("%Y%m%d"); let counts_by_country = {}; const resolved_name = (name)=> { if (name == "England") { name = "United Kingdom"; } let c = _.find (country_equiv, (c)=>(c.name.common == name || c.name.official == name || c.cca3 == name || c.altSpellings.find ((e)=>e==name)!=undefined)); if (c) { return c.name.common; } return "N/A"; }; _.each (_.flatten(_.map (raw_counts, (residue)=>residue)), (d) => { let td = parser (d[0]); if (td >= date_range.range[0] && td <= date_range.range[1]) { const cn = resolved_name (d[1]); if (cn in counts_by_country) { counts_by_country [cn] += d[3]; } else { counts_by_country [cn] = d[3]; } } }); let residue_by_country = {}; _.each (raw_counts[residue],(d) => { let td = parser (d[0]); if (td >= date_range.range[0] && td <= date_range.range[1]) { const cn = resolved_name (d[1]); if (cn in residue_by_country) { residue_by_country [cn] += d[3]; } else { residue_by_country [cn] = d[3]; } } }); let fractions = _.map (counts_by_country, (d,c)=> { let cc = 0; if (c in residue_by_country) { cc = residue_by_country[c]; }; return [c,cc/d,cc,d] }); return _.map (fractions, (d) => { let name = d[0]; let country = _.find (country_equiv, (c)=>(c.name.common == name || c.name.official == name || c.cca3 == name || c.altSpellings.find ((e)=>e==name)!=undefined)); if (country) { return {'id' : country.ccn3, 'name' : name, 'rate' : d[1], 'total' : d[3], 'variant' : d[2]}; } return d; }); }3f:[] 30:{"title":"Natural selection analysis of SARS-CoV-2/COVID-19 - Galaxy Edition","cells":[{"id":0,"value":"md`# Natural selection analysis of SARS-CoV-2/COVID-19 - Galaxy Edition`","pinned":false,"hidden":false,"mode":"ojs"},{"id":55,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":1684,"value":"genome_view = vegalite ({\n \"$schema\": \"https://vega.github.io/schema/vega-lite/v4.json\",\n \"width\": 750,\n \"height\" : 125,\n \"data\" : {\"values\" : summary.plot},\n \"encoding\": {\n \"y\": {\n \"field\": \"kind\",\n \"type\": \"nominal\",\n \"sort\": null,\n \"axis\": {\n \"domain\": false,\n \"offset\": 10,\n \"labelFontWeight\": \"bold\",\n \"ticks\": false,\n \"grid\": true,\n \"title\": null\n }\n }\n },\n \"config\": {\n \"tick\": {\n \"thickness\": 1.5,\n \"bandSize\": 16\n }\n },\n \"view\": {\"stroke\": null},\n \"layer\": [\n {\n \"mark\": {type: \"tick\",\"tooltip\": {\"content\": \"data\"}},\n \"encoding\": {\n \"x\": {\n \"field\": \"position\",\n \"type\": \"quantitative\",\n \"axis\": {\"title\": \"Genomic Coordinate\"}\n },\n \"color\": {\"field\": \"score\", \"type\" : \"nominal\", \"scale\": {\"scheme\": \"purples\"}, \"title\" : \"Site Score\"},\n }\n }\n ]\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":910,"value":"viewof use_date = {\n const dd3 = select({\n title: \"View using data from\",\n options:\n analysis_dates\n });\n dd3.input.style.fontSize = \"30px\";\n dd3.input.style.marginTop = \"8px\";\n return dd3;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":276,"value":"$33","pinned":false,"hidden":false,"mode":"ojs"},{"id":1384,"value":"md`----\n### Temporal and geographic site trends\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":348,"value":"viewof render_site = {\n const dd3 = select({\n title: \"View annotated tree and time-series for a site\",\n options:\n _.map (summary.selectors, (d)=>{return {'label' : d[0] + \"/\" + d[1], \"value\" : d}})\n });\n dd3.input.style.fontSize = \"30px\";\n dd3.input.style.marginTop = \"8px\";\n return dd3;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":692,"value":"$34","pinned":false,"hidden":false,"mode":"ojs"},{"id":1368,"value":"viewof use_residue = {\n const dd3 = select({\n title: \"Residue to view on map\",\n options:\n available_residues\n });\n dd3.input.style.fontSize = \"30px\";\n dd3.input.style.marginTop = \"8px\";\n return dd3;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1391,"value":"md`Select a date range on the sample count histogram below to restrict the data that the map is built on`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1378,"value":"viewof date_range = rangeSlider(sample_count, d=>d.date)","pinned":false,"hidden":false,"mode":"ojs"},{"id":1388,"value":"$35","pinned":false,"hidden":false,"mode":"ojs"},{"id":1381,"value":"md`---- \n### Tree view`","pinned":false,"hidden":false,"mode":"ojs"},{"id":397,"value":"viewof width = slider({\n min: 100, \n max: 4000,\n value: 800,\n step: 10, \n format: \"d\",\n description: \"Tree image width\"\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":401,"value":"viewof height = slider({\n min: 100, \n max: 10000,\n value: 2500,\n step: 10, \n format: \"d\",\n description: \"Tree image height\"\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":612,"value":"viewof tip_names = checkbox({\n options: [{ value: \"off\", label: \"Show sequence names\" }],\n value: \"toggle\",\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":540,"value":"tree_howto = md`\n* Area of the bubble: how many isolates have this gene sequence (only unique sequences were used for this analysis)\n* Branches with _codon_ changes (synonymous or non-synonymous) are drawn with thicker lines; hover over the branch to see the substitution. \n* Branches are colored by the amino-acid at the end of the branch\n* Hover over the leaf to see representative sequence ID and codon.\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":378,"value":"$36","pinned":false,"hidden":false,"mode":"ojs"},{"id":1503,"value":"$37","pinned":false,"hidden":false,"mode":"ojs"},{"id":1137,"value":"md`--- \n### How does the number of variable positions in individual genes/ORFs change as we collect more data?`","pinned":false,"hidden":false,"mode":"ojs"},{"id":1071,"value":"$38","pinned":false,"hidden":false,"mode":"ojs"},{"id":1511,"value":"$39","pinned":false,"hidden":false,"mode":"ojs"},{"id":5,"value":"md`----\n### Data`","pinned":false,"hidden":false,"mode":"ojs"},{"id":198,"value":"date_format = d3.timeFormat (\"%Y-%m-%d\") ","pinned":false,"hidden":false,"mode":"ojs"},{"id":1039,"value":"date_format_short = d3.timeFormat (\"%d %b\") ","pinned":false,"hidden":false,"mode":"ojs"},{"id":1031,"value":"date_reader = d3.timeParse (\"%Y%m%d\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":1786,"value":"$3a","pinned":false,"hidden":false,"mode":"ojs"},{"id":1836,"value":"analysis_date = \"20200418\";","pinned":false,"hidden":false,"mode":"ojs"},{"id":1797,"value":"all_selection_data = Promise.all(_.map(resultURLs, url => d3.json(url)))\n .then(\n function success(allData) {\n let item = {}\n item[analysis_date] = _.zipObject(_.keys(resultURLs), allData);\n return item\n },\n function error(e) {\n throw e;\n }\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":26,"value":"$3b","pinned":false,"hidden":false,"mode":"ojs"},{"id":978,"value":"selection_data = [all_selection_data[use_date]]","pinned":false,"hidden":false,"mode":"ojs"},{"id":960,"value":"analysis_dates = [\"20200427\",\"20200421\", \"20200418\",\"20200415\", \"20200414\",\"20200412\",\"20200410\",\"20200408\", \"20200404\",\"20200403\", \"20200330\",\"20200325\"];","pinned":false,"hidden":false,"mode":"ojs"},{"id":241,"value":"$3c","pinned":false,"hidden":false,"mode":"ojs"},{"id":122,"value":"N_cutoff = 10","pinned":false,"hidden":false,"mode":"ojs"},{"id":367,"value":"tree = {\n var t = new phylotree.phylotree(selection_data[0][render_site.split (',')[0]]['tree']);\n if ('bl' in selection_data[0][render_site.split (',')[0]]) {\n t.usebl = selection_data[0][render_site.split (',')[0]]['bl'];\n }\n return t;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":458,"value":"node_labels = selection_data[0][render_site.split (',')[0]\n ]['selection'][render_site.split (',')[2]-1]['labels'];","pinned":false,"hidden":false,"mode":"ojs"},{"id":676,"value":"$3d","pinned":false,"hidden":false,"mode":"ojs"},{"id":727,"value":"intra_host = {\n let raw_variants = await d3.tsv (\"https://raw.githubusercontent.com/galaxyproject/SARS-CoV-2/master/genomics/4-Variation/variant_list.05.tsv\", d3.autoType);\n /*\n 0: Object {\n Sample: \"SRR10903401\"\n CHROM: \"NC_045512\"\n POS: 1821\n REF: \"G\"\n ALT: \"A\"\n DP: 93\n AF: 0.096774\n SB: 0\n DP4: \"48,36,5,4\"\n EFF[*].IMPACT: \"MODERATE\"\n EFF[*].FUNCLASS: \"MISSENSE\"\n EFF[*].EFFECT: \"NON_SYNONYMOUS_CODING\"\n EFF[*].GENE: \"orf1ab\"\n EFF[*].CODON: \"gGt/gAt\"*/\n return _.map (_.filter (raw_variants, (v)=>v.POS >= gene_coordinates[0][0] && v.Sample != 'SRR11494664'), (v)=> {\n let gene = _.find (gene_coordinates, (d,i)=> i == gene_coordinates.length -1 || gene_coordinates[i][0] <= v.POS && gene_coordinates[i+1][0] > v.POS);\n \n let offset = 0;\n if (gene[1] == \"ORF1b\") {\n offset = 3; \n }\n return [gene[1], Math.floor((v.POS-gene[0]+offset+1)/3),v.AF,v.POS,v[\"CODON\"], v['EFFECT'], v['Sample']];\n });\n \n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":730,"value":"gene_coordinates = [\n [266,'ORF1a'],\n [13471, 'ORF1b'],\n [21563,'S'],\n [25393,'ORF3a'],\n [26523,'M'],\n [27202,'ORF6'],\n [27394,'ORF7a'],\n [27756,'ORF7b'],\n [27894,'ORF8'],\n [28274,'N'],\n [29558,'ORF10']\n]","pinned":false,"hidden":false,"mode":"ojs"},{"id":1148,"value":"variation_data = {\n let variation_records = [];\n _.each (all_selection_data, (gene_info, date) => {\n let parsed_date = date_reader (date);\n _.each (gene_info, (fields, gene) => {\n variation_records.push ({'date' : parsed_date, 'gene' : gene, 'kind' : 'any', 'fraction' : fields['any variation'] / fields['sites'], 'seqs' : fields['total sequences']});\n variation_records.push ({'date' : parsed_date, 'gene' : gene, 'kind' : '≥2x', 'fraction' : fields['all variant sites'].length / fields['sites']});\n variation_records.push ({'date' : parsed_date, 'gene' : gene, 'kind' : '≥2x amino-acid', 'fraction' : fields['aminoacid variant sites'].length / fields['sites']});\n variation_records.push ({'date' : parsed_date, 'gene' : gene, 'kind' : 'Putatively Selected', 'fraction' : _.size(fields['selection']) / fields['sites']});\n });\n \n });\n return variation_records;\n}\n\n","pinned":false,"hidden":false,"mode":"ojs"},{"id":1168,"value":"peptide_coordinates = {\n let absolute_coordinates = [\n // 1 based; name; from; to; parent ORF\n ['leader protein', 266, 805, 'ORF1a'],\n ['nsp2', 806, 2719, 'ORF1a'],\n ['nsp3', 2720, 8554, 'ORF1a'],\n ['nsp4', 8555, 10054, 'ORF1a'],\n ['3C-like proteinase', 10055, 10972,'ORF1a'],\n ['nsp6', 10973, 11842, 'ORF1a'],\n ['nsp7', 11843, 12091, 'ORF1a'],\n ['nsp8', 12092, 12685, 'ORF1a'],\n ['nsp9', 12686, 13024, 'ORF1a'],\n ['nsp10', 13025, 13441, 'ORF1a'],\n ['RdRp', 13441, 16236, 'ORF1b'],\n ['helicase', 16237, 18039, 'ORF1b'],\n [\"3'-to-5' exonuclease\",18040, 19620, 'ORF1b'],\n ['endoRNAse', 19621, 20658, 'ORF1b'],\n [\"2'-O-ribose methyltransferase\", 20659, 21552, 'ORF1b'],\n \n ];\n return _.map (absolute_coordinates, (d)=> d[3] == 'ORF1a' ? [d[0], (d[1]-266)/3 + 1, (d[2]-265)/3, d[3]] : [d[0], (d[1]-13468)/3, (d[2]-13467)/3-1, d[3]])\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":1341,"value":"world = d3.json(\"https://unpkg.com/world-atlas@1/world/110m.json\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":1345,"value":"country_codes = d3.json(\"https://raw.githubusercontent.com/lukes/ISO-3166-Countries-with-Regional-Codes/master/slim-3/slim-3.json\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":1348,"value":"country_equiv = d3.json (\"https://raw.githubusercontent.com/mledoze/countries/master/dist/countries.json\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":1355,"value":"current_site_info = selection_data[0][render_site.split (',')[0]\n ]['selection'][render_site.split (',')[2]-1]","pinned":false,"hidden":false,"mode":"ojs"},{"id":1373,"value":"$3e","pinned":false,"hidden":false,"mode":"ojs"},{"id":1351,"value":"available_residues = _.map (_.sortBy (_.map (current_site_info[\"timing\"], (d,v)=>[v,current_site_info.composition[v]]), d=>-d[1]), d=>d[0])","pinned":false,"hidden":false,"mode":"ojs"},{"id":1366,"value":"sample_count = {\n let raw_counts = current_site_info[\"timing\"];\n let residue_by_date = [];\n const parser = d3.timeParse (\"%Y%m%d\");\n _.each (raw_counts[use_residue],(d) => {\n let td = parser(d[0]);\n residue_by_date.push ({'date' : td});\n });\n return residue_by_date;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":10,"value":"md`### Dependencies`","pinned":false,"hidden":false,"mode":"ojs"},{"id":17,"value":"d3=require(\"d3\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":20,"value":"_ = require('lodash')","pinned":false,"hidden":false,"mode":"ojs"},{"id":22,"value":"vegalite = require(\"vega-embed@6\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":227,"value":"import { table } from \"@gampleman/table\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":314,"value":"render_property = (value) => {\n let tag = value[0].split (' ');\n if (tag.length > 2) {\n tag = tag.slice (2).join (' ');\n } else {\n tag = value[0]; \n }\n if (value[2] > 0) {\n return '' + tag + '';\n } \n if (value[2] < 0) {\n return '' + tag + '';\n } \n return tag;\n }","pinned":false,"hidden":false,"mode":"ojs"},{"id":334,"value":"import {select, slider, checkbox} from \"@jashkenas/inputs\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":360,"value":"resolve(\"phylotree@0.1/phylotree.css\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":364,"value":"phylotree=require (\"phylotree@1.0.0-alpha.26\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":1375,"value":"import {rangeSlider} from \"@bumbeishvili/utils\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":1593,"value":"md`#### CSS`","pinned":false,"hidden":false,"mode":"ojs"},{"id":310,"value":"html``","pinned":false,"hidden":false,"mode":"ojs"},{"id":1591,"value":"stylesheet = html``","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W3f","stdlib":"1","titling":"auto"}