31:T95f,data =[ { "nameLast": "Trillo", "yearID": 1979, "HR": 6 }, { "nameLast": "Trillo", "yearID": 1980, "HR": 7 }, { "nameLast": "Schmidt", "yearID": 1976, "HR": 38 }, { "nameLast": "Schmidt", "yearID": 1977, "HR": 38 }, { "nameLast": "Schmidt", "yearID": 1978, "HR": 21 }, { "nameLast": "Schmidt", "yearID": 1979, "HR": 45 }, { "nameLast": "Schmidt", "yearID": 1980, "HR": 48 }, { "nameLast": "McBride", "yearID": 1977, "HR": 11 }, { "nameLast": "McBride", "yearID": 1978, "HR": 10 }, { "nameLast": "McBride", "yearID": 1979, "HR": 12 }, { "nameLast": "McBride", "yearID": 1980, "HR": 9 }, { "nameLast": "Martin", "yearID": 1976, "HR": 2 }, { "nameLast": "Martin", "yearID": 1977, "HR": 6 }, { "nameLast": "Martin", "yearID": 1978, "HR": 9 }, { "nameLast": "Maddox", "yearID": 1976, "HR": 6 }, { "nameLast": "Maddox", "yearID": 1977, "HR": 14 }, { "nameLast": "Maddox", "yearID": 1978, "HR": 11 }, { "nameLast": "Maddox", "yearID": 1979, "HR": 13 }, { "nameLast": "Maddox", "yearID": 1980, "HR": 11 }, { "nameLast": "Luzinski", "yearID": 1976, "HR": 21 }, { "nameLast": "Luzinski", "yearID": 1977, "HR": 39 }, { "nameLast": "Luzinski", "yearID": 1978, "HR": 35 }, { "nameLast": "Luzinski", "yearID": 1979, "HR": 18 }, { "nameLast": "Luzinski", "yearID": 1980, "HR": 19 }, { "nameLast": "Johnstone", "yearID": 1976, "HR": 5 }, { "nameLast": "Johnstone", "yearID": 1977, "HR": 15 }, { "nameLast": "Johnstone", "yearID": 1978, "HR": 0 }, { "nameLast": "Hebner", "yearID": 1977, "HR": 18 }, { "nameLast": "Hebner", "yearID": 1978, "HR": 17 }, { "nameLast": "Boone", "yearID": 1976, "HR": 4 }, { "nameLast": "Boone", "yearID": 1977, "HR": 11 }, { "nameLast": "Boone", "yearID": 1978, "HR": 12 }, { "nameLast": "Boone", "yearID": 1979, "HR": 9 }, { "nameLast": "Boone", "yearID": 1980, "HR": 9 }, { "nameLast": "Allen", "yearID": 1976, "HR": 15 } ] 32:[] 2f:{"title":"Five Year Performers for the Phillies","cells":[{"id":0,"value":"html`\n\n\n

Five Year Performers for the Phillies

\n\n

Code Used:

hitters2 = Batting%>%\n  filter(yearID >= 1976)%>%\n  filter(yearID <= 1980)%>%\n  filter(teamID == \"PHI\")%>%\n  select(playerID,yearID,HR)\n\nhitters = Batting%>%\n  filter(yearID <= 1980)%>%\n  filter(yearID >= 1976)%>%\n  filter(teamID == \"PHI\")%>%\n  group_by(playerID)%>%\n  summarise(fiveyearHR = sum(HR))%>%\n  top_n(10)%>%\n  arrange(desc(fiveyearHR))%>%\n  select(playerID,fiveyearHR)\n  \njoined = inner_join(hitters2,hitters,Master,by=c(\"playerID\"))%>%\n  select(playerID,yearID,HR)\n\njoined2 = inner_join(joined,Master,by=c(\"playerID\"))%>%\n  select(nameLast,yearID,HR)%>%\n  arrange(desc(nameLast))\n\nwrite_json(joined2,\"5yearHRs.json\",pretty=TRUE)\n\n\n

\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":139,"value":"coolbar = vl.markBar({stroke:\"black\"})\n.width(800)\n.height(800)\n.data(data)\n.title(\"Stacked Bar Graph by Year\")\n.encode(\n vl.x().fieldN(\"yearID\").sort({field:\"HR\",order:\"ascending\"}).title(\"Year\"),\n vl.y().fieldQ(\"HR\").scale({domain:[0,150]}).title(\"Homeruns by Team\"),\n vl.color().fieldN(\"nameLast\").title(\"Key\"),\n vl.tooltip([\"yearID\",\"nameLast\",\"HR\"]),\n )\n.render()","pinned":false,"hidden":false,"mode":"ojs"},{"id":220,"value":"coolbar2 = vl.markBar({stroke:\"black\"})\n.width(800)\n.height(800)\n.data(data)\n.title(\"Stacked Bar Graph by Player\")\n.encode(\n vl.x().fieldN(\"nameLast\").sort({field:\"HR\",order:\"descending\"}).title(\"Player\"),\n vl.y().fieldQ(\"HR\").scale({domain:[0,190]}).title(\"Homeruns by Team\"),\n vl.color().fieldN(\"yearID\").title(\"Key\"),\n vl.tooltip([\"nameLast\",\"yearID\",\"HR\"]),\n vl.order().fieldQ(\"yearID\")\n )\n.render()","pinned":false,"hidden":false,"mode":"ojs"},{"id":266,"value":"coolbar3 = vl.markBar({stroke:\"black\"})\n.width(150)\n.height(200)\n.columns(5)\n.data(data)\n.title(\"Stacked Bar Graph by Player and Year\")\n.encode(\n vl.x().fieldN(\"yearID\").title(\"Years\"),\n vl.y().fieldQ(\"HR\").scale({domain:[0,50]}).title(\"Homeruns\"),\n vl.facet().fieldN(\"nameLast\").title(\"Key\"),\n vl.color().fieldN(\"yearID\").scale({range:['#8dd3c7','#ffffb3','#bebada','#fb8072','#80b1d3']}).title(\"Year\"),\n vl.tooltip([\"nameLast\",\"yearID\",\"HR\"]),\n vl.order().fieldQ(\"yearID\")\n )\n.render()","pinned":false,"hidden":false,"mode":"ojs"},{"id":315,"value":"coolbar4 = vl.markBar({stroke:\"black\"})\n.width(150)\n.height(200)\n.columns(5)\n.data(data)\n.title(\"Stacked Bar Graph by Player and Year\")\n.encode(\n vl.x().fieldN(\"nameLast\").sort({field:\"HR\",order:\"descending\"}).title(\"Player's Last Name\"),\n vl.y().fieldQ(\"HR\").scale({domain:[0,50]}).title(\"Homeruns by Each Player\"),\n vl.facet().fieldN(\"yearID\").title(\"Key\"),\n vl.color().fieldN(\"yearID\").scale({range:['#8dd3c7','#ffffb3','#bebada','#fb8072','#80b1d3']}).title(\"Year\"),\n vl.tooltip([\"nameLast\",\"yearID\",\"HR\"]),\n vl.order().fieldQ(\"yearID\")\n )\n.resolve({scale:{x:\"independent\"}})\n.render()","pinned":true,"hidden":false,"mode":"ojs"},{"id":38,"value":"md`\n---\n## Appendix\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":56,"value":"import {printTable} from '@uwdata/data-utilities'","pinned":false,"hidden":false,"mode":"ojs"},{"id":61,"value":"import {vl} from '@vega/vega-lite-api'","pinned":false,"hidden":false,"mode":"ojs"},{"id":63,"value":"import {slider,button,select,text,radio,checkbox,number} from \"@jashkenas/inputs\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":134,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":199,"value":"vconcat = vl.vconcat(bar1976,bar1977,bar1978,bar1979,bar1980)\n","pinned":false,"hidden":false,"mode":"ojs"},{"id":172,"value":"filter1976 = data.filter(d=>d.yearID == 1976)","pinned":false,"hidden":false,"mode":"ojs"},{"id":149,"value":"bar1976 = vl.markBar({})\n.width(800)\n.height(335)\n.data(filter1976)\n.encode(\n vl.x().fieldN(\"nameLast\").title(\"Player Last Name\"),\n vl.y().fieldQ(\"HR\").title(\"Homeruns by Each Player\"),\n vl.color().fieldN(\"nameLast\").title(\"Key\")\n )","pinned":false,"hidden":false,"mode":"ojs"},{"id":188,"value":"filter1977 = data.filter(d=>d.yearID == 1977)","pinned":false,"hidden":false,"mode":"ojs"},{"id":175,"value":"bar1977 = vl.markBar({})\n.width(800)\n.height(335)\n.data(filter1977)\n.encode(\n vl.x().fieldN(\"nameLast\").title(\"Player Last Name\"),\n vl.y().fieldQ(\"HR\").title(\"Homeruns by Each Player\"),\n vl.color().fieldN(\"nameLast\").title(\"Key\")\n )","pinned":false,"hidden":false,"mode":"ojs"},{"id":189,"value":"filter1978 = data.filter(d=>d.yearID == 1978)","pinned":false,"hidden":false,"mode":"ojs"},{"id":176,"value":"bar1978 = vl.markBar({})\n.width(800)\n.height(335)\n.data(filter1978)\n.encode(\n vl.x().fieldN(\"nameLast\").title(\"Player Last Name\"),\n vl.y().fieldQ(\"HR\").title(\"Homeruns by Each Player\"),\n vl.color().fieldN(\"nameLast\").title(\"Key\")\n )","pinned":false,"hidden":false,"mode":"ojs"},{"id":191,"value":"filter1979 = data.filter(d=>d.yearID == 1979)","pinned":false,"hidden":false,"mode":"ojs"},{"id":178,"value":"bar1979 = vl.markBar({})\n.width(800)\n.height(335)\n.data(filter1979)\n.encode(\n vl.x().fieldN(\"nameLast\").title(\"Player Last Name\"),\n vl.y().fieldQ(\"HR\").title(\"Homeruns by Each Player\"),\n vl.color().fieldN(\"nameLast\").title(\"Key\")\n )","pinned":false,"hidden":false,"mode":"ojs"},{"id":193,"value":"filter1980 = data.filter(d=>d.yearID == 1980)","pinned":false,"hidden":false,"mode":"ojs"},{"id":184,"value":"bar1980 = vl.markBar({})\n.width(800)\n.height(335)\n.data(filter1980)\n.encode(\n vl.x().fieldN(\"nameLast\").title(\"Player Last Name\"),\n vl.y().fieldQ(\"HR\").title(\"Homeruns by Each Player\"),\n vl.color().fieldN(\"nameLast\").title(\"Key\")\n )","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W32","stdlib":"1","titling":"auto"}