From 6b05896aa509267a912238327ce9fcb1321bceaa Mon Sep 17 00:00:00 2001 From: Jeremy Foote Date: Tue, 31 Mar 2020 22:42:31 -0400 Subject: [PATCH] Adding a tidyverse example (with very verbose comments) --- keywords/analysis/output/top_queries_plot.png | Bin 0 -> 49547 bytes .../related_searches_tidyverse_example.R | 31 ++++++++++++++++++ 2 files changed, 31 insertions(+) create mode 100644 keywords/analysis/output/top_queries_plot.png create mode 100644 keywords/analysis/related_searches_tidyverse_example.R diff --git a/keywords/analysis/output/top_queries_plot.png b/keywords/analysis/output/top_queries_plot.png new file mode 100644 index 0000000000000000000000000000000000000000..276610e123469152f8619ed99c4d5e74f80b650a GIT binary patch literal 49547 zcmeFacUY5I*EhMmS`A6ML-2XYN7~; zG$C{d5osbN6e*!3^iTo;0)&!s?jW|A=Q-c^UFUtz_nq_jhu1~+z3*MtUVH8JTkE%P z@9XPoZUO%e=Huhra_;P(7y0;p2J!Ln-`TVtD7oWv`xidG^?ds04Nn6{QUfzHf{R(=byn~uz-NT=FOY8Y}vAP>sCQQ!EM{NZQs8AmtTI_ zv17-tzy1n=Kz8ojDI_HH+i$<^+O_NV-+vbt78Vf^5fv2`6B82`7vH^m_ntj_{`ljM zy?giW+qZB3{{06I9FUNZIC$`&q@<*jl$5lz^r1tCWMpIxA3iKAD|_U~k)ubC9y@kS zPEJlKYmvP$=}oi4!mw?BvOlr%s*v z^Ups|pFVx&%o$Bh&9i6Eo;!C=OG`^zTl@U^^Ex^@y1Kf0dV2c$`WG%-xOnlRfq{Xc zp`nqHk+HF{iHV7+sp+Llm(0w}%+1X$EG#T7E#YuD0)e=E`SO)3SFEh8u3o)*?bh|s1ckbLlqtO8Y0e}7VS72b^-Me># zf`abdyLbQo{Ra;o1P2E{eE2XVBqTI6G%PIa(W6I?A3uKbX3n**Q5mI2~1udi=tXlQI~Boc{DO-;?s%`Gi0t*xyeKYna$Yiny<{?(LZS5a_4W7n4-5R*h~xdwbiapVsLeh_v2!;uqO-n~toz z<9O*8;XUoYyc@lf`=n{dJ+JqX*B%D$6aMS>yI0N}5wuyJD#}V|Wt9}Q%5f1GR4YdB z>6k0AC=69l&17b*(B^;QGfsqe2=MWZ{smsgXDk8Pz?ZHowTaI(-f$b=8(Y1x5YR8T=(;$(CiWj{=+k34b_AO~q1xCK!{4>g966PG?)ZC2Bn?~% z@VvIH96EUF-c_LGS6DBpgK^*oDd=~p*c(#!9z^538#?)~Wz z7dsrhev;aBd;IBdUQ(|F09zS){{Ed5bTJmq*Y`eRwNMCivwD|hRzK*~ZobzhR(+|v zk9~f_?zK7wNl!6Z*mCG8cpcVf|3>n723Ea*z!|!#=u$G(U!=Z5FTGY*>~2o>qjF|K z1yklo9CqwQ6;$(}=fa9$=`f@wp>%Sj*R_LDAB0?axT8Hje^Om8z(D-`*dpGw1|Hwi zeOJh@hT+opA;LK}ZlW>b@GhqYae`rVhh*nzrH zca0dyf5vy?NejItLEYCy+Y?IQ7Qwg8B=%gU=fsM@s&l3wjB+POhLu`ES)jhip>g}w9=?$Z;899 z>AK)Q*zNDFRj@!cYUAl%{W4LQ9t@+Z!V9xn97qDY2m+Dmv+n(6W_brKu_Hcs_yZ z=9_+ZvYNsPw4Dr2LvNHN7I~Jk&*JcD+_|oqtIF%?dSlOEwVVGKj!m=-785to;@)X? zwPZ6LJ8!Uu{HRH8o{Yf|SH1g|u`N|>4h#G{ z47wN@HpxtC8fO;Ka%z?_diHEwxH>UiT-~Sj&kxBnnf5g+sDu`KA|YDt48*NtNHTl9 zM6#P60h)y#$-I0A>{ELGrR@0?OF-Y!F1%kfhd}14BQoO&)Z_@b=k!N!Nj4Jonay>;AXqaF{y%uj;1 zltxESW{9S}K*M8Of=1}x=2|8qYVP)0Ci6j$Z_Pvux~iH(a=8xT`2H7iK`u~XflS>7{s$l{XjBk>!yPH8@9yK9QC@Ps)l8&Um z_2M#iM)iXkWG=Mby)k2~!WARhOJTN65aFtupG$|)JmKp;opz;dmtfr&i?47Jge4H+ zN8ONGN(fLAeJq-QSDTVc$3oBBvqNY4mAnsa;@c{9blTV!G*7o|%_XXrtguru zwG(Y$h*?Ip+!yaA(_IKxuWHpm6_1;!UQ8AhH)-md!3b|W>e}a8krhC&nk(=>l;rNv zLJF6YHH3L8QOl-lZ3athlXMb?ykC*#$FsJ;ug$%;ZWs|-&)v;fJ0db#z`v`dK5dDS zk=TN?IL?~NExAjtR2i%6_pA;>CyGk8hU$^`dbqoKu|Yx!c#R~PD5dU+GcIqSo;R|g zF>&6{!Cff0Yv@%3V>$V@B5P*x4n|4va2^MevK6X0+He6C{BX@sUeCaCYLp&A+iV*Y z2BQv93cO1toV;)3+QLCP%D|fX6Xc4>1#0ZMNO|QNr-t^M#Pf}%`k;ARU2(+hQ$f0j zNfWt1*ZEim7k^rVc8wH(ub3H1eJN$i}iDh~gxl4tEiU>dIOQjK$CINBi zBB@!>;?_v<7Tccb={`kH-;0SU;VF^Q;^jX6tum%C_Ik|Xq=^V_jMeSIWRiU*7D1;e zi@i=M8Qos(vCjU<1i#N(>H>l&uDsXG#2_=D!hSe}KV0Ac7qNg1w@w=OM`1MfAWw*iZVOL!tMQy{Xo0_`*8ioK-@*GZxJ2#FmP}mKem5k0(cw^UUz%10RZ!` zhb{c7ciFn(?+O8E@D-eg3*UdnfY`vvr8!?H+p09<)Qe9~3qDBM5ht^tOV1j*Gkv|B zi5yi~QjT+Pq!OhFRXSK9>7S3{CPy?P<`(1Gob@i=RoN0QCEm=Qc{Rp!ipJny?kP^b z#CnGFY=ERF!E@?knt@OEv}UP&u^%1d87t>-ak*uvvLIH@&mRfWads#NFLyW2Dt>cIV>wgN! zm>WUn#u8)VOkF<|!;BtE4Qgu&<|{diu$ZH=n>`h*Z*?ahu+ha|X&%Is%EvSNUDUj^ zaVtt5n>~@2Z`{4Ah&iUVQZhmr2T58gk~p8yU$@ye=#M!=30}s14s#eAfYe*$t9E&E zu_UikzpFvo=qMNe@Z$yQWIBqwkZjiu)i`cqa6q_~#1s^7x-_&n(XypN;#Gp3M;Yo( zw!f2>Ek&uDP9%F8YfactdugH#`ndQ{2Cmn3o<%4c#hJMIoM#jPHDZKL&U zLv!Zou&~yb+_$4YXL5WM9SZ>n&$w9Z%h^J>IVG9xU{G90!60CRJi&^cAM2b+pu;^# zPZ{D?F~CCd&>yddf?RRkqLG|Bu?dt$(mYXjK@EqTd!%DEWU46IVJ+aya}DQT`aAf-`z zjJZ;AOxg3pjKG1C9B_>P+;W6b6Zs}|o~|=C)W2RO102)Sei9<@dtFP@(uX<45g-w8 zg(*hc`0}LXr)_LJay<^s7Rk$^!9Gq};xPoOlceR%>5oa0mTlsZwN(b8#7Re^CQg?B z+}+?tkuo-I2_nBKu8tp?b#@G2A({a$E_6?(wKWT7iI*`s3LSnn)D{$_f~sz{8d)?y zP2cW2JnDZ%ChDbIYq^0^XiK7Gc!8cWC$u)R2pm&%y?4>oUsv^L);}Sjlgt_fq+g&? zx)F+NA)vHZ=tf8D>i4V~pG*;Cx@*a;WKm2SHb~d*q;*BRr~h0Uh3?WIZRcU2h1gZ5 zVaFQDF$RQbQi9e{W0IQL{s=sWmRGT@c=iaAT9LSBNghbqnQJN4Q(Om!9FE;>)Elej zlpc%r@Vf|G0hD+Qv5OGsaEAu~>r(*$_}f1K;B1!9U!Tpw1<d89-2sjlB>>8IG2b()4n#`3HMOA1*i~C?W04ayklsMlZz$@&o zpf!iz1!C0nZxNuaaDLsjzahYjZgpQEVD0}10$%tV1WdvF3kX zz9BMvBlNHc@<@wiMFAq-ZD3k;Q1fZ?;cx&b)3=utE0=Q60z^2bC9*Dd(mg||Gb~QE z@GgJ>fnB_S>4+Qb>?kdh#BM>UA^WHe0ooa;s?>_GEk3TzgerkGFBvegb!z+qm%$G8Pp$qkCSV;hn=h8h7bgV?CV8~BKEGynSH8c(;MDsdWmP-lC8v2R? z)mKqqo9bs2IR5(IqriQ~{yho=Y?2_{&VL#gv@;#cxueHgkPaoeahyt4d|mMFtgaU> ztf~Cgb|_dm8mbTV3(@Ahk6*5&^Xd)ZNHf&G~a@WV8HpCkMK!}|V2MQe<8I*dZ1L#HE6M0{uS zV?BwML^<*0NjY6p&#ruC{h`*ZV`lNZJQNR&s@(F##8s1(IocY9);YFy>l4)jz&?GQ z@|jpr7^R5&dZtkarB*f~C<0ZcbfqzwQ6ZmCMincJ#_QAwg_LyR$`AW1)DbE^Z}2w< z`v{t-D}`yPaovgvM_tFa1dDNplEz8}QG?~?F};NBtA&j90dgX^rHFnKCC`uW_)B{i z!$e|RzF@M+e~rnMzr$qw8)Nn4RVmQU&N9U$96ffDX-ij?PIAWyP&lr75hin1YmC`?Xx#rNsrzH&99sB-2n3 z>-VqoXj0VGJQ}xkri}lhivKi2U0Bfq5TCbXFMfI*;J)!PTLv&~S8XlZhWNtov64oT zEHmgS&c4*4YleeKaqD8ZjBEyYHZpq#d7TOy6nk(IVlVpimK#u$=2qBOhT~L+7eV2c zmp}~~KK^F8=&dYlp(Wt(bOFXsm46tA%Nu0$8KF#- zh4hp)3UEfS6~aQZ@L?6##RXiI)WO@#d#juYqHkqrle8vXz@cbgQtZ}*;+t~|OUbv$ z8pDgK2TDey>_%R@4~7Y-O#aCm;i^8Jv`u#FW~np8CyI_G70gqO8gmC-A#+VX>u?=A zmovkV^DFEOAPsKDBVD-tm7nBR0l+)mvIAE~SrN`OVp<$8!IR4!mW<~-ok`gMKtVfR zFt2I5kDit}Rkx?meL|gGa`Wczkey7 zS{NZVNjHscX$Y@SO3C$@cK4#SZ7;9|Gbce*TQl{z6IGa%K=}m5%Fao-4dr9;TU2RI%vX^MJ^04 zy{_3lJ0cJsxW&VFNZVU@7w_dU8GEwAUjSL_6C(yhV>PwwI4H$=_Z9$_Wu@|TY?!Ju zqsmja?9nwO2tPd&fDvWC-EW)OeWQAdprG@h;Njw_vL?#F?#~PwLkvk%;}(0)74)Um z&+(QYJewcHqyI)G774njnO!hpbf`8VTB3x<+Oq>#d!7Jm&)dod(V=bnq!%Cx;w-bQ z&UrM@co`VE#U0RYAOSN}6dk?F3XFx$81Ptu`9#_j@cac3i2XtDTV?ObL)_N!RgU_6 z$a}Sl^Nw5U742MQ)on|eknG?|YB%42oBFWXr(GVGnPL&V3Y+h>&PO<0SS8!tEKay3 zv+9ZO*6lFJJiW@rs~r2$=nt6!C+L5*N?~;!wZ^hDJKh`z&ZbZLI1Uh&FXxT(6b@@= zn-q}~A8g#zHa0&Qz5;cx9l6?p@u`ZkJ=LDSiTBEIoSgwsPy032Ujhhm@hhfeGol#J z_wt@ui`cb(dM23S0rFpd1><8^FPEeAkZRZOD6hU9Yip2-wOgh2ks41+jcPk|10GPb zWc-bqMh@+2N9MV)(!%{381TB?jk687R6~7z~bLakCxR+--bg;jNXw-p#u_`It+xOC_r-AW=pCjxk=ec{#%g1 zpQ7=sWyY5pidRW0*n${mgwBN0$!_h{R}nXt{DX{P;`W)2QyEt%=jtoEzW zu=Nhu3|*p^@bZId4JwDf;QWH4H&$7BmD$(Gp0uHNm_yw9s`CaJ@O-5#tgZO(Ugl|N za(v6g$X4;=ib?zfNZbtQ4%@^=d>ZRPmR^^wv9 zVk)EK*vyM6c+?xTjqI+SO+VKtaEnGOPm}j9kc~l>s&q)R@Wth`m9lx;R)rm76LbP3 znxh%2Gxo3q)#Ot7@bK#`R+J55gVc!Bfe5iMe!JVg2qi50r2G^ z<_a6?UvVTT*|@2p!M#D$E4`?)M98AuRc?DR2eq9Ko_lh{c+ZNEE+6D0C9)-&xV69r zC7t9Ni-}T-pN(%Wrz^tTtODaCDeF@6?d8g53+YXIVsrWbhQld{`h@Y1cl=f1FO4; zhyu39>7S#`17BfJmmW=Wpwf#{*#|N?Ji;A;;K^RJPhTb2X)tesoURj!m-PENtG@$Fi~}Fn}p}ioqU@QwPixO!%|UQi57M$}uXZLDz~@bU3n@0reZu;#gG|Rw$ss$cvDini;}IF6e|(rB8EC^ML=EG@GKbK}OA=IG zD)Ux+3Rbzs%(U;KCiJp71|3Pw!G3>BfrOQeWJk1ToU_$CthgkWT^^*#T~5J_(%C-Y zXKMf(HhEk!$v}f?fm*nOGca434{Q`)mEzI}$xv#vsaMTwlkKN`huV=&*N(38g>w>H z2?m_ta7Mi9@g>c016PV9H?m)X%UbUHBa5*72rdd_PrSo?NZA2({>Mh6%mDuH?#5$V zbL|bAe)03GSUk14!$J-@#_*4o5T7a?E-%7u5t~<@impvP2XNRZcn?3a64ZC{IbM@i zm-0~dX3H%8;HxY&-@V+p9Zq0K?ysuQT=&+lEw*sxBtXX2xY;~17~1VO6QAKCwyX3y zz*PIW!APIL6;g`Nn;A7YysTxQS3q742z2gSqDN2|2+Et`&W7$OFPrCbL93E%f4uPS zhbzUi?LR!p|MMN`Xm$YVSKrm7MYMMg?*>)qh#t!gxIz^pVYA?l|7$-^R_dpCX^rWGO^wvZ6lvT_D8S089URLNf*<#nTu7t(zDu4C6p&`*XZK~)!Fb+#QBB>kO$ z*zj)0OmSz8E=P6wbZi|Gm-dK7syhss{{^;uN%6^}21OoxriNrT6-4$GpQ|Kv8v`-*i0f|1pxN+GAAOGRMhwM_3qn3S&vG* zcBY`$If>y96rW2Vvae_ny2bA{HANU%Be)@RD#&=0|>8xHO zZ5*)Yv-McN1pCQnmR`s->@QQgV{^&oipi~a^#UhHnUrTOP62y$K$gdpI||X{$QB5{ ztPgMjN2cQ#-arid3t3XUPIWk{m3-B}$7=deXIn+oX;db(WKR-(OK2`s)yD$1O05be zcYb(j_eEcfUCxd*a-0ALB!%0F4HWxbT{izRr~!3o^g{$W-y+R$O{tr5mhH5n1jU9( zWI8mmC6#S{AdGoP9|o|@IOW<2n3j;bJgv|6RVJ;5AM@DDDjdr07p_k5^VdSDsl7P? z>V4XBw+MBfmwf2Bm2vTl4o(>9)IUT}Sql*wMTec#j`R>tfF?~jq&#ybs6!!^piIVJ2KY1g%2IRi0jyjVYoa- z%n4aUDzz^4?FWz3zorHb&sH5cYPjvhenb63s{z4Jdl3lw|MwM18N&$6-1KxrTvh7s z+gh)%rd3j}I##kxdW@`2yXk&f3n^1r2x_hyWo&i9O?$1#94JEdf>#g^fn4jWzrYWS z($Se53im@{0CI7$duu;96~Mr&52n?vC_b&wShd}A23boknq~6E00Wn|a8LbHSSCbv z^tny!9&^sXrl>O}pC+5$f)R4-Gmz!Z+~mg(MNwAjw`YWezWOx6pD;0n)KfK__s9R@ zjMQnk_f2=4(Oi4)88MW6vqBbsP2?mBHPIpHYVUUX(}=+<8$$@CbC~n+KjyNsx^5oV zPLy6<<+t0MLqBr?4jLPR{JF&l&U11c#%nOM!b~(C;9~L&_(`eJ>@?I^5`KwObv3Bu zWF(ODU7cPTnlmuTy)qkvB||w4SsHV(D3`(|J*HT>)FtCjdSu)W_8FQ*DJ^XpBSY1= zOO?G|4@*C8eN}KOCEH(%?h7PM_Q+EdmfLi^xRM-49DKcuwQt|@RaQ=W#wuz>g#czFu3D~@I2t9|InaMGuNLDI0E zTVGJ=EY6*NPkVVFBot2ZI)|G_fYTpaCx2NcHuufBgu%Pqt0B^_C@7+~FJ64!Bl{_E zh^@-h2u645qEhI>@xa$8*aEQ)o?@isQGj!}szR^Px{hezuJk3U)MzRk5 zW;Rbm#;M@t0z8>}OnJfrG>=N^SgFx`bG-QZm!2`>^ZDl+ecqsTC+Cs0O*=J}zUaZ+ zUOd_1fGu!Qk~-%D_1h4fDEzfi5}e*ydkF|UF2m_46?9eemNkhOg4p7CvK~zspN}*alg#e%>N}dymK>+okC@zspTwW$rh0!okb4 zeSz$#Zmf26;J!}2Gf4Bs;0tWrR#Ibu|)U+em^io9xfZJASd7s|SGzF=1ap(gY zrdCf6Nq_g~e@N2<-eqfb%d!)rwt`0`GLdv&g5^J2IXtdzwNkb;f*G4favoQh{n~q7 zYIMVGh|O|*Ebr4KBQ&2&Sxj7a6jHf38GRdKw^qJ2rnhrK)cv=p#H&)9Oz$L9ic*2p z=PT=#Fs2VeIZmKO60#xvL@T|Aw}>AXa^Up2isIdt7h!L~^6W+(-hw!}(C3l;Zw{Z0 zGTioNoesfuRb<^IK6rwwsnAR9Z`+-WgVVFb+d*Sb!0U{$W1h}DfnSei2g2#ptyHud zkjap4np0KcNhr^vcVfO>tPwN@up7Qqj$sTb%i2qg5)QG^Zs)&LcWE9FnDGj*80jFKbhvC2hy$N6uvBQuc9iCTem$1O^qpyit5tZp*8$GiwAF zkBQrg@0>G;Qka)3sb;2Tp7`2zS~faC#krgq!U+qTFHnRc=jy6<*3IgF8L4?7WG)0F zYD5%dyVxR@$lcJz5*L+a2~Abb)NV9#G;#R*>i&?q(SvBta0v8Sx5CO&;s|`do56jf zob<12Z)^#gT#gE8UmAn@k*8L;)C(Id{r;LrT>s6mGSQ9Vxs6=*wR{v)dLuuFv|T3D z`I}kggO}R{l`ko0~K*Z-&|mqGbX<=c}2k27G=>{d8kVrNmMBLf9(o?y@QXFhEFX3{y}Wx#Eq!uu|AOFLGCgYpg)zx-~f zS%hf=IJdZCW#XUD#LIZkupKL;3bUQx>`!xR$efEWKI+h1dGlU=WMRijRfWZGy%)Y} zfHlO;FRP=(sac@6O+G zI{?XY56jJ(#}kfpl1i4}3%#FR;gU)S(A05N3ey*Z6A$xu&jdpGszOu`1P0otCWc8~ zYIX~Fzd_}^8|&9$okQcKQ3iym)axK;{0i3s$V{?$wLJy?gAc{~Wm2e6Q>F z?cMV7_ysegwAX~wM$7_-95Q9LmF)xX1WJmHpHAS$PqVKB$<fo3ezGq%h@#fMw3 zIDdUj*$j5cW3j)DOGIS|HF4*;l;sks_ATl_Y~^#0jvz=ilwBc^Mc`IZigibiejR#> z^d{VT$cDGi7aK#sEs5wpvH#sac4zm{^j}W^i0$~Vl%fkTAH!|?0EWsl<5fvqfGwJ5 zDB$t~f#BA8=~aQg+Re%UDvZLvQ~-q2gkPJ`bU~N=v12XykAPd7_EnzFhL3<5{tR#o zlOg}A^-b~KRuvCG6%(GN9Tvwpv=O8A>(iW(9;L?@1aMVX8(K4ul&IH<$*sVO`YKl1 z4_kWGI;{Y`-@C_KLv^W5ckt5bbBVLMNC%^Hg`Z(N$PAE_}xn?br{rIa0|OBx*>0WR-^1zSxYmPC#P-+J;A87k7K9UL|KPJ zG@GTeB5%E)stJYS=*QG zvP@p6YHI2&_&|zhtuMe*0zfw4zrko;RZ(3@_q3USguT6 z*)x{~Gyhsu8+J{O4Jh8s(c|Le_=hifKWUd$=5w?Z;~uGN zKJ01H2U>Ic z{(@Micr}kSk|0C8yWUwk)LFq7n_mjtS*q=5&7pn#NDtL8DdO!X=uCWfbaV4K^O;r+ zLvuJ055GSpvP->f!f5ov*bBeL4FX=CZq{WNxE7|DaU}on8V}%(DuL)YZ4ntFlV7HH zy>0^Hrbtf+2)7j*3ZLaW5)UY_-iL{qbKdglN4r~#U(Od{o$_2BG#-eI#lwA3P0P!( zvqe}?zbni(+3)aK03NMbiwiJ2Qx^}ti6`+k9XetqjgGc6j43nW-j9AGuhOyo)BZ4i zAdCEEL)jHl94#5|8{H?!2NUSKt~-mT1l7Y2Z525PNVMo}WF#fQ)VRq87t#<61z^n= z#XVU;pFr(QAF2NX7lymawh>g)MHaH2R30*S%4gc+M2CO22B|+qu=Ivs;H1CZ!FJCI zduZdb<3V%<;YO4n#c?!iet(sxW)vc7@e!$={tSV$9qo<)nm;bk~M!H|&hEbbarLC1yHWq|bO(K9CJ78(pd( zb*g&*Ap@9{%POlDTN8AprJ~BpX%aS8LF(<5x{o@9}n4 z>}fNhG+e$8Bbl%KuIJkKSufngMGf}|vOnsh5(gQehuXZc*&hICQ z=%H7;bD#fb7t~7I{e1g+mBgw%0MQfzvAnimJu%2WP0-i{*o`poy4OM&HL0_qpS?^& zSq*Q)Muln` z?9;!-4)7WGy!D3LjucdWF&Om#al2mT>n@iA@T;r# z7n|_Tjfc4+Cv#fT@&Z%D*i-MH+|ll!P@WNeK>qEv3mw%U;+AN9gx&ts?~Fz3m?2D1 z##v;N;9BaD3HZwn4VW9bRpKV$mNf^0}B}n!p{yyK83jD z5^00W!@7r$tQgc#yf|*d0Ny__JP_{bIL8>Txs>X)c$_@(bX2R%bz)x1jmlsh)@T8K zH$GlHb28%&DGr90qwhC{kqz|~x}-;c#tjcc`3Ry`sa z%aTZdN?*7;+K>;Dh<>SJ+_czDD7GDpxziOiY%V=2iIWb-?6o24%u7p1d4_`5NeN*} zWzXmtLL0TJPF1JEv;H(`3=QSMOM{h%rfX=E3H&@}>{x9Z05VYfcoEh%st-$qiX0>y z9&ND}GH$xh>C(2M$8OojqV2&%@beZxLsGUzVt9V>rCM?;9L66x#FopQk{~Si+LDR| zqz|rSlJ;K8Z*??(_Y{c2eRD{hPsu=66P!Ir6T=2KCLwcjCHuPJzP% z;(aF>j_n4Bo6nW(IrDS>7_1G*(pu50V!0rP)~I%CV-{iN0}N+WFdW1`<&cVXG`IlM zJ7D?uF~vY~OBS}kvPQW4oNQJ;w#+MNUbH?hSpB4odB z{MbCWE1vcD%DcELRod-%QouygcO(37_G310PCEFR3-H6I`KlQI&0_x{>i+{p?NZu# zu-XT|(^6T^=VeD)Q~cE>OTW?%>E`%~L|b1x*izZju^ND4!2ksN0u0pG5Cs6il%+N~ z@j|elAjW@W!7SKp9X7)8TOhUVtm3yYYtz2iZ~f#APjtS8XzOYZd<)?2T>B1XoyhqP zgY71Li_msI`qAxYEc-*qUs3-LmHHZ{__rJALNRo$ed8HfI-A;^+JT(-*AC96)qzz?UM8Uz1kJ~aujz?p z99cQo=57RBqy1(@G7d|R9u<%tUGhH7$L_s6LxEtf8@~alO^cCVc5}<8{Mn5UV4pl_ zI(9vyAyUozkJ#h6cp}ZLO$rX=9sIPv*qHefDd3pnbIU}{2NM2@@1z$g=&yj^1af%yC60N9pq6)z^(EiW`N(I&Jdvv;m%X`s{A-v;Fr=jQyLmUL((kAx$2COAaNh>*?F=f^ZN%k28! zH-rc`xtQ3H5cFM_)PVnUE73!teV}b?fow46oj`}=_V1R-#*zNu%pa^*7IzAa6(ZBS zFyf+<4j)fV1^A7r!a(s95+cE~&NKyJU!CY*z@n!VR*V@#41tD)0{FnBLWl!`O|P0+ z#id9kdfmk8x$16I3aw(V3;;oXOK;xyDVP)luZTYXNxS>sn%? zU;AH9a~VD{vyD)cKh$P+;*h18HhLg0?QcoM_KlyCh>jnK_tdu;HZ4SY{wWx(PQKL+ z9k#s2mNxk{EpIV=*(k#)uCSTbn7&hnU`j#}h4~X$F{F3Ys5y4uFf+kC9zm1Ma~+1v z$u2>ry!#RDkTiwIp2SSc0Gn>l$>mqAlYprHG00si&!BI^XzJ18g?mut_Q`?1+EkPn-QJ)x}tH=OGUCkc;n*yUd6z~M9pwZll>2Z!mjdyy+aq8fmm>3 z^JiRs1=U?SI(q+d`LA?nYAL!sHY1h0*J?n#KC>1@j!c2EB_Gi$)PBn!<{pdrM>>== z=h^rMyOhYS#J1i_x0F>X#612;{Wwd_b5| z=1bJ<(2KsE9nJ_Gy2}MY6Y?-k@t~f8_^=Dt`?;Szv-zz_s~5GV>$UVNuUKO2aDTv3 zziiH+_bIi`<4Z6cNFs;k+YnWmAL}HAjD+M$5Z;T|F%sa4IPmY{isl!P7dgWk0&pkk zQtSLTYK#4mGTjdfE7ckGT@lP4&2RzXRoK&sbnBpRt>c>|FayZVG8F$sZdNW8ODkAf+UUt$ znzMCrPRBp+(DZ85s~|Rah{l?5$jurPY3ef(nsvpqm3W(|2!3wj%_H8$kTui1wK%O|YHJqKDvwlZ&de`ObMRmKwMn+Vy<;cKXZGip zYG!4YVwAH#ah(F!2q8 zGvF9jJGC@EebLaIN=1L@7D~eceenIQ4>B#GeZRMZg_1W-1s7jMEOD5;VZew^%t7A; zS{G&M88#ttRiZ8n(QK#`{O+>Ol7=)Z?7B(t|FuEVd85pht^r_T;27KK- zWy7o8yB}SjUPTgN;F#zY32_GFglWN4$iPy<^AUefpI59{I{$;HO5MY6l7THvyb=)4*K3-9!PUA~%DQkSx`LAvBY1&m#7F3jw2sF}U%Rd{o@VmNA_4e2@# zucuU|U33YicZppWCtzz*KMh1RB?xb*qc8e|e|2zHSV0cnK<+nb6I_i$g?QQ!U!r$L zBF;wmM~E+_44eSAF1c(Bb%p8l94L8Or{eYA zal*5n415p3SbxUiL(Fo!A97_gLA7`>O;~#Z^~+#SF{{g*xTK9MzdGC>8$&E%IUp4R z8lW$a27q&fi66Iy4tF%63Xeya=(B|rReS$s|93wn_F0X~-zD~${a+LNS)4obCkN^G zAP6!4W=0S$+jI6$GkF|X#Uq>afsz2kUJ=m}A5=4_YLB?@q{)ZjODcu?p^IAnV`Brv zXk8?cxLNA`nFar7QQzSQtR{9|pf{+Eqheaqt;Ck4mFfbyy=`X|ym)yhATibOvEuZx zxs2k%#hX_rv!d{(Y4?Jo+BhRVj6K|#NI`-UH<=}qN7S)2w76CgFX!hu*IiXa_0KR? zbaGKBD>7B_svYk#nd|8>Ev`iqwkQUGrLHGsc?dZAvz_r$+zh33R2qY~eHteKkNKys zc&q85y1F5fphvMBHpeixD3#6HwwX8JAjIWEDs9KxUtt{w$eh_yB~+1rGG@E4leKqr zFv3A~qLV3X;v4{VLV6AbFEs~B2-gfi=7t-~X3zA($*+3z60B-nK(?5o z9buW~WN5BU4S%=;qrSTTbnsmzbz!vuA-Yro>qWc`$eN@HxK}Eu;pz@XaVLJ|T6=RK zCIZS}2ph|Yz_~-Iy0)CbunvUE8@EZFk^loD5C&{f+nI%JC1Fs7*P92l={^NFqwm+8 z*(p;*n`|tQT|T#@`}cX%j+Gr^bzhFx5$Q4DZZgk6OEs|qd0e({WJ8x=iE?nM>PEAxZov-zdEz4>Eo{}&P%s{gKbtbz(0iiA1UPjY1&30kC^d^hyd^p zR^x?$i3PB@-6IlZU6U?!Tj$J?F;czb^}clP;tqGIZ~5_8=h392?P~JcFkG6 zZUd@*b<8&Lsv-tOPYD06tx+FV+H*Xo*Nmbl12}14eS#*M`^fz*(mOY2QD)$-wTrk| zlP#Omi%0bZ>T{8o2av~knmQkDZ!o+fLP zRlY|+?Oi1=wo5^!=x@G;^5lH;ZcYi#CeeY!JJJ^AO_sSDFEv`XKCn9gT--r3ZwM#K z%6DfKTMO|-_!YzDuLb0`AB%O+hQ}jB;KjL%bk;v3a-V7ae~ZY$*&*Wq(|=v+#xNdd zZtfNK(s&SCq409GI}2;Uv!;Ir&!YZy@XVw1{i4uQAT;??_-pZO zNfA-?7+SH^1vNiE9v9`qOmj0l>!fGsi08~>fT`iRHB5|0P8s&f-X$)$Gmg%hR-;PW z;Yl&eP@e;wa#{?F>g1ioN_#}ZQV zfbAui?`$wDTa7+uEtiI!xq^cXOAI5XaD8q0I}NvC_wPE&htM(9*9?1>;Ure%P#1ZM zq-_(>U{a~Kr9Gj*I~!nnES0*E4{nWsxFwQw`sp#}K-Po?qEg`sF$L=DdUet$S5*ZL z#L08_?cLayb{{-G`swa~5b`hSl6IQyB}GNkvU~H%qz7FoJ#}C+v9f|CybnmU(-^F= z(smI>Vz=i`UB{KEW|9`EPgQ~Yke|f7OFeE?%-2N5=C$1RQ;OyR!i(#1LU6njB#7;_ zWAfG^^UquWAPgA*0%lf$C2gjw3=;}*R=GeVrNYq%O3H{Dn)!v=8ggS%Yvy*6@VUjs^d$1q@(L+WGL zL~|pMibo#DPqgDNs8QrTvQYn5d*2<@^wza&LnI2Q5IJ-d0SUc#Fw&IXdz0P~q)JmP zbWu^NKme(shZd?xCqO`Hp+#!wy_ax*c+Sz|H*@FSnR~yP_nSHX!;G+#wb$BZ?Povh z+5Z0*XiPnT#@IWzU-|85#xHhUhqr04?`G#c6c!tB*?BZI9gO07&{@)N?VBPvqMod# z)1$fHe4@oET5bLc4JcRczm$=uAi%=z{C-ql;&(-2`e*1p>IWT#PuBersr3V~u^+oh^1hUjjkZ)z@C_SbF94S*3pFHQj+-F z8(n!puZu_Q z0WNsueM5Wtu=?!EwpU^{dnu3 z`W4y&Kc*k`7_5UC0Hfz0i4nk`1VqOEk#J6TWWIg-HrWVJkMe%|llb#RNe%jx;uj+@ zi4QHcR%2N zJ3gSA7lnUCe+{VW1Hrbjo za=6h?D`J6z6`;SK2dfz54;Wkstp9#dNgEo4E;NO?_{MXe7WLO#p!5(yoO z!YmAQK!G6kHQ9^x*k=+{AxAL_4nDDNPcv^XDG3_Z+4#G6^Z9V40;RZf#s6tRR^yqW+J_a2#c<6x`(^n)AD1>SD`+altSouhNE`3lstgidLc=3PmA@< zP;sMOo@2i z4V=(=pE-i9Bk^EvLM(*~fv#>-R8Z}J7oT6}jiqHHM7g?v| zk&tA}Y_(~s+K4>BeL0udwUQ`ajxYiHd>Xwba!eR0+XbRJp12!N8q3Lc-XaBK7GTkO zO5T}T`QedGfa+2WKeE~^NOX+PL8q{w*JmlirbV6%P`LyYP_naSH!1+7UwDA&DVDU_ zxbPbs)AvCD3hgVC97N>r5ThT?G^x1g^gLto5x$at*j^a0t6yGlB_edjx^QruUMnDt zJsU=Up&o%$i4v$66BRqGt}e_AT%0H$5Lj`?QwfGw~m>=(fK$&n!b@g9~sCFRs z(A=cV)+2CA$%B3QLF1u1R7O#Gi3XZLxdhN_@AOZ+1!?NI=FDn?L<=neUd(%XPsQJ^ zlVJs;F69M2mbfYp7jpEsD*~%uzDZkiS#!L-E>^1!b%`V9uSh~sJ#&S5KUkVRXJ`=M zJ4p`i>-^xcoh!1wkBeNSsjd@<5KXQJIxmEN6pSe=i`@_uq>xZAgmts&>-1DxZ!({( z=qvn&wRp_z>Kr~c5wN)t@Bfh&b$)UJ5IHejn|XyCnvVnxYbr)n_0Cd9A^P`Iv${Or zXDO*erC3Sv$U+l=iUfbD#F{p3j*8UA{cwP=lBJyQY@yu+*}7^tK!tAZ z=<9}JmV;M!?z3mCb>daOvsXNlv^1+^SfK7kmSJfG-8n>E>X$!Xp26=hO{^<@E!r18XC$`@s`K*NUQ zO6xM+!46J7we}>_;RW8+-Y4A+9QzHr2F~|_HwS+s_B5AFqSCpZ;2#O@s3boOw+Hw6 zFzLQm1trl48t$3#oLR*>4(!@9dF=sN&OcJ2zKq~-`I9ZhRGe-Xgt47I%KM8v@{sW=amavci4Q)el+{4#`YCn zO{c4?IpZRizVYEOEYZ*fnzf08>rHEzIx#uYqgDwSK69n0f-W zdmXB8Fg+R4%~6*n6|;a;>(`ZsTE!{YMsfxYIq%kSA_5Oy4 z9JkGf&8wyyt<3#Z6sYOviVh7NuCy?9dbqx_(9T7(07zWz+tm5C2h9vFizG!Zj~mye z&P7R?1kQi{S|+qC`Jv2CDlmX43n6v#s6VYac6@tfno_FDW%=tqn^0YH?C8oEOO`?V z-z1{p_Cgm!3E?8oO)|bcQ!U!xa^xpYli#PjTG328aE6NC5}bR0{u1K;&+PdUpvd2O z>sO)+2q1HZ|4MM*077f*?|!Dm|A)q>m21C3_Al`EFYxy7?fU-{;6lwM7*-50>vX## z=;lw0GvV0rT=`%*ybMsJl-SB-4uzgr>X!r;93;dopc)Qml7|>D-jaSO7s9V z`^*_`AwcBsjF~gQemL`a6xb%uJVl0r&Yd~)m<$kcJ2T4+NXDJ%R0gDy&cr4DH#M+b z5iUC3NPX5{aa?Fp*y`vpe6QNKRuq9wDo>pergon(STPrz%T=za+5XCOj4Je9dsOtM zt5RXv%hiuBGiWvpA$HKQ{5=z>X^q9qOVIIu>gKe|VGx{KC>w8f>;WHs-)Kn^Il-^H zQ6{=(h>kX|cg2Ac7@3_}1)nu5hM$=50Rl$xA56YOr5AWE)2Crz1O}_XH`*Utxw=Y` z#Mc`L)6){RtWfE~6TeS;!K1HcZvn=5REA?bhYvhC?)odxgO***Oj|Hv$a5I;pRR2SZ8+rcv<7h)Im&2!!B@-y|SiDlyxqvfMs0vc+V4w&@TOZc7oK_|F6 zj<`xAYa`#?baO}$LCq&PW$#fFZc{|534Q#mtXs(_r?CRy}Nd)!wFW<4Kz6+I(s}1~6V^!s~`4TinU{=^VO( zPWJ5xjFl;usg7PNO{VLaGql?eWT0Amo1rF!-AiPWG6<-m_@f5H!XcO}$#$Xy+B#2b z{IAbR^KNIz6|XfkVSJ1T}hql+M7pd`rtk*Jg+4bWk!GKthNO zrbf94^ZhjW6N}{@QJ^hP$N!5ggK?HXt0_YP_0%Y-gY5N+XC+vJV*xv@JE!iCu?6OW z?aNSH@aCc0TKw=eL5r6$)!xjf!DAsWloAqpIk}Asep1Q%xPi&K;&jj?UdB>1T{K3< zfb1JC8b_YTvX3W~zQ%;KaD_dcAWmv)=BuQ4D%E}qmPCG3Pk%+LCCiT%jAa^Kh z;uIpwOs{=>t018TkIae9dyvuMSaO~|@6imbC0g z6Na5tYa7Mv2uO_2dn;WD?uM{w<`l#0)wpqIfL??QG+jIG#Z9fTTS*T$$_A6zPP)c4 zNAh!GM<1ZHB1F8zkEyF`$_+J7)^Zty-HE>o@X&}RipOpghnP>a=*zfFE{p-~S(o%} zt6PGS%En?29`sLsb0RbCWY;~*`+4^q8I9=S-V0_L(eTkM+O&VP5%DWuOA96AteiR? zc9uW3ntEs2neb?~b0l`N&_3vxd5ublMs#FP88Dh|a~pEW`J;p|nJx|p_8H*cedhnb zpSR;x14pYLB!-rafzF)CrUe8%L(r-(riJiBrl_{dh_b_2L~*)3QY_`kSKQM+g1Z;r zE6CHDjzpf>z6$KulNPzK=L-JC9;$#o&fU8NvXfRNnh%^R($ZeeT@5*^vFv&H(kUuw z+mnNT?u;8uTg{oqRc-V1kx+U~f>8Ckp{lH)%(k$wz^b{>^Xj@|%sX+FDzj1&Bl+HP z7qoi3_+EB}cwh<&Gl%G>?h-sp03gt(dwP)j;?t4&zL4ztyzFG`y|(MfR6x!q8`dT9 zLUGdzVf>KzEck*O;i-MmI?yg5AM-^(`<_{*`nM551~&0Sc|90PtbRAON(vT zw*DqcVBo46l)(!qlV*^#1K;l6Y8sFLYu%PXpSHn`HN2DM0rfov9aJLL;IPH^%Ur{d ziVkO|J3^Y6{Nl{)%aA)e*9bkxPrp-|cgB|LX|k3DfUHQDYxlI+s5mnmL2MoPDEU}u z^<>&lI?X=_$QuLS$NIw+?^p+;-Ubdk>6)Lm(9!N0kxm$S94HR4t&0$@870ZEw7plJ zo2L#7y1N3D*4_2HpZPxTF!{*0?mD$JK`l=$?xu28ly7<1x#}B{E2E#bzt3}JSI0tZ zH9yft%bti&0Peb-F(aDvnY1(1H8p<=EZt zp{%kWnBka6J7EWV`OP6cKj^-F|g)j6Tb`^CcUFi3p}8q$1u{jQt2QS zHBeCmBHp3tNSJy`1Bl!|-HU^?RmRF?=#J{?5_~}ApH;v|TY85h1&l)8wp5TU@hq3p zzFIe+U@1k79iv(r2}jmjv!zd3Sc#YRx-Ta^+|+xlrw?_xl9X$=R?^+gJ-qMAw&3q& z*`H5QI^if}eC3Fn);ImiA1zZ|OD~}P%xlWC3zv3YqJ_S4$M6?xstnJq9FSrwET~mR z)SVPN0yO59>QQhihqw=+3vgw`kkiV0_xH1xv@8S&TMAJIsB0RHNQ}!9 zr%%2La^KM@OxT!8Ubt?qCumF4Ej1w4TH64&(n{1JSguKXo8;gr;$h+EF&6Ggf|M86 z*}ZH0qvv{%Z2P#QL5~VDYHb21?Qv&1?J{;WankY%e#XbSw9U5@)8C<^P$N8uKWlH& zfMvaL4<1yYf%?Sq?gboHSmhnYuUP-wiDbkc6=ssh{LF<{S02W7b6<{Xkd;-UUO7uk zMe{NZG9w{o>5ptVoCGz${9OV&xW^@utt!T=&H^7?#(8~=ytR9t^ZI?fo_w=Wmq2l` zn&K9jC#e?#CuIPkDQ;x`E1E~}{Oc0mHB)t=iM|lz!7@OGPD_%`1$BIOy;}gtn&0(f z2V3TGUSB98Qzsy%y(t|Wv7~8fBFfS$#BPwZc79Xy#-y>$F8^!X$zWgmap#^KI%{|9 zna^8JI$z9Io%NTT`OCb<4ML^lJK#~2fVE$2d+bSNB2pmsR-^Wt{fnLrJ?*ioRF?R! zD-Zjn8_Na4Xh-`XhFjL&=dhLqukV`P+lcgw=H~LIlq8d$5*7$8 zo9ZV=A4aY^v-{_7CWx~*p8BFB4=Zeh@fcXHNk=E}#+d|)nb>Ogs3=}IHk*8ZbDAbA zGS`GaRy>#-{62K*sS)An`2M8*#+8k@yj#QLn)aLNwZJyl{gL^3;E@J}_@ZaCGvHUWT z^7q8f{)tsZy}A`;*@r~6cj_!i#xxF-wP&Jd@0Y~@xU1p_>C5sLv)@7$ucv=L8-=pp~^$V#rUf((|K-oUK-m6?x#OZz=LM9Y0PN9+Z|Wy>boR_V?g%1edP< zfpm436%_;?c2Iwk*}*!HF_zF{fH55MB4G!+hZ-N4-(1=ran3{)b5uiY9c_!dMq^@^ zp1=6xIH#b@op{w=)db^L`N#!dgh*#WDY5zg&LfV%=H(zv7XJ~RAwSh_7utZ*-$y$ zlz^70W-+$#Hu!4X3d%idyO)E1F;GX;v(V?T^*YdLM^tXhL^^?K9=kAm3jM!iwP*4k>i@xTIK zDl^2@7~kkw7rntDft|mW@L4Dx-iVD|^Xq2QI23K~d0Z+RWh5&6txT|Ys8%$O>G@0x zpC`Y>9ml-l5LE)Z-0d`yt)**b`I)VSLBrX^v3|%R z!$V>i6L5=WV)PHVxJhBq9L2o~UNNniS@UX&eHypd-qx?ryV0I*p;OrmQ(10s?&C$C zTu{~UYtF2Rp8e&Mmqjku;vjRZ6??wqc=$u2jN}e#Bq?g`?&EMyO#XR1j7Df$<{MHx9{wxIh#S)RN{AY;bRv2;r_GopxVo zWnpc(I2Uj))5xX>X|Pktv;BqlBX0Vtj1E?5A&@yx6i8G@`2blozG_3Z$Nbpi#THYX zDiW;mE{4(NlJBiI6y;319Vb4!_9@I&-r8?64d^@WqUp~L*gx@uWCvNc83;&UPK{4* za*x_nPl%Az=^A3@@Em%v7o#1~_~AHojRX25Lj`!zNzMe;)tnsk7JU;JVlykuF!<~= z$qNJVa=sfO43srg*Y4qDG0BCQ3&qM4jO7ly?z_oJ}j|-{l9s-*CQ5 z-t);|Q7(WST)Gm^_d=e)I4x6>gYn?y?HByw3Q9|n-noYE`8xstJtF=2m5(xp`T)Ttd)uFtQIxX9Gj-}= z2Q+rcW4IhIyGQXhb>OIL6r>BKml8brI2HD-tP(QEDS)=8?B%$9^HaMK?Qq?r{r4>V z|B;j02gb6ze?Dreg% z`dYBwX4dng7`GlKvAqYkgKp65NLsq$HeY4KxH#wMa+8`KmGAyF* zs|IJoIM=m%y6pYA+Cx$Y6rr7)*G&j|M~zm4zswolA4rt>2znAO>fUF5Sj$`ps_IWc zxZDR)vvLws)3n*g({0NeCojzWZ?+&X2Yq=Yv$mQ0?A8|{A%9M%I!4d3>j7G?RLv9* zs{n7-X3qL7+nX6I6%nm-EK&t?D6+lc(qK#m9!B9iLMBgZy&0>W!@Z&H{5hNaAZ;+T zXeqWk7ZxVBuKflV6c`;5$8q9Co(45@G9v?Q^&KYYa5S+X^*^^IHOrh8#N0u1eoWS1 z2Pl=nO>~dVuSY1GC3X%>EGqW-y{1W>&^Z2DRqQ-g75R`uJ?Fsm;K|;c*}Xqa?%&$e zzUr?TPBd)-B5(#%@#l)W@w%Fc{h1T5VQ?Xr`lg7RXoQVcI^Y&a2+Ri zixlv1um)u|1O8Hx&bKLD=+@B^L$m6^%Tq4Y=}%l&Kd^;d79H^^wB zhigI=kB|p&$bDasoMiAvvtJv$E_Bvq?_w4pddLf%iaksXQtFSMb)s~Xp%186^rk2{ zEPcjdaZjs9E8ac%dh*gMN^q(CO8I@t)dHX}U_B^t1AN?MLKpK{Ail71BsP1WT;v`- z-C;U)ApD96`PX-ZmPc2Gs+8n}vaIGWti4;qMvk3e)Ew)QtjV ziFZv&5ital*C$W26kSi>XBFj9FH{KPS6x_$iNN`#ZUWKZ|SaDV2faoN*tScMF zJE8yWAW_f++&5V33*F@Hbg?fcGK$_8tpO&b>RZOr8dFjnkrva~eM73R?{G6G;=7yb z?x=LD9_ILLhMm(;kO9vrw}mvQ*p^?3yi7h>)p{@|;Fg~9Eo60A#5`Cz#7VzdI8X5# zZ5-W7*a(XqaFD1G8nk7h7^!W;y&>!TxtX7XwCQPQ=Q2!PMfzxq=Gcb~(SvU@51sG6 z0y=IU{bcOnDw(iWM598jpOOkvht6K^mmj7d7`~6?IDv|Ombm7?xp_23vXn-!^wspd zK(N!}uy;ht<5y2;6Fv*Z=Qj=lu`v=UdFIS$WGRnjKdLNkv0dDKAtts*i;22;a)sO+SRLo6=7T4x#2%JBI$gm>N^)I=PrTzj z17q^9awrl2=g(v#Ay(wjk1Y8jpBv4a#Zycr1qMDBP zW5mo^hjZT9v$IOz!^+Hs$Dw1}xSpN2R;hobl0RZLYv!G)Z|z0ouRWRB6BEJR-0G!6 zXW-OU&Hj1<&Rzv7X=e7l;0?DU%4R@p1j%=G&6Ju*ujyRHN({&=Uz637 z^@K<@#6iCwh+b6sQKMvP7Y7d2<(C8+_Ko0*O%EDck(CG@HIw^0S58-lf@`(GTQ+<> zs|$y#2|DaDg)fV>)e`mjbx0BftS#5)_8 zKhNW|(%0CCzNdWpkt>&uTLn7+@joxTa zYv|gg;)K^Q(6Ggh`}ZI$_Q|dOK|4ey`5@o~l#(u|_)H0gMPa7*qxCW84>v@)3dfpY z2iW~PMfl`^`R_-L|?j_J-HS{K3(8*{VVG9ksw~3xb(Q=vv9jFGeuvU zZGA`ZCsBw|8BU5wY5fn3(jVo!far!WK7Mt`*8`=UVWJSvLTv=c5cjuZE z`E-%*(chLQfq13ve9wmY4-PH1hw&Ij+CsAJTI=|h$0~Ssx*qRv%NplTr${HkougAk z3LgaLGBkQ`ac8LwS~>H>gK`7j+TdJH%rc6jZ?qw_do(}P+nckH?B6kd`uEAb&#&Ir zwTavG)RajF)J55#)Zp&dmH)u_9raJVT#7lpoSIB+!Ui zor@gSa0C`gfe0s@(0!IG1`ahWOZs*|+1QSi9C%Q=;b8`xfRdW8aOKau`>+tClg*NE%eVzma-eGF`bt;1npl zN@lvT0Y9wZvK`)!s4iasEwUO4mf0*G4b)nTgNtcRO@&H50ydLzl6KviIeuGT;VY)m zbmhcTC(hKPsj!(|iuy@Q8?rA6d4-JjhF>s#Xx6dB8)fu7_52Eo9eCjkRn(WG8xm-r z?}m(uHE$QRhIan2DM73N2wj%#AdM`Kg|Ta8G61Aa-rqs!U@3vwws zDOb@Yl2ea3j~m2&K&2~>nZ~A{_|I$1x=z4jcbt>3aGidYG8>ln zE?UP|RuF>5i|Y5QT4isJul?6QNYqJJ^%M}F!f>HH^Q$T-YR}`1Jcy9Ma}WQpKq$Yw zICzaaYxu<|fV}_Xn(o7WqtVm5od>ci KG6na{g8mm6vU(!` literal 0 HcmV?d00001 diff --git a/keywords/analysis/related_searches_tidyverse_example.R b/keywords/analysis/related_searches_tidyverse_example.R new file mode 100644 index 0000000..f22ab0d --- /dev/null +++ b/keywords/analysis/related_searches_tidyverse_example.R @@ -0,0 +1,31 @@ +### COVID-19 Digital Observatory +### 2020-03-28 +### +### Minimal example analysis file using trending search data + +library(tidyverse) + +### Import and cleanup data + + +related.searches.top = read_csv("https://github.com/CommunityDataScienceCollective/COVID-19_Digital_Observatory/raw/master/keywords/output/intermediate/related_searches_top.csv") + + +## Plot how often the top 10 queries appear in the top 10 suggested list each day + +plot <- related.searches.top %>% + group_by(term, date) %>% # Group by term and date + arrange(-value) %>% # Sort by value (this should already be done anyway) + top_n(10) %>% # Get the top 10 queries for each term-day pair + group_by(query) %>% # Group by again, this time for each query + summarize(appearances = n()) %>% # Count how often this query appears in the top 10 (which is how many Google displays) + arrange(-appearances) %>% # Sort by appearances + top_n(10) %>% # And get the top 10 queries + ggplot(aes(x=reorder(query, appearances), y=appearances)) + # Plot the number of appearances, ordered by appearances + geom_bar(stat = 'identity') + # Tell R that we want to use the values of `appearances` as the counts + coord_flip() + # Flip the plot + xlab("Query") + + ylab("Number of appearances in top 10 suggested queries") + + theme_minimal() # And make it minimal + +ggsave('./output/top_queries_plot.png', plot) \ No newline at end of file -- 2.39.5