From 0de642bd26eab6db070db737071c42b888734311 Mon Sep 17 00:00:00 2001 From: shelldweller Date: Thu, 15 Jul 2021 17:26:18 -0600 Subject: [PATCH] Adding all --- analysis.R | 9 +++ data/murders.csv | 52 ++++++++++++++++++ download-data.R | 3 + murders.Rproj | 13 +++++ new-file.txt | 2 + rdas/murders.rda | Bin 0 -> 1609 bytes report.Rmd | 38 +++++++++++++ report.md | 28 ++++++++++ .../murder-rate-by-state-1.png | Bin 0 -> 8345 bytes tmp.txt | 1 + wrangle-data.R | 5 ++ 11 files changed, 151 insertions(+) create mode 100644 analysis.R create mode 100644 data/murders.csv create mode 100644 download-data.R create mode 100644 murders.Rproj create mode 100644 new-file.txt create mode 100644 rdas/murders.rda create mode 100644 report.Rmd create mode 100644 report.md create mode 100644 report_files/figure-markdown_github/murder-rate-by-state-1.png create mode 100644 tmp.txt create mode 100644 wrangle-data.R diff --git a/analysis.R b/analysis.R new file mode 100644 index 0000000..3b61ea7 --- /dev/null +++ b/analysis.R @@ -0,0 +1,9 @@ +library(tidyverse) +load("rdas/murders.rda") + +murders %>% mutate(abb = reorder(abb, rate)) %>% + ggplot(aes(abb, rate)) + + geom_bar(width = 0.5, stat = "identity", color = "black") + + coord_flip() + +ggsave("figs/barplot.png") \ No newline at end of file diff --git a/data/murders.csv b/data/murders.csv new file mode 100644 index 0000000..8045266 --- /dev/null +++ b/data/murders.csv @@ -0,0 +1,52 @@ +state,abb,region,population,total +Alabama,AL,South,4779736,135 +Alaska,AK,West,710231,19 +Arizona,AZ,West,6392017,232 +Arkansas,AR,South,2915918,93 +California,CA,West,37253956,1257 +Colorado,CO,West,5029196,65 +Connecticut,CT,Northeast,3574097,97 +Delaware,DE,South,897934,38 +District of Columbia,DC,South,601723,99 +Florida,FL,South,19687653,669 +Georgia,GA,South,9920000,376 +Hawaii,HI,West,1360301,7 +Idaho,ID,West,1567582,12 +Illinois,IL,North Central,12830632,364 +Indiana,IN,North Central,6483802,142 +Iowa,IA,North Central,3046355,21 +Kansas,KS,North Central,2853118,63 +Kentucky,KY,South,4339367,116 +Louisiana,LA,South,4533372,351 +Maine,ME,Northeast,1328361,11 +Maryland,MD,South,5773552,293 +Massachusetts,MA,Northeast,6547629,118 +Michigan,MI,North Central,9883640,413 +Minnesota,MN,North Central,5303925,53 +Mississippi,MS,South,2967297,120 +Missouri,MO,North Central,5988927,321 +Montana,MT,West,989415,12 +Nebraska,NE,North Central,1826341,32 +Nevada,NV,West,2700551,84 +New Hampshire,NH,Northeast,1316470,5 +New Jersey,NJ,Northeast,8791894,246 +New Mexico,NM,West,2059179,67 +New York,NY,Northeast,19378102,517 +North Carolina,NC,South,9535483,286 +North Dakota,ND,North Central,672591,4 +Ohio,OH,North Central,11536504,310 +Oklahoma,OK,South,3751351,111 +Oregon,OR,West,3831074,36 +Pennsylvania,PA,Northeast,12702379,457 +Rhode Island,RI,Northeast,1052567,16 +South Carolina,SC,South,4625364,207 +South Dakota,SD,North Central,814180,8 +Tennessee,TN,South,6346105,219 +Texas,TX,South,25145561,805 +Utah,UT,West,2763885,22 +Vermont,VT,Northeast,625741,2 +Virginia,VA,South,8001024,250 +Washington,WA,West,6724540,93 +West Virginia,WV,South,1852994,27 +Wisconsin,WI,North Central,5686986,97 +Wyoming,WY,West,563626,5 diff --git a/download-data.R b/download-data.R new file mode 100644 index 0000000..b329453 --- /dev/null +++ b/download-data.R @@ -0,0 +1,3 @@ +url <- "https://raw.githubusercontent.com/rafalab/dslabs/master/inst/extdata/murders.csv" +destination_file <- "data/murders.csv" +download.file(url, destination_file) diff --git a/murders.Rproj b/murders.Rproj new file mode 100644 index 0000000..8e3c2eb --- /dev/null +++ b/murders.Rproj @@ -0,0 +1,13 @@ +Version: 1.0 + +RestoreWorkspace: Default +SaveWorkspace: Default +AlwaysSaveHistory: Default + +EnableCodeIndexing: Yes +UseSpacesForTab: Yes +NumSpacesForTab: 2 +Encoding: UTF-8 + +RnwWeave: Sweave +LaTeX: pdfLaTeX diff --git a/new-file.txt b/new-file.txt new file mode 100644 index 0000000..499adea --- /dev/null +++ b/new-file.txt @@ -0,0 +1,2 @@ +test +adding a line diff --git a/rdas/murders.rda b/rdas/murders.rda new file mode 100644 index 0000000000000000000000000000000000000000..b0916867ae5fd078ade74117e341b17861441e44 GIT binary patch literal 1609 zcmV-P2DbShiwFP!0000025nUfY!pQpo_jyqLV1ef<3!$;0wM?q?v%FBE8RP2OAk;U zb9dX`a(laFcdzXMp%_#k!6rsRHGoJ6QK$_Ffr26lXm|-h1q8+Ll&1(J5=4rv|Ft)B zM`LpT&G*mD|NW1d*}ph%`YX=qPK1yVnapNnGyyal;m?4~$N{4*5>Me0OP(N+YN84Wy?dUh>8cpeT}rtN%%c%Mqq9u}HZjQ5NrIwQuvKdT@Q7kU zv$%sKME%;`k|fHCNF%km<)BDdB4)Qz%~&RW$yr^mMUuC73w9zyrs#4v? zE3%#p!tN3LYRWlTJwg>>Wy(EHjjjpDVV(>k+FEg5}ZWxN_kbGLZR8GPZ4BUi%C@^d27;( zLrPF^xwVv1b}CV#|Kq!T_6gsPQXyVXO`xe-N`)GBpyp{h3DGK+32FoiNdqkt;Wj11 zaQX;TOs>#buo*r<(_J05IeelPP-IP{yKKIg5&^poFUy!y#L#4hW-?SvQEm=HUWQ63 z%FAacm!gS`c@ncNa8u;YV~Fi@dl+IClS>$yK~WJ~<(Xfe@$t!3=8b2}Jmce89z4s# z!}vU93>7d`$PmvEi^{_?_pn&J%+|}Q>t!{a!XhnZk(Mx)62?->qA#6J(KHrwSrRcm zUlOrAe9VV$27G5T+HL`W`29;rDmEtcRH18z4no(BDP!uIA;pez8$0+(-JiP0)WJup zjrmFbCt8YC5~>7AOWb!e`|PxTE#L#H5{W*Rwn>3#^wC+`UNC)}@%Pn%+!BBeM7f#A zauU!L6;MmuQ(Jut?wm!=pM8id{}E*^_83QNd8p`{A~b5nRFtu!4mq+H8nQxHQT=Ra zGW#3RQ-91x-yZrL`R~p|*$YpimzTGo38Owk`B{sg3Ef1~d)-5U8;xl7iHB&)ohTYI z$$;MUbEtE#>!|nnerV808|vP(3cWX=480I;Fbvqb3w==A3|-KRw%KdYnDI?$Y_t#B z|5F3X>|Bo~es~I{OF=aEbj(n@?H4pSD}o#=d9Lgj1rqGu;gKxGGyBKyZ%SWXBn z1Bv(P8z8fwG&f<)0U;p$K>~0@>!2_-fNdb@fF&5~Kze|1AW%}n92nDJ><42Nj9`OC zf`FYNr`-;@KuY5!2YCRJ3*3MW&$pksVHAuCNMFE55+`y3#13)}u1B1^XX4I0YL6H7 zPQ)7L>=e%lTR#df?y=z*wv->by7p)u&T!<{Z_3|{9ZS#O|Fw1?cD9Tg6B%@vyWe=l zJF}?}=k-8+R&RwP{dc33su2#rhTF z7I8OfJHOs|WgoU~@3rJWx6#<}ZoWCT-pO6-+*iDi{}wiE8F?XR;B9R2H)U6RvJ5}} zuwvl)JvQ!E?e?Y~7aMT*qRlI(_M5{!KE3CwQ;SyN%w0E*AK3jRclV!rUCw=X9%l~e z`*xqXi*b+2W%GZ~E^~iX9Nuxf_6+yfzTY%Ab_&}s=Y&tz2f4GJ9qS5y`vP12v+E=i z#!lO(^M(w*i!Hup|7!bl*w(UcUipyA+!fpPD^EAIU`y@TXC7r9!M290tGh1U$ldAk z`+;S3SvdXh@Dnld0{5_(_Z(Zk8h5$&_3)Q=y~y32UqVJ~U4+xtywm?+*JA8g>p%Ev z-{IWNn#Q5$Hh#~Y(i<*W&qT4kHQRe=(|qoMYhN82HH`avio51WcrVvnST3=*AWm#Yv|hd>>wQk_kMjlUY>68LLvZ9Sg&I<));Yw(yK H6bk?VgQE%t literal 0 HcmV?d00001 diff --git a/report.Rmd b/report.Rmd new file mode 100644 index 0000000..661d06c --- /dev/null +++ b/report.Rmd @@ -0,0 +1,38 @@ +--- +title: "Report on Gun Murders" +author: "Rafael Irizarry" +date: "`r format(Sys.Date())`" +output: github_document +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE) +``` + +## Introduction + +This is a report on 2010 gun murder rates obtained from FBI reports. The original data was obtained from [this Wikipedia page](https://en.wikipedia.org/wiki/Murder_in_the_United_States_by_state). + +We are going to use the following library: + +```{r loading-libs, message=FALSE} +library(tidyverse) +``` + +and load the data we already wrangled: + +```{r} +load("rdas/murders.rda") +``` + +## Murder rate by state + +We note the large state to state variability by generating a barplot showing the murder rate by state: + +```{r murder-rate-by-state, echo=FALSE} +murders %>% mutate(abb = reorder(abb, rate)) %>% + ggplot(aes(abb, rate)) + + geom_bar(width = 0.5, stat = "identity", color = "black") + + coord_flip() +``` + diff --git a/report.md b/report.md new file mode 100644 index 0000000..d715fa8 --- /dev/null +++ b/report.md @@ -0,0 +1,28 @@ +Report on Gun Murders +================ +Rafael Irizarry +2018-04-16 + +Introduction +------------ + +This is a report on 2010 gun murder rates obtained from FBI reports. The original data was obtained from [this Wikipedia page](https://en.wikipedia.org/wiki/Murder_in_the_United_States_by_state). + +We are going to use the following library: + +``` r +library(tidyverse) +``` + +and load the data we already wrangled: + +``` r +load("rdas/murders.rda") +``` + +Murder rate by state +-------------------- + +We note the large state to state variability by generating a barplot showing the murder rate by state: + +![](report_files/figure-markdown_github/murder-rate-by-state-1.png) diff --git a/report_files/figure-markdown_github/murder-rate-by-state-1.png b/report_files/figure-markdown_github/murder-rate-by-state-1.png new file mode 100644 index 0000000000000000000000000000000000000000..a0d73fc82fd161c9c1eeef6adf5378aa83d0eb6d GIT binary patch literal 8345 zcmZ`<3piBmx8E}u5-QhR%2!EBsEk~4nduW<>4y?srp@km&nLWL(-((|k!O zQWTQghlY`nl54^w6hahp-aX{}&pFTW%=EnT?)S3ZwSMnfzqNJ=q{HUoq6(rA1c@Km zZ)y!eSOkJFy&?jj2e#J2fgd+W7B>69PY6OMv_uezGoSIy)7%b;+m>Kq=gk3s2U z#P{`qHLCk~eSJLMmoHzya=ZcxuR5OhZ#a)b<#F!uI2>MI8W_#vZvvL*@zB{k9#}xZ3T+b+9nxkMLrDw! z3*>c)c7OPL*VRvmt~#*7dw0q!1-tQ&XZA~n_%zU2uPa!cC6gV;vh=khJO@L@el=~e zdh0(uGy8eWE@aFoU?@|40}Z2OH@Exc@f0D9J3;t=ea)o^CRzz^Do(HUAxk((_o!jk z6{(e5VUWCWwMz+MC6`^Cp8tV#$A4734u$VnRW)U0$~~bQuG1)@(OUNEczhKG=^L)C znR|;5U!!EHLS4|LZ4lc+H4D_7%!~MO$m-Xxr>5aiJhqt8hWC&yRw2_OEg~bPQa+_m z#fgQq*t$rl(KblPQO(+C3@B{3Gx}`_U@NRch@8pm7Mm@Xd~LAgOyT)}$v2;f6*Y!T zlUqN`gs6jQVKi=6)kubWY1Bh+!mH2b1J?KVv0O0XhmBusq7zFJb%}(ha(Tk!qQ7s} zM5qiBH&<$(Xxb~n{kY?GVUByR6iF(R2nGm|{gg(p1`kORp6;6k-1Zl^V;2olt@oiM~>1npqQ=5S~RcWWS}R6v@PN zJn10R6*IrlsV7-;B9YRPn7jRmE91k=*ll|~MO(YQK8bu)ew)TSbs61w*mKEJQ#n3( zJjyeaE{Lg-lEH+>NJjey?|3SlI_jmWB{lUruitDdGNemuofIKGkCMBS9*7+tY45&H z`T%sXk7^vsYYjQN6?x@()#hTMRnTTmF_3EwG8v()^k6uj7^hDk22wRZ&SMthX@f5x z`z@;$;`YnUY&78YQ@*}GJsrmuXVb(Ui{m^KHxyvRIwF0IHTV)m9C`M`Sy0H7)5#s&{#9k=wlUBn^J0WIc zPv}p|*TtzD3D*qCXL0$0Hb9f?;Mb-MY%kgIF|tWp^WfhAmftlM(Ei-s*8O=cK?9!bLJo%y#M&>>h9#Tvti zCy(C#OvE@c44;_IZh3n7Ez-&c4>O4$+D8WdIUHc#o%o+~U+ZTSQ1e5;cAKfS&qM#* zvhv-WDnMUgf~#^3g|vHO;;?iNQ;>bXEi>xTrjlh93X;PUwPTe2kz|+a{^^>0#_UKI z(Ed(j5b<9}_<2~(2ZtFwT&P8Wb8jn=+!Ml8xle#jE9*HAi0(5Vf13Gg>(PSmChVjg z#fr*yUFILfpODr*eE+xME@ARZ5|szZ_oVo$atU8}>oW0bch)Avn13t1w|1%ZkXDd; zC`~M`_o4y?O6|*YfJif=HGd$^-qSd)*(}aBjO0O_ii6lm6XL23FYB;Hd9ER-f+j68#B<4NnrQ z_GS(2`W7K<^GmUGUaRB;IO;A!u6&?Qadr=H5g%qB6-qd7K%+&V-V(%qf6C^+C*@>AV@DhlOkX`52eQ)GK%`U*yT^_F(U5ZeIxvDA>@zlyK_A%g3JJL|-rs0*%?I zc_9VYcjmbip3%a|Lc6(Klm2t=uBe~#V4qSn+1+UQNmCidA$>1rQQXNQ!ZS0~)NSux ze!!6R{7~EG3v(k=iw!TnMz!E8f^qIC=@lFP8*E0WUQGP+0nrHf76&|9*)m*)T37&I9)Z`6O{cEZ#Vb)gd?!tT4Ma$eUvV$|1TaD^BN+Az<~qMV9D`Vv z43Os_{xVikk9M9sy@TeFzdGlCOkeiqc+$ROR(!d@T>^Hs>W|F zNcPM(Gjt2~ZI>!<-c+Jrl;U_!i3Sdtbu`BI5FVP78D4E-cr_}!Ge z9A@Q__lDjR@aOt9nedyV0tKv$HgIF}S8#`GJ-65wHtp)tY_$-SK3Hf+sM`sZ~C-*sFkIF@kcI>q^mq2>Y#{O!S&bbsSc2P=qlYqHX^k9vSNM6 z7Z>BBC;-r0Wo2io&%1f6xyzo*qHI9UmR*i_MFKNd?>)k!UkjM|Ji@pTRmp7$v8(-$GCzuZG2SZFo-cCA1Cq35ma zma{e(Z_4(&v*C*Fy#Y8|aIbAdnfZ^La(7F$Bk1+Hgh`@o-!dDHL6$;)4OP`~Hul@I zt|i5wwDkGl$LMdlT_s+6Ga60E0zffsF;(_?2`Wqg3dg zo3QdKs(^SIz~?@ysy*9%VZWi-`V@V3--X+)PSG~+&E$V%5^d3VfuRS|8?`OksQ%*j z7Nyr)>EJ2;-_fS4q5WOWswJL+_3m@Jlo%(z_)`Y*=3ai8slpt5;%lJ&{?_2jec(ut z&Sqk}d0em#U4!_uM@3&AlH2GF9vp;p@})+?254dDn!8afTNg$Ue9jy1)sEV>wR%5C z+tLJ46XIwZcwTE;2r-X66}2p+fVT&GJjedhr6uobwF0TpA^(be0kPeFlc9bka%rO6 z^Z|us;&7O4?s$80{)=jJ_2GbS{$Ul&{gaw=E$nLMwAVv+d$$3xigC<~>mm)I2N!HE zeN^-jCHI7p1_{ElnMCJ{3IH_umq^m~hp;a;X+HRB`BCsF@~vmvIYZA6&#;e>?hss=oly_fBErld}uqsxc$HQ4|s zS~$wRM96PWBzvhg17v_O=J0wA32in&u;c5jq;%n_gJ4@Rc2QfW;r7A3dwy&DAO=p{ zehAa{*xY*2d4qKvPT5N^uWr9~{t6T3%Q0k6?~WeTwQ4q;@4Y3-zTKweNqWdfAnd?8 zD?WT3TnBxmxJ@Z!+yxC*0^Y?F%02Xphk!pt{oiV~3I5J?-j}or--+*=7M(12fNH$! z%L}^+lcAc=iMo3l1FzpF=tP?O07aHbv*TQ6-PRgM&3exb?TuKq6ET?nreJ()H_*8Y zj@z2nUqAVGB|dp?Vu>`{coKPiUSdZBhL!i$ABUck>rQpROIe)U=4+@8sN#|hnxVPx z1D9#1aXtmOb&G}$|136V!Rc9sD2D#@#wG+kLzxm=Yk-)TGzg8=JpVN-vn<$B?_upV zq|>aXNkkDg7Gc@}`w3BH6<9>2V;_6 zfPsK_w7DL52ig*amw`&(lar})Dqx^B;pPj{i|P;f`LA%*buYZ!!q>d}+dn3ONZkm{ ze@x1AeKCHpuVDW%wF0Hv>-r-cX{Eo$f9p+*L>n}>t1@?;KQNtt|E2%A=Ir2cL20K# zMS`-itKKTQ+_C7tCf>WQPw`?CYisKktSpAAUWw7Ak9G6L)J&eg=98k9LzpDloIZ2A z>0BFVv%8wn-2HsIJ$0TcF~8)#dw!Tt{4@<@{5buIzjNk1{TXTJ$ANE*9;lo20#T6DT#b> z^qgLEYLF0+M>b0mfnpV%7Je+jK@a49V#Pf@CI`Ry+3Q&w_B82El_~S2$Z&HXH&z`qX}~R)4Eqy_4=0YbXAt| zj$1>T2NMU^D*&_>*v0mY4O8O^}(Ogg*$aZa z2B9#ZQII1AR5=B~%^KQP&0M_;RK`$hznZ{JZKf!Apo0Mq>;xL%t7udV!oW=$cGxB7 zR-}p4m$+kxL?8+Q@p_I!2Hy%Myr4zoyv*z@gLucmyo&(*FQ5~Lb91Q*ZHjudII zT+RfQ8;RS6^lxT<*4u*NuxiW7lrwMncuixu^9Oz;ykGY|Il!$EVU02hB{S z*#k}ZIeK8`CZrto?NF%#ugTEi;+QLMJg-G2`umgbIk%T{fL(;vxhJuux-!&K*K^)$ zm(py;5aA0n9J%VD+fo`%&lJ#rI!>%lu_x6QT49(*!leosI?VgKr94UE01v>-0U+)# zvEWDvfYGJEeTQ1>7=|6r0BYNb^qtVPrzMAOsYfd+l7v4aA_BbrbsDSBUXD(JfoIpw zQ<}Ct<*}X2P4xDCcrzlzZc9oeXPhdxaEuuDn z8ym)l<8qdS=b%v15s35Iu&O~!t$zsQ^`G6`n~?SVfT3`<1g}AUhMU^Yhav0lJ&g27 zG$UEX?hU=d_l!0W(`e<~SY_nwXn#muT;6<7#UDsE*jWa0&|B&4QXBI?kTWl8Q?;1; zLq(yo`0}2u-gTqPHd-9nds)4+q?xvBWrJFxq_L1U}1w=r@JLK|M+Fv8rgNiq~QuV6u{adPr!w1_OD&nRL@jT&ezWx=`H^v$RwW z`A>XC_eTC1!QT5hPv3eS9&D?(v}j4y`Dwv<+UAu^od#YXY`ej#=jdI1kI(Wl8!S0b zTfCCB$(D;zMRF=Xh<+_BXhP~pkvq#+YH9>OgnF(ONZ76HtU*Jx(t*MM5T1P2Suq-0 z*+ZXeu-{gseNDp~Em1NBNs}tpde4L1)*DE)n?G)~cp!(|q%5LXh}t2qt(Sen@Y;`m z4!1l0Xx3S*sbC3dUPGEcH*VAkqzk)CrdX|Wr;hoQuO9ulm@9090{6`{&?B@kD#HEMEgbg*T8jMJgaS*nHzNzECr598ZDr(C z$Jp!wMXFF~ApdX-dJ!PF5HRSmPUo~MIG2otzobV|*4et9JKVdFT`15fD2sqRv15~u*c(L6@T%okb!O`MN|(^ z_P7VqLy$fc6+CvPX_`_auSC{ z8w(ShX)XaRdDpbnF7mx!y;y1I-%t7n7sDI|$)K=>LdH=iAp?Qg$)HlXk9BGZR-#ZA zY~eQW^+KOzNV)I&J<+4>B22XKAVk%a$c_0**8*sc=2cxPmplf(LnZ%fWUzs5#+|8r?Fc0LxuIGsa+z**-U1)+;0ztl zWwAR`)7HuMiSZ)~#P-{1Z}Dm%$3C%i+wl*tDY+q5MJHLt65D$cr_FS~!j$F08`;Wnjm7CELQVJK_d*GnF9s3barOTzJEWLQ^IgjEWdIq%X=CkA3agB zBkCyTzvGMyhMsmz6^TaOCfYn)@e~H>e7M=DnlN7D(TlJXCBFkAU=1n9G)>brbq_3& zh?HZpzhgDv`8n0QFsQ=?5T5_yfhmoduX{+>;c_$N7CC?k0xOa+&1NR8VD*hQ+v*Qt?UnWLG6Z70RA)ii{Zr1 zC0c?b>nSFg#T@so;cZ>y1*_RFcDGJv4bmfgejUCP%zUqnIEK(SAp~H{F9M}Lcl8-W zdGWmx+~TZ3JsK9Qn!k$s_CLn!BETu4)vONc;GWoG(oFa~i30W;E*X`Op-UwCd99H>O8^mq0-EPE#!7y-xYE2Zq>fp_2V! zX0vt9ay4Kdb*!mN=~(yMFR5SelDE*i1j7Adn(NQGV?|MqCCD}GkkbbhLKU^#vnc|l z6nxw{|3WXi;%nJPiv*a=ObWYaY`XTm*ze-#Cc%07ej@p7!LA+k}g~YO9 z-b3CE_#RLB!ZCWYV^u+|nWOyCH0pyMdZKT_v_e?pmXRBynft2#Iesj^<>&B)-X zfNpq&-Yts9qpgB|Yj@a+1=hIGhU2RDtp%WK8-~iqq=JQ zFdJzG%165oocKTQN&n}2(@~X$A=jV5h>i$ZZv2y6_sECyZ^4TeL5z=*V9}k>iNu(& z0d+9Nao?0wz=@M!zcC-A~!L`Ph^^!c;THW#G)nw`4QKG^t@=6G`r)wn3O<>9oCg+1Df z`~JDHxh%a2c~Pn>itVtj26ITpkG09)ZwT1N#n}KG=Kw{C@!g Cc!sb5 literal 0 HcmV?d00001 diff --git a/tmp.txt b/tmp.txt new file mode 100644 index 0000000..ed041f1 --- /dev/null +++ b/tmp.txt @@ -0,0 +1 @@ +temporary diff --git a/wrangle-data.R b/wrangle-data.R new file mode 100644 index 0000000..53ed991 --- /dev/null +++ b/wrangle-data.R @@ -0,0 +1,5 @@ +library(tidyverse) +murders <- read_csv("data/murders.csv") +murders <-murders %>% mutate(region = factor(region), + rate = total / population * 10^5) +save(murders, file = "rdas/murders.rda")