From b41508f6f587e0b887ff0c8c95faf0edd0e6c1b4 Mon Sep 17 00:00:00 2001 From: Shreya Date: Tue, 10 Oct 2017 10:23:19 -0400 Subject: [PATCH] Assignment_twitter_code --- Rplot1.png | Bin 0 -> 5866 bytes Twitter search code.Rmd | 70 ++++++++++++++++++++-------------------- 2 files changed, 35 insertions(+), 35 deletions(-) create mode 100644 Rplot1.png diff --git a/Rplot1.png b/Rplot1.png new file mode 100644 index 0000000000000000000000000000000000000000..c0588fcc8026a75238683cfc51f37911e1ed758b GIT binary patch literal 5866 zcmeHLdpy(o{~wByMj<-JDwmEFT~3)1T@(>@6p^%ptmHatF3ConQqe5cA-SZ;IVhp# zvPOte=<2$yO`nj<#@se$+xN58q2KS1^Y}h~zjGds?;qdKKKoo=m-p-Se!gDs*Zci> zUpeS(w^aEDWe5babf3Mg3j`t$Kp=9lixfc0Mw4_2c>8#8|KUC09Rfi@AZQ2@2|dBaNIvHe1$Ycqf zERoPjNID5kCxfR<31otY1QY?U60iwSLMAAc1qryICAYx-Ee^H!z(OF1FpY6`Wk?EX_9v`3qcQJdi@Tv0}dt1;pFC*u)<;$D+glr%5 zMg`I*!x55#%1GNZ-rjxL=haEpEl@eN-^q|K57vnmK(tpPpidNNap7#l8z@YvI}X@k z845e4L{#8B$K2KZ+nJ6%15Dq6yj2>As@HwlX%A=lbU{*0i-cz!!B&lMoy_$tENJ9} zdoU;5Y$S!EE-jP6O;DTBp1h++Lc*$l9a1EYU>UrA)vks9h3~Ls_DJ!WemuhQdivS? z(Al<9K(J)5+6ngNfk+)8YNU!%z*W~vk+HC+V3KiRe&zHh-?iDUpK0OT(XQ$WZ`}B9 zS8B|ez9&cV{Oq&i7$FcJPJQjUrz2r-ipFniF{j(Go(4>A;>j^~L(zu3kN|e1uyp!8 zg%wdYn;Ww&D+cHo#Y`D9&JAQb?S~$~h2F`~q>A*2)n}oIs)^kJ1$))yG5~BeYw%8R3~f{{ z{G+E{IHQXpDrgb*w~hO#oy_`R2RFCpW}YT^^7j*BfuhV5V%eoI ztBlwJYcpNG4X-q$e_v{=`;xjb;-fpPOG=L=N`aIjDp05Ni$xW4wkF7J9d^c-7}v23KKb zIzw_H;ZAhr*0j@KF!ocgPleK3x5PL-=fyyS;RNwiOk{kcHjUaG(9N5`FgX2z-HCNT zWa{dr$p8Y+vI&*!N2!ONgP(@K=`$Cl|CX5)A2*5DVPW+`t#H=CBVAxBX^p47u1*U0 zRqm{L6u&y%T4NkD`VLcOSm*4{c%W9GN%b;RDJ*RpSJ)0e8GK}MGd+uWj?d*krRKH> z-%0-Lmv?C#Y%1$!Ds}H|b#xkS& zDCxqjAT%B~wJ?dRSe7-OQWtG4nR-NddH{OhX>|}~`ZZ;+G-M-OssHCZ-Ho@P#E09p z5P0LKmK({s_f=svx6~1M)6iL$+7(}PevHh0&P#|AcX>q|UQ_Py&(#9wGyoTIab-GR zrEzr=CQo1);n#L^iCF$%vIebVN%TT!#M$=V#5lys?_Zb~4gbX1vC$u^ z865*n1a_?0M=a8s>W-R19*BIu_ywt)^Z3e8by|O|Wba_ADTEhpnycasXem82 z$t~<%Hwtgc8*JZsH&sKkG6?wXMNs^$+b{$a>B5)88E_TO19xHCU=3W}4={IRTEXLi zyW0Ni3bn+dV}qIJ5YU&Kt|^DYZUQQritoe1m0?Qtv0#~uf{nDTabY8V+}np?s2PXC zG!($9dBUwm_N?!5aq?c;!_%h?%x$F__O96#QO8={xau?U8^2Nx*RW#uzdH|_boJD8p5Yu)*kR|I?@V)fq&&-$ptWryu8&?^NQpoS+UN* z9*(Tkf888-SpxyRdVT74uecf78NMiol(UP!$r*%h`5#&RPw4eM2$F5S@??uXOzEDz zo3}@clu)UBAR?;Dr`hv&U#lnmFsJYv{ydIIPdewCu*`U7KVO*Abl=tMAbJ!h**c0F1QzJ#$#8n%fb3@-pn1m zyxQfnroO`e-R$3L=<(y@hs(6A+gA_|ECv1hU}jp7pN0~I&LfaP@G7jB^Vxrd)jnpP z)rv>#&iMw|yHU84i9i%SzR@#7_?=?;hpK_XXN;CdmxY zl!cx8Vps7*(pU^?8(epq(z4=lmj8XcyS{Ub!pCx{~57&-8f4RLS@0aF!jVa zk){|gv%c{0a-cEVIZr^bqliU4TbrNGu44<_sm_^*0mMhK;gd|tef5+Vj}FfD#-+A0 zeBz^3Imh&a+nIUlv6A}}n}=I%5_RiRv}r|)q~SAdD{Xtv3^LcUXgLZzVnLxA!b%*3QNGx{mhE{j^j?_gsTs~N?8Cxu8}fGpY$OgH8Y(#{GGPxL#?(J zps(lmPj}+g>2H?KC84p2S)H8cQrzd?<{R{82Gh$I(xFANv@*>|k5}Qdec^9#(rm2H zo%yV&nFt(Fl3H8AsQGcNyBl){aawRo%D%X8>|pKc9=2^*eD!>b>(e_=H_qp+MoQY% zO(ajn_hVY~BcN8kf6H<`1b(|TS_2Ul>`2MExwLnvUedrDk^=|8pccLBWuR-;$McJ5 zMM^T@wwfn7Ml)8ot~QVXxxVvl7nf>n2TNW8smPhfWyZ*+N&-9$h-#KU0fR7uMyW-n#d5lb0 zEH>C3I*XJR3r0r`{*}IPOjP5}-Q4^q@koP*p<+N=sV1x%3MRh+|5ksb)$io0i$I68 zSbVM;gC%XbIeC7@Hhs>YrWik@-hsy@QL(_0uR;x~>#^3Q=Tzo<@o!hKzqOS7RjK?> zG^DI?DE66G*wKU9hatr;X~?i0cYKdAEC57#eXl{$?Xl+ckf@{=Y^K$ zhl9sTVJy+^!I|5#g!1+Zw6t1w`;DKGH0;0PidDbNSzq2>kHD|l{LN!y6R_O#=KZ)9 zv%^mR&;H969eQ9fPK2dsDS-XV zeONU?cMaByATYo+(8Abpi&w*OF-?2~lBf`h`}Vnhh#j*Wazh?m%_i%j%<{YPji62P z>=}F9GuiTUXrY0Ui~Sjf-mc&zUDN|AFCAYkchENNz8OfwYcwJ=%Q5vixt}4|k1jVO zT47;DP5OP7Wz!BJWk_h?f)D(0j}swtTZSciT*{{Hm!2*$XAwsPX57Hrq6FO=Uj#D+A!cc7uOW^s zPUaKKsxS1Os*Z2xHIQ9i2U%Pbx-x?8pve5k-Umq7pdlrCXrAa5#3T)crsNWWiPO#~eh5``XPr{FhE z4?9v+Sw5+RIQ^>W#b)nPEGmHUp>wbO{aK3Sr~GR1&v*QFNARK`3vr5dQ;}~6#%8S^ zCnJFFOLCOZTTnThHE}uQq3W{%?MWwM@1X9; z)V6L_^ANp4Y?}tL3|sDra<2CB`+-)MFmdl1pF1)DXH8p_J6`q<_rA(mSJf==vFn}D zg{QOIO+}}ZE3UFAM@ItTSq;3=H6o)SUO2~-IujDpX-lV3HUkN|>T=)^)cr?x%)V{J zS#KRG%6oQnSuEhYxxB=iAbOA%QE|7gzDv|#Jyd#}Ehs;8ayF6J5h9+LL>P@)kYMqp-1AAEYt>{&ukZuv!sGA`kK&Fc0VA8*ZY{p0 zK%@D+=1uxcMT`jEc`Xg(K6+(duGkY)-ixm_QD3J-OnN0g#~{9$TDQ5!fz8BCR|cqc z2aqcgNCNe)13153y;74AjF6z)w1RXn)IhJizi;aBMHGnO?^G>39v^yzr>G*S8~M*j3}G4!$4dX&_o})j~6}}({Zbv z!q~XSgAOn4Npc%Pf&u*`GkfTQZ^;A2e_+p3qN@LkN_*Gq$WiH@^}apMwvTrGa{gbi C=R+?5 literal 0 HcmV?d00001 diff --git a/Twitter search code.Rmd b/Twitter search code.Rmd index f46c9e2..512c367 100644 --- a/Twitter search code.Rmd +++ b/Twitter search code.Rmd @@ -1,35 +1,35 @@ ---- -title: "HUDK5053 - Twitter" -author: "Charles Lang" -date: "September 19, 2016" -output: html_document ---- - -```{r} -library(ROAuth) -library(twitteR) - -api_key <- - -api_secret <- - -access_token <- - -access_token_secret <- - -setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret) -``` - -#Download Tweets -```{r} -TL <- searchTwitter("educational data mining", n=50, since='2017-10-01', until='2016-10-08') -TL <- do.call("rbind", lapply(TL, as.data.frame)) -``` - -```{r} -counts=table(TL$screenName) -barplot(counts, las=2) - -#By time of day -hist(TL$created, breaks = "d") -``` +--- +title: "HUDK5053 - Twitter" +author: "Charles Lang" +date: "September 19, 2016" +output: html_document +--- + +```{r} +library(ROAuth) +library(twitteR) + +api_key <- "6bd9o3Jtos413E620dtQcnaUq" + +api_secret <- "fkA88iPSDBoMDiZfRI4bUmLdug9RBYBIOTiIZ9cdpdY9TvRLBM" + +access_token <- "95831171-q3bMDuXueoPncMwiSDlmh8xfmfuyvWU9rCS60X9VQ" + +access_token_secret <- "7tyGqiyJ4CXTsU2e92N6sXyQ4YuHi9EbIrnNCIIsWntE8" + +setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret) +``` + +#Download Tweets +```{r} +TL <- searchTwitter("educational data mining", n=50, since='2017-10-01', until='2017-10-08') +TL <- do.call("rbind", lapply(TL, as.data.frame)) +``` + +```{r} +counts=table(TL$screenName) +barplot(counts, las=2) + +#By time of day +hist(TL$created, breaks = "d", col = "579") +```