30:[{"id":"2091ec7a80d06711c9a0c4c0ef956cea3b3623a63075a03b8936e0d1f37cdd4784fec2dbcc85114adae90be8dc31cc828b133d49561e67def4edf39de3c441c0","href":"https://static.observableusercontent.com/files/2091ec7a80d06711c9a0c4c0ef956cea3b3623a63075a03b8936e0d1f37cdd4784fec2dbcc85114adae90be8dc31cc828b133d49561e67def4edf39de3c441c0","name":"test.csv","type":"text/csv","lastModified":1620140725895.686,"size":1722}] 2e:{"title":"Simple {Plot} Examples with R {ggplot2} ~Equivalents","cells":[{"id":176,"value":"md`# Simple {Plot} Examples with R {ggplot2} ~Equivalents`","pinned":false,"hidden":false,"mode":"ojs"},{"id":0,"value":"import {Plot, d3} from \"@observablehq/plot\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":18,"value":"import {Table} from \"@observablehq/inputs\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":68,"value":"import { aq, op } from '@uwdata/arquero'","pinned":false,"hidden":false,"mode":"ojs"},{"id":232,"value":"import {swatches as Swatches} from \"@d3/color-legend\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":6,"value":"exchange = FileAttachment(\"test.csv\").csv({typed: true})","pinned":false,"hidden":false,"mode":"ojs"},{"id":23,"value":"Table(exchange)","pinned":false,"hidden":false,"mode":"ojs"},{"id":48,"value":"html`

Exchange Server Release Date and Up-to-Date Status by Industry

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":229,"value":"Swatches({color: d3.scaleOrdinal(exchange.map(d => d.supported).sort(), [\"#31739C\", \"#E85E26\"])})","pinned":false,"hidden":false,"mode":"ojs"},{"id":330,"value":"size_legend = {\n \n const svg = d3.create(\"svg\")\n .attr(\"width\", 200)\n .attr(\"height\", 30)\n\n const legend = svg.append(\"g\")\n\n const trans = d3.scaleLinear().domain([2, 10]).range([3, 8])\n \n legend\n .selectAll(\"circle\")\n .data([2, 4, 6, 8, 10])\n .enter()\n .append(\"circle\")\n .attr(\"cx\", (d, i) => 5 + (i*13) + (i*5))\n .attr(\"cy\", 10)\n .attr(\"r\", (d, i) => trans(d))\n .attr(\"fill\", \"black\")\n .attr(\"stroke\", \"#00000000\")\n\n legend\n .selectAll(\"text\")\n .data([2, 4, 6, 8, 10])\n .enter()\n .append(\"text\")\n .attr(\"dx\", (d, i) => (i*13) + (i*5))\n .attr(\"dy\", 30)\n .attr(\"font-family\", \"sans-serif\")\n .attr(\"font-size\", 10)\n .text((d) => d)\n \n return svg.node();\n \n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":10,"value":"dot_plot = Plot.plot({\n title: \"Exchange Server Release Date and Up-to-Date Status by Industry\",\n marginLeft: 150,\n width: 900,\n x: {\n domain: [new Date(\"2012-06-01\"), new Date(\"2021-06-01\")],\n label: \"Release Date\",\n grid: true\n },\n y: {\n label: \"\",\n grid: true\n }, \n color: {\n range: [\"#31739C\", \"#E85E26\"]\n },\n marks: [\n Plot.dot(\n exchange, \n {\n x: \"rls_date\", \n y: \"industry\", \n fill: \"supported\", \n r: \"n\"\n }\n )\n ]\n}) ","pinned":true,"hidden":false,"mode":"ojs"},{"id":336,"value":"html`

R {ggplot2} ~Equivalent

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":243,"value":"md`\n\\`\\`\\`r\nlibrary(tidyverse)\n\nobsv_data_url <- \"https://static.observableusercontent.com/files/2091ec7a80d06711c9a0c4c0ef956cea3b3623a63075a03b8936e0d1f37cdd4784fec2dbcc85114adae90be8dc31cc828b133d49561e67def4edf39de3c441c0?response-content-disposition=attachment%3Bfilename*%3DUTF-8%27%27test.csv\"\n\ncols(\n industry = col_character(),\n rls_date = col_date(format = \"\"),\n supported = col_character(),\n n = col_double()\n) -> exchange_cols\n\nexchange <- read_csv(obsv_data_url, col_types = exchange_cols)\n\nggplot() +\n geom_point(\n data = exchange,\n aes(rls_date, industry, size = n, color = supported)\n\n ) +\n scale_x_date(\n date_breaks = \"1 year\",\n date_labels = \"%Y\"\n ) +\n scale_color_manual(\n name = NULL,\n values = c(\"#31739C\", \"#E85E26\")\n ) +\n scale_size_area(\n name = NULL, \n breaks = c(2, 4, 6, 8, 10)\n ) +\n labs(\n x = \"Release Date\", y = NULL,\n title = \"Exchange Server Release Date and Up-to-Date Status by Industry\"\n ) +\n theme_minimal()\n\\`\\`\\`\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":219,"value":"md`## Switching to {arquero}`","pinned":false,"hidden":false,"mode":"ojs"},{"id":196,"value":"viewof exch = aq.fromCSV(await FileAttachment('test.csv').text()).view({ height: 240 })","pinned":true,"hidden":false,"mode":"ojs"},{"id":97,"value":"bar_plot = Plot.plot({\n title: \"Exchange Server Counts by Industry\",\n marginLeft: 150,\n width: 900,\n x: {\n label: \"# Exchange Servers\",\n grid: true\n },\n y: {\n label: \"\",\n grid: false,\n domain: exch\n .groupby('industry')\n .rollup({ct: d => op.sum(d.n)})\n .orderby(aq.desc('ct'))\n .columnArray('industry')\n }, \n marks: [\n Plot.barX(\n exch\n .groupby('industry')\n .rollup({ct: d => op.sum(d.n)}), \n {\n x: \"ct\", \n y: \"industry\", \n fill: \"steelblue\"\n }\n )\n ]\n}) ","pinned":true,"hidden":false,"mode":"ojs"},{"id":343,"value":"html`

R {ggplot2} ~Equivalent

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":340,"value":"md`\n\\`\\`\\`r\nggplot() +\n geom_bar(\n data = exchange %>% \n count(industry, wt = n, sort = TRUE) %>% \n mutate(industry = fct_inorder(industry) %>% fct_rev()),\n aes(n, industry),\n stat = \"identity\", fill = \"steelblue\", width = 0.65\n ) +\n scale_x_continuous(expand = c(0, 0.125)) +\n labs(\n x = \"# Exchange Servers\", y = NULL\n ) +\n theme_minimal() +\n theme(panel.grid.major.y = element_blank())\n\\`\\`\\`\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":236,"value":"Swatches({color: d3.scaleOrdinal(exchange.map(d => d.supported).sort(), [\"#31739C\", \"#E85E26\"])})","pinned":false,"hidden":false,"mode":"ojs"},{"id":119,"value":"stacked_bar_plot = Plot.plot({\n title: \"Exchange Server Counts by Industry\",\n marginLeft: 150,\n width: 900,\n x: {\n label: \"# Exchange Servers\",\n grid: true\n },\n y: {\n label: \"\",\n grid: false,\n domain: exch\n .groupby('industry')\n .rollup({ct: d => op.sum(d.n)})\n .orderby(aq.desc('ct'))\n .columnArray('industry')\n }, \n color: {\n range: [\"#31739C\", \"#E85E26\"]\n },\n marks: [\n Plot.barX(\n exch\n .groupby('industry', 'supported')\n .rollup({ct: d => op.sum(d.n)})\n .orderby(aq.desc('supported')),\n {\n x: \"ct\", \n y: \"industry\", \n fill: \"supported\"\n }\n )\n ]\n}) ","pinned":true,"hidden":false,"mode":"ojs"},{"id":350,"value":"html`

R {ggplot2} ~Equivalent

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":353,"value":"md`\n\\`\\`\\`r\nggplot() +\n geom_bar(\n data = exchange %>% \n count(industry, supported, wt = n, sort = TRUE) %>% \n mutate(industry = fct_inorder(industry) %>% fct_rev()),\n aes(n, industry, fill = supported),\n stat = \"identity\", width = 0.65\n ) +\n scale_x_continuous(expand = c(0, 0.125)) +\n scale_fill_manual(\n name = NULL,\n values = c(\"#31739C\", \"#E85E26\")\n ) +\n labs(\n x = \"# Exchange Servers\", y = NULL\n ) +\n theme_minimal() +\n theme(panel.grid.major.y = element_blank())\n\\`\\`\\`\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":370,"value":"exch_by_year = exch\n .derive({\n year: (d) => op.year(d.rls_date) * 1\n })\n .groupby(\"industry\", \"supported\", \"year\")\n .rollup({ ct: (d) => op.sum(d.n) })","pinned":true,"hidden":false,"mode":"ojs"},{"id":403,"value":"heatmap = Plot.plot({\n height: 600,\n width: 480,\n marginLeft: 150,\n grid: true,\n x: {\n axis: \"top\",\n label: \"Release Year\",\n domain: [ 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 ]\n },\n y: {\n label: \"\"\n },\n color: {\n scheme: \"cool\"\n },\n facet: {\n data: exch_by_year,\n y: d => d.supported\n },\n marks: [\n Plot.cell(\n exch_by_year, \n {\n x: \"year\",\n y: \"industry\",\n fill: \"ct\",\n // rx: 20 // uncomment for circles\n }\n ),\n Plot.text(\n exch_by_year, \n {\n x: \"year\",\n y: \"industry\",\n text: d => d.ct?.toFixed(0),\n title: d => d.ct?.toFixed(0),\n stroke: \"#ffffff\"\n }\n )\n ]\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":474,"value":"heatmap_src = md`\n\\`\\`\\`javascript\nPlot.plot({\n height: 600,\n width: 480,\n marginLeft: 150,\n grid: true,\n x: {\n axis: \"top\",\n label: \"Release Year\",\n domain: [ 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 ]\n },\n y: {\n label: \"\"\n },\n color: {\n scheme: \"cool\"\n },\n facet: {\n data: exch_by_year,\n y: d => d.supported\n },\n marks: [\n Plot.cell(\n exch_by_year, \n {\n x: \"year\",\n y: \"industry\",\n fill: \"ct\",\n // rx: 20 // uncomment for circles\n }\n ),\n Plot.text(\n exch_by_year, \n {\n x: \"year\",\n y: \"industry\",\n text: d => d.ct?.toFixed(0),\n title: d => d.ct?.toFixed(0),\n stroke: \"#ffffff\"\n }\n )\n ]\n})\n\\`\\`\\`\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":455,"value":"heatmap_r_title = html`

R {ggplot2} ~Equivalent

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":458,"value":"heatmap_r = md`\n\\`\\`\\`r\ngplot(\n exchange %>% \n mutate(\n industry = factor(industry, rev(sort(unique(industry)))),\n year = as.integer(lubridate::year(rls_date))\n ) %>%\n count(industry, supported, year, wt = n) %>% \n complete(\n year = min(year):max(year),\n industry,\n supported\n ) %>% \n mutate(year = as.character(year)) \n) +\n geom_tile(\n aes(year, industry, fill = n),\n color = \"white\", size = 1,\n show.legend = FALSE\n ) +\n geom_text(\n aes(\n year, industry, \n color = I(ifelse(n <=7, \"white\" , \"black\")),\n label = n\n ),\n size = 3\n ) +\n scale_x_discrete(position = \"top\") +\n scale_fill_viridis_c(\n option = \"magma\",\n na.value = \"#DEE5E8\"\n ) +\n facet_wrap(~supported) +\n labs(\n x = \"# Exchange Servers\", y = NULL\n ) +\n theme_minimal() +\n theme(\n panel.grid.major.x = element_blank(),\n panel.grid.major.y = element_blank(),\n strip.placement = \"outside\"\n )\n\\`\\`\\`\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":358,"value":"aq.addFunction(\"year\", d3.timeFormat(\"%Y\"), { override: true })","pinned":true,"hidden":false,"mode":"ojs"}],"files":"$W30","stdlib":"1","titling":"auto"}