From b67f6fd199aa9838abdec222d3b864445316ad58 Mon Sep 17 00:00:00 2001 From: Iury Gregory Melo Ferreira Date: Tue, 26 Mar 2013 20:24:57 -0300 Subject: [PATCH] US22 --- US22 - graficos artigo.R | 95 +++++++++++++++++++++++++++++++++++++++ artigo/NumSessoes.pdf | Bin 0 -> 5276 bytes artigo/NumSessoes.png | Bin 0 -> 3906 bytes 3 files changed, 95 insertions(+) create mode 100644 US22 - graficos artigo.R create mode 100644 artigo/NumSessoes.pdf create mode 100644 artigo/NumSessoes.png diff --git a/US22 - graficos artigo.R b/US22 - graficos artigo.R new file mode 100644 index 0000000..1efc353 --- /dev/null +++ b/US22 - graficos artigo.R @@ -0,0 +1,95 @@ +library(ggplot2) + + +geral <- read.csv("dados/Geral.csv") +geral <- geral[,c(2,7)] + + + +#Atividade +atividade <- read.csv("dados/AgrupamentoAtividadeForadeAula.csv") +atividade <- atividade[,-1] +atividade = atividade[with(atividade,order(atividade,decreasing=T)),] +atividade$matricula <- reorder(atividade$matricula,atividade$atividade, order=T) +atividade$rank = as.factor(seq(1, nrow(atividade), 1)) + +grafico.atividade <- ggplot(atividade,aes(rank,atividade)) + geom_point()+ + theme_bw()+labs(x="Rank dos alunos",y="Atividade de Estudo") +ylim(c(0,0.75))+ + scale_x_discrete(breaks =seq(from=1,to=100,by=10)) + +png(filename = "AtividadedeEstudo.png", width = 480, height = 480) +print(grafico.atividade) +dev.off() + +pdf("AtividadeDeEstudo.pdf", width = 480/100, height = 480/100) +print(grafico.atividade) +dev.off() + + +#Tempo total de estudo +tempo <- read.csv("dados/tableSumDisciplineForadeAula.csv") +tempo = tempo[with(tempo,order(sumSession,decreasing=T)),] +tempo$matricula <- reorder(tempo$matricula,tempo$sumSession, order=T) +tempo$rank = as.factor(seq(1, nrow(tempo), 1)) + + +grafico.tempo <- ggplot(tempo,aes(rank,sumSession/3600)) + + geom_point() + theme_bw()+labs(x="Rank dos alunos",y="Tempo Total de Estudo (horas)") + + scale_x_discrete(breaks =seq(from=1,to=100,by=10)) + +png(filename = "TempoTotalDeEstudoEmHoras.png", width = 480, height = 480) +print(grafico.tempo) +dev.off() + +pdf("TempoTotalDeEstudo.pdf", width = 480/100, height = 480/100) +print(grafico.tempo) +dev.off() + + +# + + +sessoes <- read.csv("dados/TableSessionLengthForadeAula.csv") + + +sessoes.mediana <- with(sessoes,aggregate(timeSession,list(matricula),median)) +colnames(sessoes.mediana) <- c("matricula","mediana.sessao") +sessoes.mediana <- sessoes.mediana[with(sessoes.mediana,order(mediana.sessao,decreasing = TRUE)),] +sessoes.mediana$matricula <- reorder(sessoes.mediana$matricula,sessoes.mediana$mediana.sessao, order=T) +sessoes.mediana$rank = as.factor(seq(1, nrow(sessoes.mediana), 1)) +sessoes.mediana$mediana.sessao <- sessoes.mediana$mediana.sessao/3600 + +grafico.mediana <- ggplot(sessoes.mediana,aes(rank,mediana.sessao)) + + geom_point() + theme_bw()+labs(x="Rank dos alunos",y="Mediana das Sess�es de Estudo (horas)") + + scale_x_discrete(breaks =seq(from=1,to=100,by=10)) + +png(filename = "MedianaSessao.png", width = 480, height = 480) +print(grafico.mediana) +dev.off() + +pdf("MedianaSessao.pdf", width = 480/100, height = 480/100) +print(grafico.mediana) +dev.off() + + +sessoes <- with(sessoes,aggregate(session,list(matricula),max)) +colnames(sessoes) <- c("matricula","num.sessoes") +sessoes <- sessoes[with(sessoes,order(num.sessoes,decreasing = TRUE)),] +sessoes$matricula <- reorder(sessoes$matricula,sessoes$num.sessoes, order=T) +sessoes$rank = as.factor(seq(1, nrow(sessoes), 1)) + + + +grafico.ses <- ggplot(sessoes,aes(rank,num.sessoes)) + + geom_point() + theme_bw()+labs(x="Rank dos alunos",y="N�mero de Sess�es") + + scale_x_discrete(breaks =seq(from=1,to=100,by=10)) + +png(filename = "NumSessoes.png", width = 480, height = 480) +print(grafico.ses) +dev.off() + +pdf("NumSessoes.pdf", width = 480/100, height = 480/100) +print(grafico.ses) +dev.off() + + diff --git a/artigo/NumSessoes.pdf b/artigo/NumSessoes.pdf new file mode 100644 index 0000000000000000000000000000000000000000..ba2857b3812dab269e2f45127f66de197019aa22 GIT binary patch literal 5276 zcmb7|XEdB!)W?+|Mnd$s+7N;SV@B`26TO$1jKMHw2BY^bh>M64ohaeDB6cYp2oX}=ncSP)_P!t9XRTRl&VKgZ=bZiF`R)DZHB{3O0t<@)c*B>&SHf}OleV4! zFi-@DzT*mzlLLTMJ>gI+0*z9GV&Oo3H5rHqSX4w5A^{PBKt#m_03dy|q4DLyI3lRp334`&*@0+0sHUWTw0sxM3Bpd_s z^Eg0|sXqn|1gS!?P$b$J2r`5^!@Yo_cn4$PUjdT;2_X0pyglJ4?4Rx+RWu5VUwQ$h zzK4U1;a+HOPZ&O**uU}-9DdY84~}xix&XnVQldbR1_Fu2Ujd|n#8*cR4nsS_3Fr30 z;)~`E@XM*n(nT*wTK}U)_cQfb?xpYxtSmlBx)povbuYH=U{W)>*!bnY~?oMCl?fK*~6RxiUWZZ zmR~u3%?tU4{H-}}CMX%V+hfi!44RzxK~ZpWm#l1V_T}Uct0-I-k#-KcZjpHNK}AkQ z*;c{VY=1xZ3dPlD$FeotUB8_jp3BzY_8hT|ywo6}}y1-p~x<08df@1;ait%NH`u1R7L!)pt=whyqU5Gvw=x$~+x_C_ z5H<##(kbUA>eh&rsY~8Qma&l}94`5*GHeX19#IN|-ZPAC#|&pYub>uBMoRmy?VNvh zl?lW>jjHY#obL#L7!50R%zn~+lGbLKcu6e)9numA`yG|N_F-?!Y|bQ2l9k=VXlx|u z@VB0+hRFwQV-hL2c|?|{=!BXrBbJA$g&|&B*}1|@KOvA`-5_vAAww;lu`bh_$y(3g zaM+~eqV+=A;w@)QE|$^gw&&BHJe<9aOl>E-bq)pB(!V&hhMFb ziwP zz0y-iMhmdL_4EZC<^iDT77RpBtk9)DlK1Ph?@_2sr)t$BZbH%kvf-dLrny1a#OXlK z5DMYI!u)+@*ipxw!U_*cx@`_Q!zFgVQsn%0wQ_huzE&rDTMWs^%z6%k1LI*9;uMnV zIR2M@sc%91o!6eSuZ6*@J4I8;#PfJF=OP17wHg?qDI^(~8#|phJ>wc|T&4p(v`A|# z)YX-G)f+P8{Sa2gOx1KIhtzVwuP;|9rOP?02O8>{YLn=SF2r^khHKiI=Y{pnO4%f5 zxFVb!-CV7o-za2pGglsx(RQ61{QZ~Xx*k*7rMf;%8D^t#!$~?LG9D7ECC40RhKo~J zrEn#E=QOFhx}LE2Z9KuAfc=dK%?po9=>Zp9TMCp4O0I#lohPI+t{MUjCs}gR^N#dp zr!7}rrD}#NolKR-5!s~zT`BC0fCIz|cVu&Uqvn(~cSv1juBlE>s4w#sW)=12<4Q2% zLgSOvEk*czZd5N{VuyxJls760s47Tx=4`IFMxK;kF5irrP;!OeCbO%daY6WKZT4z1 z^x8+9`7u}*F{|6}Hx~#Nl&}}y0BYwsNgkw5$P~(}Xpp`3q?-M8Le~ey>#lzLG3V{Q zy)RGtef%dTx}&CJUJqTqSNjo_2l}Y6v;fHoO~z<*OyHwXX_(nptDb4ykILdekqxs6B~JuGa6k zpLaWhGcbrxNO2&)-u+v?jkRoax$oWbdts=*8M(Z;U4jNo_$5MQ^ z*&Aw$^>{cr+QFb#yG+wdi1qcz(gAM7_mx~o={F+nASf75i9bKMfAWHWgFimk zKX~y6CP2CfM=ziakbnncpdB6~Xm30Yz(9~b+z|m)LHhx1MDXuK#l#6eyT1{IK!hIz zz>^DR0>=VvKzMfIcYyn0?EoMRJWYUda(EVifnY)wWBgwT5KLg{cQ%34{ji!QSOP}z zZg@)Iw@0EqO)yZ{cMHhNSW^Wk{=@w*nh{Kdy=_3+s;VkbFSsL6g5YKMgO7yOkNYYU zfP^A!0#bwfAYgDpQqV0t^FV)+3nDHp@xPLbaHgN+%1!q*HJN3K#kEVe8>U`~PaAV{ zF(%Qv+^&@(d;?5*MW-{Fh+9I<6r*O8QhE`>|2C{xHKm3-KAPC5X8Qt*+LQ-|fi+#* zv5IA}&3}I+dy(^Fh+BR;?zQuN@N^4N^5;mh=X#cuVV4Rm8J5<2RDMW=(276NTdl#{2NNL6 zVI2JsP4DQiwJ;q|SscrCTa%c3_vsUsa5(+-gx+BhYRP-omccVwELLnwo!aD`^t*GXv}5U(BqdzGD1~qk@!y~YQU*HS9NQ13>eD3sG?Fl$ zm6>~vi})IB(WLivfQctG38twAX`(Y4-Ff)gnnVmpq^?A|rNp{HO5b^*p_8_Wh~_OR zi86oO1rG=C+X#kaVl^N$Ls)&m)wGBz2flK0?*dw}ND0hUY&h(#m=uL@_>jYe1!7|n z>bx+41HiD-m8j@}D~!gmSfJ_v+tX;vWY$$uGF4hbwzP}9sw!F}j7r-D#^r1kFc7`f1$F$Pdv6QL~avVKB~B&&5Wkh+)@#oRS`0FmMpj%e(BfFTXK zvKM90o$;2|5}+7fMjLj8R;DOHgqG>KhDwSb4<#*EWis6(5`@xRGRGs%=6J1?vH=?g za&>jEpKafpmdnvPr>_*OsxE2C3V&a<}4c_L#l3#_(Y*F!W6?hLn9vuuF z!cR4VXhJS3CgpSS(UuucBHuHkf*Y1MF7O{PnBSb@ z$KJ3t@+*zA5HtN?YWrJewPm57nupfmV>!#aPqLn29=w*{p`NskEwp zt!Kh}vUi#cg1vFes!K-k{OA16{4mp~3In)F^OX0L#+KEV)MZuCQnE2)L`famC9+O{ zF+M(5r%oqN=iUnsMgjIh)^XB}%@2?>=$ZGKteKFRfmz4a^_LPaZ&p;lTr2l4KYXb( zHTP0u>dj-(so<%}sm8~?j~6GE5SfT5w^i4jajD8fEVX;m5Zhi(s&wr7!gQ4Qh}bnT z3zxk~wy~V)iRt%~FD5D`WQvbXvwz<$%&llwJ&!thL~YiuuUSy5y8dVs76a(MpE6qR z_yJss75Dz)&D(O^64@de&=+775FM}^@bLrXncx?mFYIUSXC~w_FndX& zR#F#S31)@Fj<64tt+kHC3XL({Vp2&UPhi!fo4lXZjf5vzPY6W{Q3ERGx~9Dz=ZcY?=jrVq&z`T#I@r(9nZS%2v&ADOie)3aSxJ3%v_n3+p; zAL=Fy75n!cogV$Ney@3}+0%C0t^{?dQLV8ZW$bI`n-my%PD&F@lc#yVKdS7pbH%zc z&e?w2p1Yd5`W4doMCU{R-7}AC?Fk%qVeChiF_XZukC=gl~n*2@T z8!NFj@j}>I*kh&s&IjSa%8v@jlwT^-M2tkJcgb^Mv>XObl3R~1uT!o2Mn{Z=jqMhG ze4f~y9v#e?L`g$cO&NL>N^f*!{8?Cw!(c=@Sv7Y%_Yn8KT9%r2Q9vB1cH(GL@0CH1;xO~^grJ^DNfGzB_!{{?8>fT#KT13q~jAN@CZ za#_oH#wqVjJDE(W^2*N2rb{|*QR&a;p9sibZJcrba9zkMjhil_& z9}VSX?Al830_eoysX6x1y2 zWM`0KKK>Bjtc7gbBrwLS_ex4MAz+c(lLA58G>CT(*l z{Nh*F*k4k%5;(N~k#kbs+{^Zz-z??xyG8W*x7PA=6drhQZEmhk!rFBM_H*vadsTtj z&S+C;FZ?@;dtFyk({60fO7-hx3+J5*vS)F~m{MpR6i9Pr}cILwu3zljp z`;0cDP_MT_+wR|5GkxhroA+z>Zz^VnY<#-<;c%}k(I7vB^kdY~`G4AO>7Q*V;7^%G z9fem!5GcG(Lugz7T3H}a$|x_y4+8+ChH!F%5?P~KiZyT6G*-+SsG zUG5($(D#-bWa51X`&|?w81cRQEvP%b`NenP-#7ik#~O-pQo|qQ4iqo<{MA{1Z_fW8 zIU#?~sRc*+z_ADz6ae~h5g?%ie;15c&B4CB(%=#eq)1pEd}7Mj$*u z)K42&0zYy5(*~9l!|PE0vPp^lCl)L%j-MF*^@Jjja8JC12n3lR0^s->072R)Cp3QC`aT;OqtRF(LD~CW YFE1?A6Z^edV$$ML0A5~o0}a6c0Os!}LjV8( literal 0 HcmV?d00001 diff --git a/artigo/NumSessoes.png b/artigo/NumSessoes.png new file mode 100644 index 0000000000000000000000000000000000000000..7aab30d80cdd25ef895d0fb43b2f85ebc6f1fcc3 GIT binary patch literal 3906 zcmcgv2UJtpy3S~j00T%DMM^*zdW#Ii04jtMAxagbn;41;Q6kdw2qQ>Q0uc}h@Q5IY zNH0+!nGC}i29Z%lBZLw}+R!3h5%Ugs@7#Iw=H0jMT6ev(a@NlI+y2*I_W$j)GiZBp z(SxEO5J=q7!PXT7`ii&nLiPd_lqk9qSW?e8xg&uU1cHM=I1n88kwLgt-~$eV!$COU zg~Q2kfI=q2$z0sugmAcB9u7{%0Z*%dNFoG$Q z5FB5cVYDt=`V0*Hr2JX1q-*p{*tARalG-eTx`mzaTgv_({yG;_)}wP0-uOoA__IS0 zc}Z}FFsXYl>uplt`{VV|s$Piwddhzw8zcGpL29FF^y(675ZfUaYJNnT^;Uz_?Fi1G zK;*Tg^w3Z*s%^b_THuwxU^qGBr*8X%o(HSQ^_g7n@+>^SvPVkI7dbf@X%Br{P#9<` z9(?1^+G!$*iHWgM;=pz)bF79Uo2)-e{okAa|7n=eczu3(lO8S4t%gRyvlSkOt;~({+k+~Cz0}lC zH>TT2E~cLgHP^-3vL>C^J}#6PNBf)LB>jU2)4f-pX>k69=>M|-6wr9j9^K5cLVG=vk&j?h zIg@4{Ct_o*G{0Zc<_m$&Tavt{qO34qAKaX)>7U1|W?K#C-_sttz`3sL++oDR05zEJ z7g52Rh664bTUQGcZw^fVL%}P zGR*k2K`$PRkqfmEr?eaHZ{iM8-P7s#miBnL&9*>vqJwc&kCt z+v!IjRQ3^Ozc$SlRiEQnY*o$lxYQ13wZ8nZS2}(bXEXT5@0B1nx_{h>-=c-`ER6Oh zWsP3?CJ|;yXSWL>ZuN32DItuQkCxD@bjDzPZ5+Nq$Me+`XOWgByHK2Iyzly{sIV4~ zf~7e8*)OqrPU~$I4p2!>paL%5&39bWgR2xF^wmM8og9^(F5cy#%pKQ5g1xzK3ZaP=q7v%=+4O=R&ogJU%eGZMqGF zVP7fs73cdtr;GJ7H|}BW-=_e@tGHq^d)@`SbwnSsSTU1~(RI$``M=1%r?hr{_wNqt zk%%Vpv_`Vndc)aC&&Hk72vmvlhzcD-$rzrh&+62XqSgl*#(Ct>2IS@=>QJfrUDtz< zDc|uLXtnlN23Ls+o>eZo%AL>T*CzFmGc5`dKhtV~e7pomQdN{XE?r?4A zoAj@RSpFN;w)i`!rv?-q;*L#>`)~LH*g}%vSby+f`Jgup+l-Q;O8=va+9eOEVmuD= z;Rj6YD#jPFC+r^FQKm}w9MD4#l_FPy_+`4+4kXvf7ROo{0Oi6yv%lkmMZHGsSy@(M z56^P*A+UG(j90E5ozfD(h>SU$C8r2k>`oeHBI3vO-&)Q3SBff5n9PnWX%?4Al9D~) zTkVe1(>Cc6-m~*dn$8FyOIKoz+H{h$hpT0^j^JKQvu>X=^^Eny&u-a0tqAO@u+Tlc z^{#1dr%E%8G8q1MWEb+kE}><7igh7QH!+RO)NO3=H;w6*i;J&4=XZK9+j#TChuOiS zcI=-P)(wf*4r&Bf!EOK&M%u9@C^yAqwcu(Pe=m{!OYVKVme|#wP!yStnZqseWLkdb zxT_b7NZ>fwnCgS$w7Nt`6P|~>5&m2r!YuDP;JdFBX&7Z);(+0Y)z2XM8io(I+`^CBvTm{``J%VxEyg)|FNf-019N>4l#YL7Rx4Y+y&uTZ_D2BnLEGsH@k zue6vdC74OG?91r3$}Ib&z{+~vyRr+iDMDg7{}^n1?b&EcrESE7N0<-)`^r6F_!FWu zOG|@f-_^=n=_l52TkMA@Lz^g&I6{O5Db)cidE;iF>*|>*h?RIzQKtHvT-ZnBuOLxJ zq&mc0SmiT*Rifb->j~5+#B`0jH-EfPdtrsz;tKA+w%SHE7OLawi*p83x2FjjhIeKC z9*Y@76#51CX4#i&QW=4f*kM^eF@xps$Z^e;5i6(EovWCUQE91|W+!_6!m`zT^3SLxwPlU!9W4b>i=7Y=fmSh$W#!l*1U9v`y22=rI z|KUArs8PFm;JD625fDhlo6Tgi4dtwIGRlmttsm7Q4}DVIwr1b*(F+l{yRh?urgUIIWL4vGfMI^4L8eohy7pR;WQCO zXJ5GAUK7uX2nB>lYUbJ5W9i-i$OHW8c?Xtxz2^@A{Jw~l-q@Aze;NlM<auLQ9D)L5!q-o3l(zH++ujq>xh zjQ9@`i-c7UlUTh~A?E#wt<(emOuw!kz(C~PPOT#baUNexF8Q%pb|Lzv{uKDz;;uB` zHt(NLa5qw4-qM?saH;WSuQ^XTL|Ky$4N9Dr2%*r3@18#z%VLu_&-)s-kx`r1mh4Wn z!B4fp&(>nONxE8%=nlhDl~14f3eaj^-^kAmL-%8fiFO=iYWsTc%T8hD=X-wGc_`iI z>LOti0DAI5bt7@y*kf61+Vlql*?QETd}eEa5?k|qE%o%T*$Bzn&Dy=8O;tXM^+8iHTjdM`y`0!v}TN>pG&60(0LS4Er4Zak)D7!*c)BDgEe3&NQi&GChC?etKqG_`h-nG#^Yx#}xZQ;z3 zVU*5Ld&RL&s?k3DubbtslDNk7-d|es(4491faQ_4LfMh{2gR+|K^qO-*GX*w2Bf@` zX#7IOa5$)6IMBXQB6BKvMoV&V|jWjnHLTnIh4#jBKN3m@92!)x}N~> zCWrJ8m*S4?BYaS$Zv_;!Pk67!T3cB0)|lH2m5%-sm@>_~<|6;=mGG(HE6H}HM}iWY QoSnO{BNA;}doqypUj%h7!~g&Q literal 0 HcmV?d00001