31:T88a,data = [ { "salary": 31799030 }, { "salary": 21268890 }, { "salary": 16329674 }, { "salary": 16329674 }, { "salary": 15800000 }, { "salary": 16000000 }, { "salary": 20125000 }, { "salary": 30000000 }, { "salary": 22750000 }, { "salary": 17600000 }, { "salary": 19555288 }, { "salary": 16000000 }, { "salary": 25000000 }, { "salary": 15750000 }, { "salary": 18000000 }, { "salary": 20000000 }, { "salary": 17428571 }, { "salary": 22000000 }, { "salary": 28000000 }, { "salary": 18000000 }, { "salary": 16800000 }, { "salary": 22125000 }, { "salary": 28000000 }, { "salary": 18000000 }, { "salary": 15800000 }, { "salary": 25000000 }, { "salary": 16083333 }, { "salary": 20200000 }, { "salary": 20500000 }, { "salary": 15800000 }, { "salary": 20750000 }, { "salary": 18000000 }, { "salary": 21000000 }, { "salary": 33000000 }, { "salary": 19315013 }, { "salary": 23000000 }, { "salary": 27328046 }, { "salary": 16000000 }, { "salary": 19364801 }, { "salary": 15000000 }, { "salary": 21142857 }, { "salary": 17000000 }, { "salary": 21000000 }, { "salary": 25000000 }, { "salary": 22000000 }, { "salary": 23125000 }, { "salary": 21500000 }, { "salary": 21000000 }, { "salary": 15450000 }, { "salary": 24000000 }, { "salary": 25857143 }, { "salary": 20833333 }, { "salary": 17500000 }, { "salary": 15000000 }, { "salary": 18700000 }, { "salary": 20777778 }, { "salary": 17000000 }, { "salary": 19500000 }, { "salary": 15333333 }, { "salary": 18000000 }, { "salary": 20000000 }, { "salary": 24000000 }, { "salary": 22500000 }, { "salary": 24000000 }, { "salary": 15000000 }, { "salary": 20000000 }, { "salary": 22142857 }, { "salary": 21733615 } ] 32:[] 2f:{"title":"Practice Problem 2","cells":[{"id":0,"value":"html`\n\n

Practice Problem 2

\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":247,"value":"vl.layer(line,tick)\n.render()","pinned":false,"hidden":false,"mode":"ojs"},{"id":214,"value":"viewof salary = slider({max:33000000,min:15000000,step:1,value:15000000,\n title: 'Salary',\n description: 'Select what Salary you want the line to display'\n})","pinned":false,"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":182,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":187,"value":"html`\n

This is how I got the data from r:

\ndata = Salaries%>%\n  filter(yearID == 2016)%>%\n  filter(salary >= 15000000)%>%\n  select(salary)\n\nwrite_json(data,\"data.json\",pretty=TRUE)\n

\n`","pinned":false,"hidden":false,"mode":"ojs"},{"id":228,"value":"points = [{\"salary\":salary,\"y\":0},{\"salary\":salary,\"y\":1}]","pinned":false,"hidden":false,"mode":"ojs"},{"id":235,"value":"line = vl.markLine()\n.data(points)\n.encode(\n vl.x().fieldQ(\"salary\"),\n vl.y().fieldQ(\"y\")\n )","pinned":false,"hidden":false,"mode":"ojs"},{"id":193,"value":"tick = vl.markTick({stroke:\"red\"})\n.width(300)\n.height(300)\n.data(data)\n.transform(\nvl.calculate(`0`).as(\"y\") \n )\n\n.encode(\n vl.x().fieldQ(\"salary\").scale({domain:[15000000,33000000]}),\n vl.y().fieldQ(\"y\").scale({domain:[0,1]})\n)","pinned":false,"hidden":false,"mode":"ojs"},{"id":254,"value":"data.length","pinned":true,"hidden":false,"mode":"ojs"},{"id":257,"value":"datafilter = data.filter(d => d.salary >= salary) ","pinned":true,"hidden":false,"mode":"ojs"},{"id":266,"value":"html`\n

How to filter the data here

\nThe vl.filter here is key\n\nThe first part: datum.x <= $ { graph }  \nsays: that datum.x has to equal to or less than \"graph\" (graph is the name of my slider)\nThe && sign means ALSO (like an and function in excel)\n\n\n

\n`","pinned":true,"hidden":false,"mode":"ojs"}],"files":"$W32","stdlib":"1","titling":"auto"}