30:T7c4,graphic = { const fuel = [...new Set(data.map(d => d.fuel))]; const plot = addTooltips( Plot.plot({ width, height: 350, marginLeft: 60, marginRight: 60, style: { fontFamily: "'Source Sans Pro', sans-serif;", fontSize: "13", fontWeight: 600, color: "#707070", paddingTop: 10, overflow: "visible" }, x: { domain: [0, d3.max(data, d => d.mean_mass)], nice: true, tickSize: 0, label: "Average vehicle mass (kg)", labelOffset: 50 }, y: { domain: [0, d3.max(data, d => d.mean_emissions)], grid: true, nice: true, tickSize: 0, tickPadding: 3, label: "Average CO₂ emissions (g/km, WLTP)", labelAnchor: "center", labelOffset: 55 }, r: { range: [0, 20] }, color: { domain: fuel, type: "categorical" }, marks: [ Plot.ruleX([0]), Plot.ruleY([0]), Plot.ruleY([75], {strokeDasharray: 9, stroke: "#212121", strokeWidth: 1}), Plot.dot(selected, { x: "mean_mass", y: "mean_emissions", r: "registrations", fill: "fuel", fillOpacity: 0.3, title: (d) => `${d.model} \n Registrations: ${d3.format(",")(d["registrations"])} \n Emissions: ${d.mean_emissions} g/km \n Mass: ${d3.format(",")(d["mean_mass"])} kg` }) ] }), { "stroke-width": "3px", stroke: "#212121" } ) return wrap( html`

CO₂ emissions from new passenger cars

United Kingdom, 2020

`, Swatches({color: d3.scaleOrdinal(fuel, d3.schemeTableau10)}), plot, html`

Source: European Environment Agency

` ); }31:[{"id":"554c7af7bdd576a8f77eed6afd0c2dbe1d58c0e486dcd2794c3e3b0aafb42c8153e459864446c5eb7d70bebd3ee56d34bdc0813f816e133c28b8ea936c60d427","href":"https://static.observableusercontent.com/files/554c7af7bdd576a8f77eed6afd0c2dbe1d58c0e486dcd2794c3e3b0aafb42c8153e459864446c5eb7d70bebd3ee56d34bdc0813f816e133c28b8ea936c60d427","name":"eea_co2_emissions_passenger_cars_UK_2020.csv","type":"text/csv","lastModified":1625149223269.33,"size":290295}] 2e:{"title":"Car emissions","cells":[{"id":0,"value":"# Car emissions\n\nThe bubble chart shows average CO₂ (g/km) emissions for different vehicle models against their their average mass (kg). The size of the bubbles are proportional to the number of vehicles registered in the UK during 2020. The dashed line indicates 75 grams of CO₂ per kilometre (g/km) which is the upper limit for [Ultra Low Emission Vehicles](https://www.gov.uk/government/organisations/office-for-low-emission-vehicles).\n
","pinned":false,"hidden":false,"mode":"md"},{"id":64,"value":"viewof make = Inputs.select(data.map(d => d.make), {sort: true, unique: true, label: \"Select a make:\"})","pinned":false,"hidden":false,"mode":"ojs"},{"id":29,"value":"$30","pinned":false,"hidden":false,"mode":"ojs"},{"id":18,"value":"---\n## Appendix","pinned":false,"hidden":false,"mode":"md"},{"id":22,"value":"import {Plot, d3} from \"@observablehq/plot\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":155,"value":"import {swatches as Swatches} from \"@d3/color-legend\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":25,"value":"import { addTooltips } from \"@mkfreeman/plot-tooltip\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":103,"value":"wrap = (...elems) => {\n const div = document.createElement(\"div\");\n elems.forEach(el => div.appendChild(el));\n return div;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":97,"value":"html``","pinned":false,"hidden":false,"mode":"ojs"},{"id":141,"value":"```r\n# CO2 emissions from new passenger cars (UK, 2020)\n# Source: European Environment Agency\n# URL: https://www.eea.europa.eu/data-and-maps/data/co2-cars-emission-20\n\nlibrary(tidyverse)\n\ndf <- read_csv(\"data.csv\") %>% \n filter(Ct == \"M1\") %>% \n select(make = Mk,\n model = Cn,\n fuel = Ft,\n mass = `m (kg)`,\n emissions = `Ewltp (g/km)`) %>% \n mutate(make = str_to_title(make),\n make = case_when(make %in% c(\"Bmw\", \"Ds\", \"Mg\", \"Mini\") ~ toupper(make), TRUE ~ make),\n fuel= str_to_title(fuel),\n fuel = case_when(fuel == \"Lpg\" ~ \"Liquefied petroleum gas\", TRUE ~ fuel)) %>% \n group_by(make, model, fuel) %>% \n summarise(registrations = n(),\n mean_mass = round(mean(mass, na.rm = TRUE),0),\n mean_emissions = round(mean(emissions, na.rm = TRUE),0)) %>% \n ungroup() %>% \n group_by(model, make) %>% \n arrange(desc(registrations, .by_group = TRUE))\n\nwrite_csv(df, \"eea_co2_emissions_passenger_cars_UK_2020.csv\")\n```","pinned":false,"hidden":false,"mode":"md"},{"id":4,"value":"data = d3.csvParse(await FileAttachment(\"eea_co2_emissions_passenger_cars_UK_2020.csv\").text(), d3.autoType)","pinned":false,"hidden":false,"mode":"ojs"},{"id":66,"value":"selected = data.filter(d => d.make === make)","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W31","stdlib":"1","titling":"auto"}