31:T433,chrt.Chrt() .margins({ left: 240, bottom: 25, top: 20 }) .size(width-100,720) .x([10, 20000],null,{scale:'log'}) .y(null,null,{scale:'ordinal'}) .add(chrt.verticalGrid().color('#ddd')) .add( chrt.chrtBars() .data(sortedData.slice(0,29).sort((a,b) => a['Maximum longevity (yrs)'] - b['Maximum longevity (yrs)']), (d,i) => ({ x: d['Maximum longevity (yrs)'], y: d['Common name'], })) .width(0.8) .fill(d => d.y === 'Human' ? '#333' : '#a0091daa') .add(chrt.chrtLabels().value(d => new Intl.NumberFormat().format(+d['Maximum longevity (yrs)'])).align('right').valign('middle').class('labels').offsets(0, -5)) ) .add( chrt.yAxis().hideTicks().hideAxis() ) .add( chrt.xAxis().hideAxis().format((d,i,arr) => { return `${new Intl.NumberFormat().format(d)}${i===arr.length-1 ? ' years' : ''}`; }) ) .add( chrt.xAxis().hideAxis().orient('top').format((d,i,arr) => { return `${new Intl.NumberFormat().format(d)}${i===arr.length-1 ? ' years' : ''}`; }) ) .node()32:T5a2,chrt.Chrt() .size(width-100,720) .margins({left:120,right: 0, bottom: 30}) .padding({right: 130}) .y(null,null,{scale:'ordinal'}) .x([0,null],null,{scale:'linear'}) .add( chrt.horizontalGrid().color('#eee') ) .add( chrt.chrtPoints() .data(sortedData .filter(d => d.Class === 'Mammalia') .sort((a,b) => +mammalia[a.Order][0]['Maximum longevity (yrs)'] - +mammalia[b.Order][0]['Maximum longevity (yrs)']) , d=> ({ y: d['Order'].replace(/\'/gi,''), x: d['Maximum longevity (yrs)'], })) .color('#a0091d') .stroke(d => mammalia[d.Order][0].HAGRID === d.HAGRID ? '#333' : '#a0091d') .strokeWidth(1) .opacity(0.05) .strokeOpacity(d => mammalia[d.Order][0].HAGRID === d.HAGRID ? 1 : 0.2) .radius(3) .add( chrt.chrtLabels() .class('mammals-labels') .value(d => `${d['Maximum longevity (yrs)']} - ${d['Common name']}`) .filter(d => mammalia[d.Order][0].HAGRID === d.HAGRID) .align('left') .valign('middle') .offset(0,10) ) ) .add( chrt.yAxis().hideAxis().hideTicks() ) .add( chrt.xAxis(5).hideAxis() //.add(chrt.chrtAxisTitle('Maximum longevity →').valign('top').offset({y:0})) .format((d,i,arr) => { return `${new Intl.NumberFormat().format(d)}${i===arr.length-1 ? ' years' : ''}`; }) ) .node()33:T58a,chrt.Chrt() .size(width-100,720) .margins({left:140,right: 0, bottom: 30}) .padding({right: 130}) .y(null,null,{scale:'ordinal'}) .x([0,null],null,{scale:'linear'}) .add( chrt.horizontalGrid().color('#eee') ) .add( chrt.chrtPoints() .data(sortedData .filter(d => d.Class === 'Aves') .sort((a,b) => +aves[a.Order][0]['Maximum longevity (yrs)'] - +aves[b.Order][0]['Maximum longevity (yrs)']) , d=> ({ y: d['Order'].replace(/\'/gi,''), x: d['Maximum longevity (yrs)'], })) .color('#a0091d') .stroke(d => aves[d.Order][0].HAGRID === d.HAGRID ? '#333' : '#a0091d') .strokeWidth(1) .opacity(0.05) .strokeOpacity(d => aves[d.Order][0].HAGRID === d.HAGRID ? 1 : 0.2) .radius(3) .add( chrt.chrtLabels() .class('mammals-labels') .value(d => `${d['Maximum longevity (yrs)']} - ${d['Common name']}`) .filter(d => aves[d.Order][0].HAGRID === d.HAGRID) .align('left') .valign('middle') .offset(0,10) ) ) .add( chrt.yAxis().hideAxis().hideTicks() ) .add( chrt.xAxis(5).hideAxis() //.add(chrt.chrtAxisTitle('Maximum longevity →').valign('top').offset({y:0})) .format((d,i,arr) => { return `${new Intl.NumberFormat().format(d)}${i===arr.length-1 ? ' years' : ''}`; }) ) .node()34:T712,chrt.Chrt() .size(width-100,670) .margins({left:5, bottom: 25}) .padding({left: 40, top: 30, right: 10}) .y([0.1,100000000],null,{scale:'log'}) .x([1,250],null,{scale:'log'}) .add( chrt.horizontalGrid().color('#eee') ) .add( chrt.chrtPoints() .data(sortedData //.filter(d => d.Class === 'Mammalia') .filter(d => d['Adult weight (g)'] !== ''), d=> ({ y: +d['Adult weight (g)'], x: +d['Maximum longevity (yrs)'], }) ) .color('#a0091d') .stroke(d => ~interestingAnimals.indexOf(d['Common name']) ? '#333' : 'transparent') .strokeWidth(1.5) .opacity(0.1) .radius(5) .add( chrt.chrtLabels() .value(d => d['Common name']) .class('with-stroke') .color('#333') // .filter(d => { // return mammalia[d.Order][mammalia[d.Order].length - 1].HAGRID === d.HAGRID // }) //.filter(d => +d['Adult weight (g)'] > 10000 && +d['Adult weight (g)'] < 30000 && +d['Maximum longevity (yrs)'] < 10) //.filter(d => +d['Maximum longevity (yrs)'] > 100) //.filter(d => +d['Maximum longevity (yrs)'] > 14 && +d['Maximum longevity (yrs)'] < 40 && +d['Adult weight (g)'] > 1000000*0.5) .filter(d => ~interestingAnimals.indexOf(d['Common name'])) .offset(-5) ) ) .add( chrt.yAxis(3) .hideAxis() .hideTicks() .setLabelPosition('inside') .format(d => formatWeight(d)) .add(chrt.chrtAxisTitle('↑ Adult weight')) ) .add( chrt.xAxis().hideAxis().add(chrt.chrtAxisTitle('Maximum Longevity →')).format((d,i,arr) => { return `${new Intl.NumberFormat().format(d)}${i===arr.length-1 ? ' years' : ''}`; }) ) .node()35:[{"id":"bd85e776874cfee1abc24e6f252c23776f3b7bcd6056c0ea6ec8ae81844a4fa96499415898750fe2ea80b3d8a50151bacb1bfa6c453738759ee3a610d32b61c7","href":"https://static.observableusercontent.com/files/bd85e776874cfee1abc24e6f252c23776f3b7bcd6056c0ea6ec8ae81844a4fa96499415898750fe2ea80b3d8a50151bacb1bfa6c453738759ee3a610d32b61c7","name":"anage_data@2.txt","type":"text/plain","lastModified":1620732558826.241,"size":704557}] 2f:{"title":"Animal lifespan","cells":[{"id":0,"value":"md`# Animal lifespan`","pinned":false,"hidden":false,"mode":"ojs"},{"id":134,"value":"md`## Which animal lives the longest?\nSome experts believe **Hexactinellid sponges** are the longest-lived animals on earth, tentatively estimating a maximum age of up to 15,000 years. \nSource: AnAge (The Animal Ageing and Longevity Database)\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":7,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":179,"value":"chrt.Chrt()\n .size(width,width/2)\n .margins({left:150})\n .y(null,null,{scale:'ordinal'})\n .x([0.01,20000],null,{scale:'log'})\n .add(\n chrt.horizontalGrid().color('#eee')\n )\n .add(\n chrt.chrtPoints()\n .data(sortedData, d=> ({\n y: d.Class,\n x: d['Maximum longevity (yrs)'],\n }))\n .color('#a0091d')\n .opacity(0.1)\n .radius(5)\n )\n .add(\n chrt.yAxis().hideAxis().hideTicks()\n )\n .add(\n chrt.xAxis().hideAxis()\n )\n .node()","pinned":false,"hidden":false,"mode":"ojs"},{"id":140,"value":"chrt.Chrt()\n .size(width,width * 2)\n .margins({left:150})\n .y(null,null,{scale:'ordinal'})\n .x([0.01,20000],null,{scale:'log'})\n .add(\n chrt.horizontalGrid().color('#eee')\n )\n .add(\n chrt.chrtPoints()\n .data(sortedData, d=> ({\n y: d.Order,\n x: d['Maximum longevity (yrs)'],\n }))\n .color('#a0091d')\n .opacity(0.1)\n .radius(5)\n )\n .add(\n chrt.yAxis().hideAxis().hideTicks()\n )\n .add(\n chrt.xAxis().hideAxis()\n )\n .node()","pinned":false,"hidden":false,"mode":"ojs"},{"id":399,"value":"md`## Which mammal lives the longest?\n**Bowhead whales** are considered to be the longest-living mammals, living for over 200 years. The longest **human** lifespan is that of Jeanne Calment of France (1875–1997), who lived to age 122 years and 164 days. \nSource: AnAge (The Animal Ageing and Longevity Database)`","pinned":false,"hidden":false,"mode":"ojs"},{"id":187,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":326,"value":"mammalia = groupBy(sortedData, 'Order', {field: 'Class', value: 'Mammalia'})","pinned":false,"hidden":false,"mode":"ojs"},{"id":425,"value":"md`## Which bird lives the longest?\n_Cookie,_ was a Major Mitchell's cockatoo (or Pink cockatoo) resident of Illinois' Brookfield Zoo near Chicago from the time the zoo opened in 1934 until his death on 27 August 2016. Cookie was 83 years old. \nSource: AnAge (The Animal Ageing and Longevity Database)`","pinned":false,"hidden":false,"mode":"ojs"},{"id":420,"value":"$33","pinned":false,"hidden":false,"mode":"ojs"},{"id":415,"value":"aves = groupBy(sortedData, 'Order', {field: 'Class', value: 'Aves'})","pinned":false,"hidden":false,"mode":"ojs"},{"id":475,"value":"md`## Big things live longer?\nIt has been well known for a long time that larger species tend, on average, to live longer.However there are also some anomalies. Another well known example is the maximal lifespan-brain weight correlation. \nSource: AnAge (The Animal Ageing and Longevity Database)`","pinned":false,"hidden":false,"mode":"ojs"},{"id":209,"value":"$34","pinned":false,"hidden":false,"mode":"ojs"},{"id":584,"value":"md`Note: Animal for which weight is reported`","pinned":false,"hidden":false,"mode":"ojs"},{"id":457,"value":"interestingMammals = [\n 'Human',\n 'Bowhead whale',\n 'White-toothed pygmy shrew',\n 'Blue whale',\n 'Dugong',\n `Brandt's bat`,\n 'Hippopotamus',\n 'Forest shrew',\n 'Steenbok',\n 'Long-nosed echymipera',\n //'Killer whale',\n 'Borneo gibbon',\n 'Gorilla',\n 'Domestic cattle',\n 'Northern bottlenose whale'\n ];","pinned":false,"hidden":false,"mode":"ojs"},{"id":523,"value":"interestingAnimals = [\n 'Human',\n 'Bowhead whale',\n 'Giant manta',\n 'Blue whale',\n 'Olm',\n `Brandt's bat`,\n //'Hippopotamus',\n 'Forest shrew',\n //'Steenbok',\n //'Long-nosed echymipera',\n 'Beluga sturgeon',\n 'Common dolphinfish',\n //'Domestic cattle',\n 'Northern bottlenose whale',\n 'Rougheye rockfish',\n 'Shortraker rockfish',\n 'Eastern red-backed salamander',\n 'Sharptooth tetra',\n 'Pink salmon',\n `Bennett's chinchilla rat`,\n ];","pinned":false,"hidden":false,"mode":"ojs"},{"id":226,"value":"data.filter(d => d.Class === 'Mammalia').filter(d => d['Adult weight (g)'] !== '').sort((a,b) => +a['Adult weight (g)'] - +b['Adult weight (g)'])","pinned":true,"hidden":false,"mode":"ojs"},{"id":23,"value":"sortedData = data.filter(d => d['Maximum longevity (yrs)'] !== '').sort((a,b) => +b['Maximum longevity (yrs)'] - +a['Maximum longevity (yrs)'])","pinned":true,"hidden":false,"mode":"ojs"},{"id":322,"value":"function groupBy(data, groupBy, filterBy) {\n return data\n .filter(d => filterBy ? d[filterBy.field] === filterBy.value : 1)\n .reduce((acc,d) => {\n acc[d[groupBy]] = [...acc[d[groupBy]] ?? [], d].sort((a,b) => b['Maximum longevity (yrs)'] - a['Maximum longevity (yrs)']);\n return acc;\n },{})\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":10,"value":"data = FileAttachment(\"anage_data@2.txt\").csv();","pinned":true,"hidden":false,"mode":"ojs"},{"id":47,"value":"html``","pinned":true,"hidden":false,"mode":"ojs"},{"id":232,"value":"formatWeight = (weight) => {\n if (weight < 1000) {\n return `${weight} g`;\n }\n if(weight < 1000 * 1000) {\n return `${weight / 1000} kg`;\n }\n \n if(weight < 1000 * 1000 * 1000) {\n return `${weight / 1000 / 1000} ton`;\n }\n}","pinned":true,"hidden":false,"mode":"ojs"},{"id":5,"value":"chrt=require('chrt@0.0.72')","pinned":false,"hidden":false,"mode":"ojs"},{"id":615,"value":"chrt.version","pinned":true,"hidden":false,"mode":"ojs"}],"files":"$W35","stdlib":"1","titling":"auto"}