2b:null 2c:["$","title",null,{"children":"Observable: a companion visualization tool for your data analysis | Derek Corcoran Barrios's Workspace | Observable"}] 31:[{"id":"d1601a187e93c62277b0ee2d6c6614c4847a696e172b982b1e5a5f5a6792e51b875aa4bc732f24019196530fe89ee585f2b8e252f4df521d5476b891582ff541","href":"https://static.observableusercontent.com/files/d1601a187e93c62277b0ee2d6c6614c4847a696e172b982b1e5a5f5a6792e51b875aa4bc732f24019196530fe89ee585f2b8e252f4df521d5476b891582ff541","name":"country_codes@1.csv","type":"text/csv","lastModified":1692081308838.307,"size":2224},{"id":"ea49c479fcac9cba031521069332caba185b01c89a71f3af01f05229c5965051b08144f012bc7a2afbb9b09009dcdd6760c00ead78562c761b2465a670cfa730","href":"https://static.observableusercontent.com/files/ea49c479fcac9cba031521069332caba185b01c89a71f3af01f05229c5965051b08144f012bc7a2afbb9b09009dcdd6760c00ead78562c761b2465a670cfa730","name":"world_bank_data@1.csv","type":"text/csv","lastModified":1692081308838.307,"size":606010}] 2f:{"id":"8c01168808feca3f","slug":null,"title":"Observable: a companion visualization tool for your data analysis","thumbnail":"16c046a08c946bc00c71fc4953a0e0d048bbabbee2d3fafb4adcee2209b405d4","access_level":"public","create_time":"$D2023-08-15T06:35:08.838Z","update_time":"$D2023-08-16T19:05:38.822Z","view_time":null,"first_public_time":"$D2023-08-15T06:35:08.838Z","has_unpublished_edits":null,"fork":{"id":"2b0e46daf1fecfad","slug":"rpharma-workshop","title":"Observable: a companion visualization tool for your data analysis","owner":{"id":"83798d4067b55eff","login":"demoteam","name":"Observable Demo Team"}},"stars":0,"starred":false,"owner":{"type":"team","id":"5ecd4076d9894eb3","login":"derek-corcoran-barrios-ws","name":"Derek Corcoran Barrios's Workspace","avatar_url":"https://avatars-next.observableusercontent.com/8760a9a0c60fbc0fb0e7624d40e94543b5bd1ba6af9eadedda4a71d620a75eff","tier":"starter_2024"},"version":1230,"publish_version":null,"role":null,"authored":false,"authors":[{"type":"individual","id":"e76f4f475f5565a5","login":"derek-corcoran-barrios","name":"Derek Corcoran Barrios","avatar_url":"https://avatars-next.observableusercontent.com/369a25239a8c4ffc883057918823217c78cd98db1a9a3d89ffce712473d4ba9b","tier":null}],"members":[{"type":"individual","id":"e76f4f475f5565a5","login":"derek-corcoran-barrios","name":"Derek Corcoran Barrios","avatar_url":"https://avatars-next.observableusercontent.com/369a25239a8c4ffc883057918823217c78cd98db1a9a3d89ffce712473d4ba9b","tier":null,"role":"editor"},{"type":"team","id":"5ecd4076d9894eb3","login":"derek-corcoran-barrios-ws","name":"Derek Corcoran Barrios's Workspace","avatar_url":"https://avatars-next.observableusercontent.com/8760a9a0c60fbc0fb0e7624d40e94543b5bd1ba6af9eadedda4a71d620a75eff","tier":"starter_2024","role":"editor"}],"comments":[],"custom_thumbnail":false,"trashed":false,"lapsed":null,"subscribed":null,"forks":0,"collection":null,"type":"notebook","body":{"titling":"auto","title":"Observable: a companion visualization tool for your data analysis","cells":[{"id":0,"value":"# Observable: a companion visualization tool for your data analysis\n## R in Pharma Workshop, Oct. 28 2022 - starter notebook!\n[Workshop Slides](https://docs.google.com/presentation/d/1nRAo8QB-3fOSNoyfPsM_HuURhYeFYKwnDPLD3F8h3hY/edit?usp=sharing)\n\n[Complete version done during workshop](https://observablehq.com/@demoteam/rpharma-complete)\n\n**Data:** [World Bank Development Indicators](https://databank.worldbank.org/source/world-development-indicators)","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":15,"value":"---\n## Notebook Essentials","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":341,"value":"CODE TOGETHER : Chart and Observable basics","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":864,"value":"// Here's some sample data about our dogs\ndogs = [\n { name: \"Aida\", age: 2, weight: 64 },\n { name: \"Teddydog\", age: 6, weight: 50 },\n { name: \"Sira\", age: 4, weight: 5.25 },\n { name: \"Sadie\", age: 3, weight: 22 },\n { name: \"Mila\", age: 4, weight: 19 }\n]","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":917,"value":"viewof selected_dogs = Inputs.table(dogs)","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":1205,"value":"viewof variable = Inputs.radio([\"age\", \"weight\"], \n {label: \"Select variable\", value: \"age\"})","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":1210,"value":"viewof range = Inputs.range([0, 8], {label: \"Minimum weight to show\", step: 1, value: 0})","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":872,"value":"Click the **+** icon and search for _Bar Chart_ to create a bar chart of our dog's ages","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":1220,"value":"more_test = selected_dogs.filter((d, i) => d.age >= range)","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":1200,"value":"Plot.plot({\n marks: [\n Plot.barY(more_test, {x: \"name\", y: variable, sort: {x: \"y\", reverse: true}}),\n Plot.ruleY([0])\n ]\n})","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":875,"value":"ACTIVITY: Create a scatter plot of dog age (x) vs. dog weight.","pinned":false,"hidden":false,"mode":"html","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":948,"value":"CODE TOGETHER: Insert the attached world bank data. Take a look using `Inputs.table()`. Then, create a subset that only contains values for 2019. ","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":42,"value":"---\n## ggplot2 → Plot for interactivity","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":481,"value":"### Meet [Plot](https://observablehq.com/@observablehq/plot)","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":92,"value":"- [Side-by-side comparison of ggplot2 and Plot essentials](https://observablehq.com/@observablehq/ggplot2-plot-highlight)\n- [Plot cheatsheets](https://observablehq.com/@observablehq/plot-cheatsheets)","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":335,"value":"CODE TOGETHER: Make a histogram of life expectancy using 2019 data (`data_2019`), with fill color dependent on region. ","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":224,"value":"CODE TOGETHER: Create a customized scatterplot of gdp (x) and life (y) in 2019. Update the point fill color by \"region\" and set the radius to the population. We'll also update the x-axis to a log scale. ","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":485,"value":"---\n## Observable Input for nimble interactive visualization","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":675,"value":"CODE TOGETHER: Create a range input that spans all years in the full `wb_data` dataset. Then, create a reactive subset of `wb_data` that only contains values where year is less than or equal to the slider value. Finally, create a scatterplot of gdp (x) versus life (y) showing the filtered data.","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":686,"value":"**ACTIVITY:** Duplicate the histogram above, and add a radio button input that allows you to change which variable (\"life\", \"co2\", or \"gdp\") appears in the histogram. ","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":710,"value":"**BONUS ACTIVITY:** Create a horizontal bar plot that shows the top 10 CO2 emitting countries (with country on the y-axis, co2 on the x-axis) for any year in the data, connected to a slider for year. **Hint:** for sorting and only keeping the top 10, you can add the following within the same brackets where you assign variables: `sort: {y: \"x\", reverse: true, limit: 10}`.","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":746,"value":"### Tooltips","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":766,"value":"In this notebook, we've imported Mike's `addTooltips` function from his [Plot tooltip](https://observablehq.com/@mkfreeman/plot-tooltip) notebook. Add tooltips to any Plot by wrapping it in `addTooltips()`, then adding a `title` channel to specify what's in the tooltip. ","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":44,"value":"---\n## Share visualizations","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":989,"value":"CODE TOGETHER: Pick a chart above and facet it (then download it, and/or embed it!)","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":46,"value":"---\n## Advanced techniques and next steps","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":992,"value":"import { DuckDBClient } from \"@cmudig/duckdb-client\"","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":996,"value":"import { Choropleth, countries, countrymesh } from \"@d3/world-choropleth\"","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":236,"value":"---\n## Appendix","pinned":false,"hidden":false,"mode":"md","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"","database":"$undefined"},{"id":764,"value":"import {addTooltips} from \"@mkfreeman/plot-tooltip\"","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":1193,"value":"country_codes = FileAttachment(\"country_codes@1.csv\").csv()","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"},{"id":1194,"value":"world_bank_data = FileAttachment(\"world_bank_data@1.csv\").csv()","pinned":true,"hidden":false,"mode":"ojs","author":"$undefined","summary":"$undefined","providerMetadata":"$undefined","attachments":"$undefined","output":"$undefined","database":"$undefined"}],"files":"$W31","stdlib":"1"}} 30:"$2f:body"