31: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") ```32:[{"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}] 2f:{"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"},{"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"},{"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"},{"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"},{"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"},{"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"},{"id":339,"value":"### R Wrangling Code","pinned":false,"hidden":false,"mode":"md"},{"id":337,"value":"$31","pinned":false,"hidden":false,"mode":"md"},{"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"},{"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"},{"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"},{"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"},{"id":136,"value":"ccSen = partyDivisionsBySenate.filter((d) => d.congress == congress)[0]","pinned":false,"hidden":false,"mode":"ojs"},{"id":144,"value":"ccHouse = partyDivisionsByHouse.filter((d) => d.congress == congress)[0]","pinned":false,"hidden":false,"mode":"ojs"},{"id":26,"value":"partyDivisionsBySenate = FileAttachment(\n \"party-divisions-by-congress-senate@1.json\"\n).json()","pinned":false,"hidden":false,"mode":"ojs"},{"id":141,"value":"partyDivisionsByHouse = FileAttachment(\n \"party-divisions-by-congress-house.json\"\n).json()","pinned":false,"hidden":false,"mode":"ojs"},{"id":79,"value":"palette = [\n \"#f00808\", // maga red\n \"#0a2458\", // joe navy\n \"#27a27a\",\n \"#e0fef5\"\n]","pinned":false,"hidden":false,"mode":"ojs"},{"id":4,"value":"d3ParliamentChart = require(\"d3-parliament-chart\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":38,"value":"import { Scrubber } from \"@mbostock/scrubber\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":241,"value":"import { style } from \"@hrbrmstr/hrbrthemes\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":227,"value":"html`\n${style}\n`","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W32","stdlib":"1","titling":"auto"}