2f:null 30:["$","title",null,{"children":"2024 30-Day Chart Challenge • Day 08 • Distribution: Circular | boB Rudis | Observable"}] 35:T9e4,```r library(rvest) doc <- read_html("https://en.wikipedia.org/wiki/Party_divisions_of_United_States_Congresses") doc |> html_nodes( xpath = ".//table[@class='wikitable']/tbody/tr" ) |> lapply(html_nodes, "td") |> lapply(\(.x) .x[1:7]) |> Filter(f = \(.x) length(.x) > 0) |> lapply(html_text, trim=TRUE) |> lapply(as.list) |> lapply(setNames, c("congress", "years", "total", "democrats", "republicans", "others", "vacancies")) |> do.call(what = "rbind.data.frame") |> subset( (gsub("[^[:digit:]]", "", congress) |> as.integer()) >= 32 ) |> transform( democrats = gsub(r"(\[.*)", "", democrats) |> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_), republicans = gsub(r"(\[.*)", "", republicans)|> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_), others = gsub(r"(\[.*)", "", others) |> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_) ) |> transform( others = ifelse(others == "—", 0, others), vacancies = ifelse(vacancies == "—", 0, vacancies) ) |> transform( democrats = as.integer(democrats), republicans = as.integer(republicans), others = as.integer(others), vacancies = as.integer(vacancies) ) |> jsonlite::toJSON() |> writeLines("~/Data/party-divisions-by-congress-senate.json") doc |> html_nodes( xpath = ".//table[@class='wikitable']/tbody/tr" ) |> lapply(html_nodes, "td") |> lapply(\(.x) .x[c(1:2, 8:12)]) |> Filter(f = \(.x) length(.x) > 0) |> lapply(html_text, trim=TRUE) |> lapply(as.list) |> lapply(setNames, c("congress", "years", "total", "democrats", "republicans", "others", "vacancies")) |> do.call(what = "rbind.data.frame") |> subset( (gsub("[^[:digit:]]", "", congress) |> as.integer()) >= 32 ) |> transform( democrats = gsub(r"(\[.*)", "", democrats) |> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_), republicans = gsub(r"(\[.*)", "", republicans)|> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_), others = gsub(r"(\[.*)", "", others) |> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_), vacancies = gsub(r"(\[.*)", "", vacancies) |> gsub(r"(^[[:digit:]]+[/–]+)", "", x=_) ) |> transform( others = ifelse(others == "—", 0, others), vacancies = ifelse(vacancies == "—", 0, vacancies) ) |> transform( democrats = as.integer(democrats), republicans = as.integer(republicans), others = as.integer(others), vacancies = as.integer(vacancies) ) |> jsonlite::toJSON() |> writeLines("~/Data/party-divisions-by-congress-house.json") ```36:[{"id":"0da917796e8c1638ce452f73ab8c76c1e7d6527e288e14886cc5a7711aa395af44a646225afa1a264ca116d4a371113dcb8dcccd18ad63dabbb19c08cd31b72a","href":"https://static.observableusercontent.com/files/0da917796e8c1638ce452f73ab8c76c1e7d6527e288e14886cc5a7711aa395af44a646225afa1a264ca116d4a371113dcb8dcccd18ad63dabbb19c08cd31b72a","name":"party-divisions-by-congress-house.json","type":"application/json","lastModified":1712574213218.549,"size":10027},{"id":"b971f8631166aab8dcfe1bb596520f57904e2782035a836fd5139dc565874c7c1987fe7f51a69d377df13bf305054b1adcb27bb5b895b102220d66d92ae54e98","href":"https://static.observableusercontent.com/files/b971f8631166aab8dcfe1bb596520f57904e2782035a836fd5139dc565874c7c1987fe7f51a69d377df13bf305054b1adcb27bb5b895b102220d66d92ae54e98","name":"party-divisions-by-congress-senate@1.json","type":"application/json","lastModified":1712577034192.526,"size":9803}] 33:{"id":"4e799173251268fa","slug":"2024-30-day-chart-challenge-day-08-distribution-circular","title":"2024 30-Day Chart Challenge • Day 08 • Distribution: Circular","thumbnail":"8e0e17685134e1761fe641d3800d43ef1d23cc541390096f427bbef686796b34","access_level":"public","create_time":"$D2024-04-08T08:32:50.307Z","update_time":"$D2024-04-08T13:47:13.758Z","view_time":null,"first_public_time":"$D2024-04-08T12:27:55.382Z","has_unpublished_edits":null,"fork":false,"stars":2,"starred":false,"owner":{"type":"team","id":"0b35eed5f0115bfa","login":"hrbrmstr","name":"boB Rudis","avatar_url":"https://avatars-next.observableusercontent.com/a26fc528815774e5c1e5ba21faf0a748a105234dd4c0fad8293732ef66c00f82","tier":"starter_2024"},"version":341,"publish_version":null,"role":null,"authored":false,"authors":[{"type":"individual","id":"4193fbe2c8b30fd3","login":"hrbrmstr","name":"boB Rudis","avatar_url":"https://avatars-next.observableusercontent.com/a26fc528815774e5c1e5ba21faf0a748a105234dd4c0fad8293732ef66c00f82","tier":null}],"members":[{"type":"team","id":"0b35eed5f0115bfa","login":"hrbrmstr","name":"boB Rudis","avatar_url":"https://avatars-next.observableusercontent.com/a26fc528815774e5c1e5ba21faf0a748a105234dd4c0fad8293732ef66c00f82","tier":"starter_2024","role":"editor"},{"type":"individual","id":"4193fbe2c8b30fd3","login":"hrbrmstr","name":"boB Rudis","avatar_url":"https://avatars-next.observableusercontent.com/a26fc528815774e5c1e5ba21faf0a748a105234dd4c0fad8293732ef66c00f82","tier":null,"role":"editor"}],"comments":[],"custom_thumbnail":true,"trashed":false,"lapsed":null,"subscribed":null,"forks":0,"collection":{"id":"23f4c0b2cc05f87f","slug":"2024-30-day-chart-challenge","title":"2024 30-Day Chart Challenge","owner":{"id":"0b35eed5f0115bfa","login":"hrbrmstr","name":"boB Rudis"}},"type":"notebook","body":{"title":"2024 30-Day Chart Challenge • Day 08 • Distribution: Circular","cells":[{"id":0,"value":"# 2024 30-Day Chart Challenge • Day 08 • Distribution: Circular","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","output":"","database":"$undefined"},{"id":301,"value":"Today, we take [data from Wikipedia](https://en.wikipedia.org/wiki/Party_divisions_of_United_States_Congresses) on the historical make-up of the party divisions of the U.S Congress — starting with the 32nd Congress — and show the distribution of seats by party in the House and Senate using a [parliament chart](https://app.flourish.studio/@flourish/parliament-chart).","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","output":"","database":"$undefined"},{"id":34,"value":"viewof congress = Scrubber(\n partyDivisionsBySenate.map((d) => d.congress),\n {\n autoplay: false,\n delay: 125,\n loop: false,\n format: (d) => `${d} Congress`\n }\n)","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":98,"value":"Plot.plot({\n width: width,\n height: 60,\n x: {\n label: \"Senate\",\n axis: \"top\",\n labelAnchor: \"left\",\n ticks: 0\n },\n y: {\n axis: null\n },\n color: {\n domain: senateSeats.map((d) => d.party),\n range: senateSeats.map((d) => d.color),\n legend: true\n },\n marks: [\n Plot.barX(senateSeats, { x: \"seats\", y: 0, fill: \"party\", tip: true })\n ]\n})","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":153,"value":"Plot.plot({\n width: width,\n height: 60,\n x: {\n label: \"House\",\n axis: \"bottom\",\n labelAnchor: \"left\",\n ticks: 0\n },\n y: {\n axis: null\n },\n color: {\n domain: houseSeats.map((d) => d.party),\n range: houseSeats.map((d) => d.color)\n },\n marks: [Plot.barX(houseSeats, { x: \"seats\", y: 0, fill: \"party\", tip: true })]\n})","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":186,"value":"

${senate}

${house}

Senate Total Members: ${ccSen.total}

The ${congress} Congress

${ccSen.years}

House Total Members: ${ccHouse.total}

","pinned":false,"hidden":false,"mode":"html","author":"$undefined","summary":"$undefined","output":"","database":"$undefined"},{"id":339,"value":"### R Wrangling Code","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","output":"","database":"$undefined"},{"id":337,"value":"$35","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","output":"","database":"$undefined"},{"id":81,"value":"senate = {\n const svg = d3\n .create(\"svg\")\n .attr(\"width\", width)\n .attr(\"height\", width / 2);\n\n svg.append(\"g\").call(\n d3ParliamentChart\n .parliamentChart()\n .width(width)\n .aggregatedData(senateSeats)\n .sections(4)\n .sectionGap(14)\n .seatRadius(width / 80)\n .rowHeight(42)\n );\n\n return svg.node();\n}","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":156,"value":"house = {\n const svg = d3\n .create(\"svg\")\n .attr(\"width\", width > 800 ? width : 800)\n .attr(\"height\", (width > 800 ? width : 800) / 2)\n .attr(\"transform\", `scale(1, -1)`);\n svg.append(\"g\").call(\n d3ParliamentChart\n .parliamentChart()\n .width(width)\n .aggregatedData(houseSeats)\n .sections(1)\n .sectionGap(1)\n .seatRadius(width / 100)\n .rowHeight(28)\n );\n\n return svg.node();\n}","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":52,"value":"senateSeats = [\n { seats: ccSen.republicans, party: \"Republican\", color: \"#f00808\" },\n { seats: ccSen.democrats, party: \"Democrat\", color: \"#0a2458\" },\n { seats: ccSen.others, party: \"Other\", color: \"#27a27a\" },\n { seats: ccSen.vacancies, party: \"Vacancies\", color: \"#e0fef5\" }\n]","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":150,"value":"houseSeats = [\n { seats: ccHouse.republicans, party: \"Republican\", color: \"#f00808\" },\n { seats: ccHouse.democrats, party: \"Democrat\", color: \"#0a2458\" },\n { seats: ccHouse.others, party: \"Other\", color: \"#27a27a\" },\n { seats: ccHouse.vacancies, party: \"Vacancies\", color: \"#e0fef5\" }\n]","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":136,"value":"ccSen = partyDivisionsBySenate.filter((d) => d.congress == congress)[0]","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":144,"value":"ccHouse = partyDivisionsByHouse.filter((d) => d.congress == congress)[0]","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":26,"value":"partyDivisionsBySenate = FileAttachment(\n \"party-divisions-by-congress-senate@1.json\"\n).json()","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":141,"value":"partyDivisionsByHouse = FileAttachment(\n \"party-divisions-by-congress-house.json\"\n).json()","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":79,"value":"palette = [\n \"#f00808\", // maga red\n \"#0a2458\", // joe navy\n \"#27a27a\",\n \"#e0fef5\"\n]","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":4,"value":"d3ParliamentChart = require(\"d3-parliament-chart\")","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":38,"value":"import { Scrubber } from \"@mbostock/scrubber\"","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":241,"value":"import { style } from \"@hrbrmstr/hrbrthemes\"","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"},{"id":227,"value":"html`\n${style}\n`","pinned":false,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","output":"$undefined","database":"$undefined"}],"files":"$W36","stdlib":"1","titling":"auto"}} 34:"$33:body"