From bf5c4719f1285166d90ec194b8546621a0fa5558 Mon Sep 17 00:00:00 2001 From: Felipe Figueiredo Date: Fri, 15 Oct 2021 22:31:17 -0300 Subject: [PATCH] figura 1 (receita por classe) --- figures/receita_total.png | Bin 0 -> 28084 bytes scripts/plots-save.R | 1 + scripts/plots.R | 6 ++++-- 3 files changed, 5 insertions(+), 2 deletions(-) create mode 100644 figures/receita_total.png diff --git a/figures/receita_total.png b/figures/receita_total.png new file mode 100644 index 0000000000000000000000000000000000000000..1a412639d6e7ac7232a2dbf6f580261bf0ff0264 GIT binary patch literal 28084 zcmeFa2{@MfyEgnZNJXfGl%c^;LK%`wsiep}MTSTjB2#8j8i=CIGNyzG88XvALa0n- zo@LHFd*1VI?fw0~y}$Rr_x|?Y|NR}`al9RCt=7sj-1q&ve%E!L=XGAc^*~uscFShw z%_I_O%ek|sRY|0E>BQd~*WypSJ7|OP+a~L?+IA!o-#+5+HBRwT4kQvg>D*~)b*IRY zHpeiHhG)OKBo4p(y8gvEt#swnDoLB;JdFw(PaoN~Wn?PdxFOOSHzbh{13c4eE643M@gfo$++Os{C=;F5pCDe zpw`ybjU>`Zjh9)pxE{Gc_6;OBgy=HbGh7; zf=X_Q`<8Njl3Iew^D~qSoK+#bEx9(AAMB=mCz);WGsCFNhjNK8Z}gvi;=m72pz?HTC^1^+G+~uO(CMz0WUksg9AxZHRxyqj=G>t|DdN6qSH)?3zZK!6fW*OS+Y8lrje}q+MvXJpe8EY zyy2BzfrBptZ@&F-W4wImD~;rk*&}OZ6L(n^+I)X;jxt{hFXlWSX3gz4kYHN(QXxvr zvHh*(MS2;9r$Rf0&DEoh+s`)lKj4aX>JK-G;~r{C>o`R#5hU(0UNq;oTU5X&PHenz z%1>XsF))RE6D#FAZ$1eLz9JOrDDvCD10~~5d9{3VIwK$xnm2%+?u58@~>c?dy zuMc>2-pC&O9!zr1oE8`w) zad*N+?fT2vJeDWQ*~alhx|NN$_SL0mXSTadRdf5i(n?!xzLq9@y)`$>-#dod#JekY zLQd24t6+2CdNf32LUpm#Uu%tI)?MB#2yVOeyVPJ4RiD8xJ*b&&%@f=Hley8dzN# zudS|rt)BG#^OJo_#|K}myXo~*_!_J0$Qu=UjWqqDUVs065$yNx*pgS~xP;wWZOT_B z{5?hxI_+DY3YlR!0#o%0+U;s3Y9;1cAMZJpk(o){rr22SbDN$|qs`eokDhPvGrdw7 zbl~D!3p2Jdr7s=i)ww*ofe;?8F)NRymcfJ={fCZB;!eLi-`|m6em8&a@RhYb{^NC9KH&Sejh$!7Z%f^JR<%=jG*nb^w^)PMquTkQ$fI>2P<&mS+|+RW9Wawkn#@EL0$` zuJo7?n|nTd-Y1{ir$%yVWIlYNr@XvYd}$%dHtffRXpD&nZ6OOu}C z=*+&1jEr{Yfv5|317RDX2@ z0_d$}%eBdDV(Yqu1l!JvihuMRE|H9Wqsh$7^ozv-MOK_aeQ?NL5IDO ze{*TJoW-#bByWOQ;vF)4xFb~*aYNJeDG?~ONEG|re9-` zW=CgE894U^Q?fdBB3KS}b6rP$h;|)&;89V#w6kPowgoXKwfO6~$LdrJvD5dq8Be%nHyt~vO@|P=vc+Z_PdsgZ2Vd$ z+q~ti<>dFE18Od_BjIxe1^82EuDgfy@~4sasys|mP%2gzn@SW{Un?jmSbmL_Mj8+B z?F&7m{XIb`2A9XWJU}t4TH?NfB`xhiRc3hm6Y-K*QSRz zr#0Zbp!|!3gbwSETh46><-PdUeP!{$fdeY^SFT=NU7aiO7)namyz~H{o;z8|Gu3Dv zd{6_mCRAKE^J?`Yk@oqy5^_A9B-cxT%ffYs!#gp zMQimVy-S|INC-Q9({@hr-|yB<$R}&1u^zL&v^>{XUthn3SSGS`p);{d=f*wAOSdUm z&nhT9isKd(w8OJ?CR=*P{pydf@?)${)Jki|qe65SgbSLuuPzKwG4i<~K)YF*USFIW zkRmUzOC3^<VG+ zbxK&cNn{NUj~~usc>|jxmV}HyKSp-ITdtLQZ>3^5HJBZ4;%~py^XU=x z#^(b0t5^H=9NTuVnIi_y`0ZY(7U^(9HRwRO#f{T<7++62cjW_ij%EqEO>j3L+)S5C^FGMp( zPj!Sy=({7MIU?;&JzYi) zn_KiJ&-(-A$*9oRKK)F7YXDGz_ndO3D_dV0P+1klHIG`neXwSk9&qYv5O z;kY=P%r}6LVx)n!{-QiQ$qu8<+qo1+P%Q-PV)2Qz64PJtAef{g1x*y&_4JWSa@S%- z7m?s%u(2mZn}Fi07Ns@(%Q6*ey^37OX?;v2brfDESmJ(hcrvdvm^ZQRWBfB-{r zQ^-+Dk_)}uKDM^D8)#W00|V7cJ$}dGyG|jc`^Ei2Nt^GyL(2zbi?@{VN8R{-4&hDI z!5%Nys9L^Rk%L|_?DxBW03C{-eaXE$v3E(xCl1>(=-m+(Z`bi6k%h|!-Ck_&XKPqz zhMUG83f6os=>g*ShP~~yjQn2K0d)0Ruiz-FdZO~PD^(#2j)fx`Rmf5R%i}dsVqBRD zx3;MxK^ap-tTj>CAG&4w*SCG+$X{2yXYyUH@$knGrEnX_Xy^Zu4y473|)c344nTv%^Hj^!7>uALvJIb9oghhK#$@Z`u`{OJF&G9hQH7TH%C(99U znkcxJ_{W8t%2J2AlT_p7ZaY4Tmb~e*oKuC>A)x5JQTM58k@6!&D6QDapOiScY*EYu zQ%asRy(wp1`t{sj5=DSkYT4S2fs)%sOV3_I{Ik@xy<%dnU&4+|Ewwom5%FWVp6iVk#wO64E^hjklBx{XJt@cQ5Zk-rPPOI59_5gLB^L7iK z>Ia%6Jm`c-TRCyXn&)hZ6@gskB_9Dy#6`Ckh61UrGUKT*ZHX9 z!sA(qDBfkES&hkBR%9)oFP}fpBQNUToN18pW!O>FM9rJDiu6VCz1$A;! z5RXB_1USk zqS@vhJesFfrg1Ul1D8<-?3&FI@W4~SD8Q499_*G<4%@urpze)tGQcQT>18gL`&I8M zt#ErlV4ieay<)e8gc$dH>#h&P9`36QM#X3+cPz{;6uk*G9+H`~*NI(gpuivlFkh9R6Z4&(Z{iwVl<66!- zsUaklX|es8zb03AWSFD1Qg|hgHeS+h14c z0w|hi)h0((I$wC7zRh*3hr*KP>^Bjf11D`G7ffgwN7+kMM8B**LNALgu9IcDmAqvv zyGbAWvuVw!B;by5QM)g=^$Cx~_qu#6GAf1=PY?YJalE&@*78UC9@Y{2EBb&FOLOBL zB_8B^RE#xYM|!3ZMS#TtuE%%{ikDGL*npjIizyGf=tRL9u|AoI%7+gh5;$%mrjtuC zl4(vGw=qS2WIEYf0T`>$zZ>|t0zlRrT$$ivC=vvR6&9XhESZ<7NTp)nzqoaDILq|5 z@9!7!@nv^V1y=DSJ7U;!Y7g?Bw~eH9nVEX;@!a;Vw*k6xz0VKl$TPpq5ydQ)l} z8+pE*fmdhu{hsry>KfCG&44#kQsHh>>S_8b;OpEIm#cUdj9Ld)!l_y&IJf^)Rl@`!Axqg80XCsJJuJ^@bGT@ju-@lF#36m(;!=*e&D!agq_-xUSacLih~6^J zTSX4?m;)!dIj6T8$PJK;ZO_wzve0Yv#A!yklkQyOQzj{QH^2#mWy1OJZ89pTkNo++ z;);$cDk=Hbe$#xdW8eGv$-Rc(?>nSS`73hDmlvj}3VzBuI5^xkaI9$F3YFu*c&JL) zmR(0vbn{RxgPj>?5477b6j`?b@%@NH8sOF0FYmnj%U|Wn=+%WcMj5BS0T)^oPJCK1 z>wd7EtKEaVGLef7Q6UjI>6@llWrZBZ1~_q>ZM@iisQy54AwRgLc8_3*;m7-BRF>Kl0-Sr0er(>z4w1mPJt6}c|V&6j1N9^j10L% z&*A5lx&$SDiyp{7D>G>xMT0LRy2V(D(((E6o&~avTxwYKF&m@RhvV3m;Enyjjd3J6ZN;(VWkz2B`l zr?}0ZMeMEj!ZwxYD<;L{)upwyZ?9gxO0)Y|`j2a=j4!XZay@nJT;n;zE zS5_5%#n^aytZfN7f5X2j%sC_@o+*PiFv!#(M#`c z0Re;2(Lk&rlc}5VQF~6^pC0d!5)_;Q1#`nS5~>P5cA&q%zi3W-9XKfvpC&LZ1~ZE$^172Bg-jSv1~U% zrng-jOsEBdS@7scbDv3GJNH^Gp#}<0PXV_-v+xiqpT)PhvTw3%MS#T|@*$;+Em77V zHi4?LAeqt25c~>ckq?5;S}P~#6S%9X4^;fR06*AJM2A8bz_u zEIz$_LUU4yZeTS6h+#oc)kaI?So{o#h*$zopx!C)0y_qTRtKyLGEe|-464Jr{9mFa zic!Z`#vDt0)8h2Ob5SfF2LurH3b?CZkCX~}%Bb&T*v|4tDj1+XvO6W?N)-V$fkN6$ z9Fb&apjw3snW-8I@0L-)6#^EAw0<^J^@ArVPprjJs&P0;X1op z%)vrH#t<}NJLh?Bi=(5rAz+LGgZN+e6XkRd3l1h!|J?g6IaV=q4mVvXZ0KbO!3!a* zgoizEi2Z~wCrI^+`@4kAr(5l6gFnZ-SezLa0S{&tHZP@xmI8?(q~02W~S zsz3@=a7~29Lyi&Zq{{=>Vs-iTY`&!j+37&{*!!fUB=Drcwt_kA=Paj*ZUp#?7cc75 z49KW)V?Q%ZkdvNs4}FiX+UGAmiM*4lUzCqBQx+W%VSwcGQZZ`ryF5QC));mbKU8Ui zB)$;utcCVryjd2Ba%#LK%d8GJq!=!61*}xiq^339@DvsW`ra)=p)*QqsFFO{ka1hVIBQD)jcF%`@nM)Rt8L?)um>V}AU` zFXa(e{*SBHDl8=B%>ga_5-3rwdhwxAQ7fg}mBf+bCq5Q6e!aB~yBM!noE{8}j+TTj z0x+ALR!sDCxFW4j>gY71Xfg8Y1f}q_CTsC$dWqJrC*DvQ!n?FQRZGh%?gR=6bsCuv zW&V2m7DS!nFuDSe=;H0~-aSRPjuihK9RY%oS?09O67hvXLu5*1Uj&j31Tg!-?|q>q z%keE5)=nFZNU=iMrr)}iJQmf^`I1I~Ad#fEmy$^974T_vLekWv6JK!|f9DVF67pjL za36$z@Tb!zDk|zVR-KuddGp#Dj%!P^qa3Tzp7RO4M5vCQA{`?E*%4Jleu?!t>PE^=^-}*1Rg#Uo{=6|te`lma(Y&`8` ztZT;hVGR?xlOz7-M$+%PPDIY%S%LrfTK%6_{zoGEf9xsA^Nz0L7RG)dIP1fmf((4R zxmWlLUflg>FF;iYq{t?q5~M%0#}tvo=kk_N?YPj?wd?-^-fwc{N&|8hU<}%?*HG*Y zk2#^8FBdCa2vq`H!v)-`LNGi$97WXtX$+~r16_p~P;aPR_eNK1Jyz{N*6@l7K^_$G zH%4VY-drXcUy?T$f$V3$x)TP0v)*c)Xu~@Lz4pECLQzsrxp2gp5O-x+o%cikeAh;R zj*^v8t8-ft;^Q@-v9ki``Rx?!M`x+Bx>~~6i{U5Nu(eoU9?nRsSkeI zWhIWL5Au9SL_`6A{#?7O)$;rVnp-FrR_KUAJT7b+BfbJH@2&ojXxh-hz$;}`vH(1v z?2}cDILhl2hhhs_I``{aPrCbI63K@nSFjZNXGf8%BfSiSu6p!i`M_0C_+?arpopR9 zc0f{|Yqe7hJBPMw5#*$GlSiATIuP>@i zn}b3hE%^k$qNClpC1DWZ;7MVR7QUt_epX(77}dZqLeG7nZ{iX#KM35pXeH*kdNn1Y zle5agqw(rSjp#sWkJI9M5=k~U-O~xzHW3SaOfVG7Mtt!fX*CsS8ngX!q@4b(6(NRczRs7Dq9EPcCw-wR zl_Mv%1>L(yQ9DJ6nfkRNgm4;QQ@CG-UPfy9_bG91tyJB@!!m~EjVU|lZe++C_SeRg z05hyL(0Oa24HyJk86ZSS>Qvsy<4tJb*aziX7Eu?a2sUaZn{(;CCwLLBb1o#jq74-m zJ|Fh)+J8hZjA$Z5f4*0QeqbFskB2U#$NmyoL+ZSASNKXC?i6gzhd<#W5IP70@o7LJ zvMND=ftiRBMzjQgIIC)E6dlf`7Re921#gid2N~bFxdAyjo-akPRE3@>p^$9d(H?%z z-3+WqXbfmsXe7VIQ=Ff*SD^=vrMz*B+GYei^>|;98lpoG zbQ<^-Hj89*QlNtj6GW>fN)0$>7eAYQy~+f8Qp-)nyJwI7Frgz4c&rX6h_tD9%BMl! zVO#y}6&V@1vV59EqF0KQ2Av?9P&3H}D??f(2Y)vpqCedMLN2>QhzhL6Py~#P_g_oy z%K>3KU-yhp5qVDhtdD3(Z+r;v#r#AXyoFJdF5$%sbtD&b#=%&vxRj!GJC73b z0#H%U1Qd#hx%e0UCh!(@>iq%~gqD@j^aE)^Vs^BJj6N#o zMaX&&oDD3Y$936=kKfk1 z6HfuudJ;wf$>?P|85JZm^gh8V(JX~L6AF2N{;exK4uqH<6cohmgZ{fDo+zw6`-R=0 zMNqSfA9LSG1d zVBF}#h9B^0c(h??bpg0zeWSrzQ5K{uV&M9^!)Qt;tD>H&o5z!y3mGSsyL}ARaS*7n zf^{2-Ky8j~3{7=1| zxM{k4R{w`Q0P-Zy{{MqX|HCxte+*RqW4|b?{=4KY)meZsWHK9+vf;+p$-t2?87Lj= zx=VDVz&>ThbD>-UhE!wgB2Q{-YomZ%hqMCJ_7rX`C%@gKTido?r?YCyp9wdKUO*KO zG=YVx2n{UsP;Npi6luFrCpr+R_M@1*JRl|Ow;KpGTs#w=P}IPOEMl|JD@GwCKrN&l ze7}yQth#nfHxdaA$^*V>;v@1A(O?EJ;o{=*i9_xoWNY{V{+N%(LA)0MJNMJpegCei zriR`&>z@RN9_`!fZ7#^?FJHXa9pb;1^iF!y5pO|3L87yed!ImEJ�S1j@r_p+!m9 znDm{x?g5R!%rf6llFA?M40J3< z;r=7+LlBf${{7Kri>%5GU@&CfTzve*$F2L$5UtVln|lF=d11tWd;rVicK;W}=%SA+e&oTZ%xcx$LX3qzDQK#BsmEqCwW9YJDjm$_Fxn z`!j=_K@^LDz)!$?YP*C?AA6J|I5pV1hoZQgK z-tks@QWdod>WHuXLlksLLy8Hof}WXgaom+suDPaFq5Mjp%6HqHH;m9o)fFw~v`W*% zB?;UUzOq;J%0=|%P=HUX2mx~w!Z!?q=+@XlVg(>>0L1K4rFhK28F#E z$8FwGydvDBTL%v-I^QGkjsiWgNV?5KdyeBK&~~{$TTH7pA0W&L4_!@7%?cJVRN2$` z7&}|rNy$RE+{m@$1u3Fo=BAi~MAo)Sgy4mr;Nn z&EfPLtF+lLYEO;WN{(8BBBS07l~qgVUSjAgz~uwLIR=j~nzh9cKjXyh3u+(G5x3C& z{thLXa6a7T-@Vyo^+@A!f8&w* z<32(cwdhw*(uFtOD)(S!If)jfgTrjGhPVuO%B$H!%b6tNY&?K*T?AXafcm;O@%EyqNYh^|5J{t2kfn_G@JA3&4e>J&nk zpj${f0oy+kP1da!`Lr|kv)039>MW4=gHQii+=&W#$Z0pA#JzjMk86la1f!X_1PrW6Jz#{7|y5!kgxvcXAYGdewU!TBa6jxq4-FQd;RK_2>m z9-I@FpeOk!`~*bLu{R!Bsv*rl$|o)*C8g`5*MP?qj7cU)=3wPORQL$5F*OoWt0z@A zsLU#Cst?KuG!1obel(}!lRTA)u`#@Tv`mNDi;u|S?g0kX)W{u`H~ux0J%75UveE^e zWrD-cck#PV_#V`FwL7(TJ?X^6y=)qr6nq^_a!6sc@Dn3-!r!C|K8i0M6Q=5JDp|E( zHKQdkA-rYSEYG=_C0wRqe*7!5f-GaTnXT$TGLuvDhpgRz{%CZ(L1w<8Ug?5hfC!33 zGe3!nipseUsi6_(12k~xbJ5ki3Er^`iwZhZ*9kmJH3D_s6IG1knl>2nT`D1O=+LgP zs5*`|+ryrPjZV-!=&-~mVY}d2g1GUH^NP=^B7eXxTMXuhMn@QQayas^J3wu*!>hnp zOW?fmn!1BeevGPh;p6=+R=Hj93+Fy#S~?1Q8qD<^?q{(luD;h(rzDY_|FJ_E|0y*1 z|LrCH0pQPuCqCzXm%O{~@alVcxg|Ohw_(lSm-v#;FH^5%rT(NOaqImXFZ*`{?|&@7 z`uF7a|MTsCe|`U*h5Jix#Y_URCs8JWBSDg(R(wZq0W$`XHlKC^8nzCM4L7C5z^MZ? z1Qr<+9ISy386eFKfL+KPUR|AQNZbc*ZaEeX!U)eR&DT#Y4g>3e)FTmPQ;e-5QLc_!dB~d|YU9$x@A?jxsGybh8uVf^=r1D?k%*#hSM8K%MQ=A+r>HFIYTN%_$Gs6DH& zmc2nfDC5Afm+Re5-V3lwYviNbB)nlPA z)Y;%E6c?;*9Jk!Lb30+*HXmvqXj+;XW>kv#{Q2`)B_;leJCvl@(tA5ffByUlo0MO< zNuK7PlWd}|AcEC@DxaYeoWcqU+{tC)vl`hdk8 zP%l&^VL=W* zVTN?OSl151+XjlmH_`wt4gXH`D0izGz7|l4#qgI++O8@>I}K7({CO?&#dRJyil=vR z?ivwxxpTrhQGbrh8E--3+M3}H&&@zBn za(X}SSne08aKeTqW`@Kc8RCo4B!|!Cfq@+7Nx(^lmHPnq4=4#ib>cY%Db{#XH(3cc zN%&`@q9kDd;`Sj7X7Ed8K>1XO&Tkty?MNw~P*Z z<&q%do)TBv3(pG(rcaFcKjY0p@6(2aTt@4YJBNZU>z!WnCyb(hD}y-z<1oC{MsC0r z;|Vr%*S1AKF%7dw$Hw~LKy)txs-Wr}OxgzpoZt{%TXxOD<9|lwMzwI$G^mp|?^G=l zK-(nYaRI#G_JM=$kNqmQ2MDxV`fp+?XhN^%7kKav7-a%B5_Xmzr?oaCU~~SI=qnu{ z!tVbrq;e(L4^&6wAi;e&O1S0%cGM|?O!qGQ4S<$B{1*T;-E*GsP}MdAwqN`8^%(^p zFQID>#CS-uidZ%ajf;2UHp>RWFmVOXL$pW7{{wk;V>nhh1Hp@i1OVMZR*WLtME?b- zNZ29AIQtNe*)GQ!pLvj0bEP?t>6lO#J1YaSdyq3 zUuifGm3#M#biP-_LUH*%Xx=jB9-2N*WV#)@~B;5WI7SwYNK=^l|`$Bjp?08_`7)U%GF7PDFA_dEW z0VIA4mInZ-nyI?P48}iAHR&_{(8DZ%v(-E`*aYS!fcn872o(gbuwx+9*p>L_AWT$5 zs|1&*2*m|SF&ddwhTamMj8yn7uvL`cG(mR2?9rEsiX^-Zsf92EfQ_@&)Dn8e<|E#h zp$Y#Y>>be(zB#TKKR`Q0E5mC&+zyP5GWH}=I^(}nPyd^th^qV&iPV|!;;$;`9__9} zHY}HNI%meVmZM_lKXfMf|A+ARZ{Yhc%RtBMnD}9zgG!xF_I$QCZjm;v*>;j<)BSy| zq0+ZcUplSH7tSui$$X|tl9ojG>pFrZNr+8Oqn-QM>XRNVa|L!~glVA8h`?kMsk92Y8;+TH+sl?kWR$H|Ca;N{TC+A1^ zjrX6u0RPda_&vi{TA`3G@!u;0V z+@pk(8ucGq?O-?zU+s|Nkh+Mp1{D*GUW1xA$Dr}@=hKfYTXQEsze6$%9UUEu^!Y;` zo#}xi5!#~K^KXgzxA3~eH7?%Q`aj&Gf>gP!iqI4=^J8k7$i5Mh&PABcjEv&gHv-WT z)6*ChX`rSjKK+?j?gr`&A2BU{AOr|L*J;A&$S#KU?>jnB7Z$#K`_}ytMQ#T@ed2Zw zyx!dNZteyc$*#8-9@yxqm_W>s>FSuyEY2m@n)vK4!V0LStbBsl>X+20!_z~8+K!snf3{UfI+^_^ z8>q|DzR5O!!))j5oX5L2sc{u@jIAyyQJ9&JbTH2AhtBsC-sW6tJO>VJrDA1eeftP! zE|Bcc;7u<^-ZtN+Q@v-tz5CCEKvrU<0;*dC%y3&SuSX7g^zD?zYjhMJ+(V?;Y};h_ zqNNiZ2lJ_P;#r8`S!~|8@o^;zWpbW*Sy`EC{%$5F)4%<6a&j`@_yeeOUo--b4&FHK zOtS@VEI)lxcO7URBUMF3MgP#*h`oFF<|ff#VJ5IJCxA;zKfs!vta~ptF0LE4K+a%f z!p_fUy|2Y;rRk&fz_9*VVWAu5B!YP?Fsmpgc9Cv9KYv9VGqM{;= zhY9cJF=!7B;eZ4f{EL{F7@vuHeh|_jOk=S)284w6ZRG7CL6e%)gQ{<0jP(! zoMeCb7{*3|=)CUTOKN|7lnDfG@^0An#52a5UxJ1#;Pj$vP;YXK*&`}g!NgSdV~2+_(w6iQ)+wq^xb?c4UoIl&y4sB zA!$!ADDv&OS42d_g{!=KG}2Z7iuyh18T==3Ps;HPiH9(thH3oohH38C zcaP~l2B0cp93x8d=5go2ALt9R(|}$47#}7Lk-5=@ zlW_XY&d;xu)`V$<4E#4fB)Bm`=Hr>zUTXeVOicJOp@;9(xNdK2OZa{ugyos;I;z9F6x*e` zc}r-|CF&!u-lCVARP*N^t7;j>}ieWG1L<-PEPzgIwjyifEDW1Cx$b-y9sw5x-UsAXHWfxoA0WLiEke~LyI^x zg?jVmZR?*UCjP?xKu^ie6+Upl3_*eM#ki+$J{&d89=UU0URp?(=H6YVm;b8xGlr52 z6qi?4V5=GL@1Mo!4wWat*b@`E`T6-9j9y!9-n=;=Fc5GhJR~F}GE!GnHO}Gm7HM1-(_D+&_p81k_JXF( zw(i{d6MMaKhq#19e2Y&R+uk)h^m47G4^cA}4*~`t%efY5QA^9Q!)5E6O%H#iZ zh4p^}D}xxBn;*ppW_DIqeRXxU;`;_W`1g!Yp7dM}M~WF~E6{rF#C&UcdAYDq{7q}| zO;;-6QzuWR8kF#D`~c}_Wb4im?>`qtFZ;3Y)>-d~un!+Tq@)~rvzwLmdg{}x3R598 zFnu>kzJ|=zKQO@MaVDRNH9IgShCle`&6}^2ex_&(wtQN@6xWaej8XQ@T9kd8k$68+ zwCc}}jt*U6tQH>h1l1S}1oNi1bznKnvuru~W@Ko{JXOccY!E>6P)PFfIhGm5*9=1} z%zTukO!x%kK%@5!4a86`gZWXb_SRmGTPuJKO&)KQEdeFFY5n;4_#njw6~*0=_-g*F z{aKgoiT$Nc=l>OaY6-iQe@;$Lr^LPJ0-Jf{rh*QZ|Kje=?)y&zuy=gDRWASd*95T-G0`kO0nq(tD5i39)LZ|t(%l( z5n~3KR~4>aeK~)ao&C~8cUg3F^w1fKGQ55dUQdPB?^}6sK}W|t@1>ALftQz;<>j^J zzo6ZqTc=@e{%T%1p$=b&mZ@38>I=U`Z(Q2CEur~X45mT5xaJu8_|0xv?`-H97_e^c z04*EtNV{<&IwU2Fk$r|XY-oAbaPlS=a3k>^vzH%n3s`R|o`iwkUhjJdvgUmPvB#0* z@$%}L8U{A_C@enQ-9*6Z<^Mr8b171VC{Bh*IqG)+l(s|VgngSURFsv`7Fj2<(t-^0txd+1O~r8)FUBk6>? z3aLjV4GbxbVEoYchU_dbkEf?+Jr6B7$j>L zo-zNlxmpZbD0bRe(o*xO&`!17)w~tRg?1Iq} zuIr_L;B#;*r%s)skcP5ONA{wS{)HJNjB7PK+(vhIdius2WlhalG!S&A0*Dc)h@;gZ z($W;TPFdnQHywG!z{ohz*O%=)b@lnTu$UMt+vG|Zw7YwHfQNLt*6h9Jq8Ymtujl`# z*Ta`BWccB3Vq)StN}By#Tqsn#sPCh0%bq?>OyYq_DvO;sLAPFdXn7r;rvdU2d(^Q$ zLRyGb_#yyU{&(bu{|-d@FU5}jIGpN7B4sYSf-_WZ^mjw=(9pr?5O^$3 zj$ZgpUb}8x*<4vm%f+7(gw^$UR83vo6iRmGSl-J+2CgBsC(xvLK{lm0g=Wt+#ORF6 zO=y~M`>Uv`?zOC}t(}{k{62UC#YpS7x4p?g<2dXxmw#)?Eldv@*D)Gc4 zTpM7+b#rsOal8#gTYpJv#}@ysx8jHsIYK=u(2j|eys0xPb&`dTkL;**>cWMv<~N;W ziuLQg$9?tFw5)Tm%dcO*?#T`-_KEjxjedRCYA1I>j!fugO9KBDFxyE~)taaRxapzy zuHeX*9WjtY<5gwV@3!fb0JlRSxH!L|dt{`L@V~^x9W+?Q$tqNyoxQy;etu#I9(;J_ zvL2rSi4)K91~6*=$osOgD_9D!pv^MsR=N54A)%pEo^%WhD9u+hW)R9A^B>ttZHr_O@AOU^hnM>X={A?*Dc@( z1WYTlhwNB5%X{F!CMv3AhhrAtZ(x+DZ$s{<<9|Gx5oDq!j1F}%tH#ys7#~XqVTB<4 zRNO#WnQq&*fbej1DHqU`Icwk*dqsEstt}KAHf*4v2yZbLVwRVa11x(C7NVlEN5Vi~ ze-+2w;Dj&-%!4~@%5+D{oyVzO2Sea98$7n@P1HKOA5+Tv42Us;o^lFloXk@^^fUdr zD6n0??4+r%js!D@EeH+83@p>})igNCvMZ&iPvR?KO6c@(^X>I&=JP1K_1HDK*VB%o9LXCFAqnPVk z@-p#@T9-+7R(AVb3fTtkg`V`2>4-HZ1wrR=L}ijML+k0Sy3IRE_O;E-_<_{(iQ zjOfx&8^^ha=xor7hGbZ@En0RI>%HnhO7U2Avr#UE&Fg^V0&ZmIqfeM4X)kh>7v8sb z@4b3%pO4EVy!MHcPobbH8=jHJeH^Hb&mfFT^Vx-20hj}EN5n)J8iA=#O z1pGn_gRQhe(W>{OI7%Ef;u{qO)!pH-_GOl#X5v5yfM2Y_k0dp&!E;ttc)K}Y9WjLrMI5{o|{uTd-kzZrU%(Q+jEV@ekmyrC=o`^m~0)|u#VDDVb~Fn z0M2-yK5T-E(S{$Zt1Zz{{C>*0DWexnHd_Y=hV_OBV?qM*-MwYQrX!sv&OBt=6Vo(^ zmX78TrgsdDsd_vPw6ZcX_XypNX17fCYXhig>L7Wq9lY>JfOM30va_<9 zH&ao8Y>J~rhxW(f{QR#OH0@dl6%iMWr~SrVO0MiV;k?HOjj#Pmhx;CefSO2nLZ>3$%eb+w%GOQW^>h3ZzQnfUc7#Pa>WHCPiUm z1N;A36X*tXv_cG9;uu4e^x?5FR(g8+?b`*hou&qAFXmBFbOGt8+O?z$f0dDLUD5g|ulIn9J(#>wD1P$0}i-+N7OOrw}74AtI7fxlhx1RNHyO z`RlKc4KVw<}`g>7IMR5r+*=nwcf# ztuRsF2maH}jPdr~NEOrVQ~F%}Br!yEv4+&kEOOlq$A)B%dpT!s9Kl>|hQO=JYZ{48 ztn}x-Wgjtfj16JI)0GvX>3}+*dsV%s-F5WKrNcNqrKow+6?D_|`nCqkd2iY95xX~8 zq6Nm1R{~Ok2XD?a_5~zUM7(v!83@m^?4eIhD)etNx^_0I^m`7!>GmnQbu^`>LY1;L z=St?nb72_3EK=XKK!i7_7C2UVY%Dv{nXdb}R^pf+bX#$g1^M}!?F}X5rIIw=JXM!p zy}i?D;sU;FsjKVabRsb1d-v{j6Run=3#xLyZBwY{M19mZ(@2~$i*g=s0)GK|e~e5_ z#HlN2m=fdE$81h6It#%_f^&6{(U1Db5=UDSXRS?|AgJ;Bf#KnZ;Nak(AY^G_vpQrY z=!QeKQw8gyy`UGsaO&F!fK*!LFTx{o1jn?% zP^h_V2U!MNz8)wP`*yd4i@N0O4dhbdOf}eXj6528Fc8M?ZjbW);K2iUCrohi(4Oca z=o;r52=j_N46fhT@@%`(AuMKKYp;&|LyjiSgax;a7`~tO1ecRyP@+$Fx3si0E^aR^ zt$+Ub_L%^mieq2d8{+*>GwVa84-IXC(8JSo0OzPe<592v`O_Kh2hN+R7-J9e|FnI5 z7m`U*AObW}A*&H{eNXnV35nutf`=XzH8mmQ zrX|zw#h@vAqA9?0dT_eAgltJ`sO!dp?gy-=|l;YIB z$Ft68wLdNXlj~#Cbv*WiO?;@UQ*#-GAz1H9wiH}Vsw}8ic$f#1cQ7ziT9x9k2{W`I z3W<%joM{a)u>Z_lCFLxtc#ZJ~xA^WOnxR1#^4RaW-A=|yXkp1$4>RE;LhWJN@uwR& z$u)Glce|lr9!ze_v*S8;?82*`NP5jIHHp8Rl@IQ5$H|7JD}ZfsN#}#ltA0VD)6`aw zyR)CLOa}{Nyz5ZIPB6f}&6_z(ySlnG+=GRgA0aJ1rp+jETgW&^fy_$5FFO1)e4B`+(G@GU- z@4EvLX*5DH2sL@5F`FresmQ)zDV$GcP;8Gp`~4-1_}aN9d|X`R<>j)k4*7W~i?cpI zx#^ADk(SD$8@7{zbc~E9&t6_>*uXiyvtjT?2<1%z)wf3-kZRFnReaG&+$}5o^0_ha zm}{pVP&$GG85TgR4klN4Ofas8-JhoaegYZzLNy!WY~>E5Cq&crE~VktyiD~eoH50D zG1#RksHiu^q^_~nR0z6AWu2o6ur*p2rM9DElsH^CeSQ+vt+Bh$lnK1!UWL>)^Y>L% zgv08HareR4qMm9D~*5JHrH1@L43gQ`plV zp~-ys@M^^Z+cz@nebk*$Jm;h0Gbr_Y}+>v`cAO@4I3bZEbi{jh?bc_rPa{G4U zVP4M55HEAXVanA+p?~cE^z7NQhqVMDUcTxdA2-PJRNZ8Qfji#X;k{%nz~#qofu7?} zGeRS0ESeV|KyE;f==yb9MMXvIT!Reb3dCCq?M3DBTJKv1>5%j=WDC)W>hH3MlvLVwVQU4k6s1C?{Y+$4`p@ap*l52Qd9an|@> zH}YW<#<5}e1!(Zew$F=}?V#%oyIv7{9Q>Nyyg1o0hvSnpefJ&jbVheD?nWPG>e?3> z9fljLTTx887OZF(%!g(c!M`theAS6SM$YrlC)VYQrRs0JOfrX-W5Zi_)oi3l0w8Jl zv7>_Hs53a_r14zT)$75`9%(2@S;Qda^EFB2intg2t*(`EwsUm`^ma71h-%INA5!I^eq3ZC@l`3Q_Vx0u(9Opb39OMSFT^rd#NBX zQMx^Z=R(bFib9WadI+>&DZz8d-v}*Umwsc zzD8qPaiC>U1Az$_I*v6PNJvPig#{m3+>;$WBKjRWDw0P#N=g98k&=Qw6{*AYaQiM( zdJ+(9*q3!W@gRbC@7~4XIy}g`bnEZDKkU9d52FzbQ5DI3{rw@q!4LW{?X2@9^nk(+ z9PznN!mR7UbMhGehXN;w|3`q`2LXznH%~Aw$%biWQPBlh{;(|g)xGmA*Md^ZN7Vv%sEZ_VeOv@(5rJ*YDsSz=~zW)a6UOK@_p&#i;jsYu^-k9 z)W#@nvQFTlVsF7Kd)hai6Wn81Hk9_aZl}F;dh_n}(Fo?fd-o0v#Y)%21LdN$lg8+H zmiipJrdsZ(&?cYyGR0yg1p@A0g2;UiP55yzyxkr5WiB`^L#ZscSho`Q^`JAu^)dhq>6WDz3F_*TQO6 zjQRdblOGHzc?k&u3tLWQi^=;ru)g4+rI0rL{^9|P-vzbGTNI%oo_0qu;b=K=)-Jscj^yn;x-sr24AviDgy>@`q;l^=+=bY=~aXHCH zTBEa?b521!K+ayq`iQE$dj^a3aZ3Ay__j>`;z-b|-WX49A1^_;%18I?uL;yxHk|#SBtKKD6aox-Mf|r%ZOd%IbzI-`vW;uWd`nkZJ zcOw-Q5oS)?(AT*p#GD-2cS`d51@~ts)etF^+vwjqyKh*MEf^|5V2qZXM+wMSo9 zS9iE&sBiAW#XvfYH{-+zkL^`x7m{bK$S*C#<+O|4^3+*DDd3_FdfNA@5q0IooDlY6 zdU|^Ek%Qn@-?_3B6TpCz2Bleki+{E|w6MkDG51Vrl5IspRA1vbXzcgz9q8|Ca+Z3s zucxH+wG4WH=`a(uMolnZ33~+UP{F)P2YgF3fMYU}t7(aepL;|5KzZaIEfI&cxy}DJ zpUb=czdF12f2h+v&L*+KOwN&pkdxbl2-~1I(`~XLaa^KYW>kml$)((O(2{B^)+Nbp zrwutO#$`K%bXyh^B0`1DrIs+cmI<@(r~M1|%#ZVWdHK%wd7jVZ{eFMmPoHJ*u4}h$ z-7;H>LEo1DB{E1?jGwwq%%QA)F-FLhl-MhW4m3kZS1`@ei1xGKmA2W*K}#X4sF?94 z!QReJ&GO`bM=~1S_Q)tI@^^>lVo4*D>Jt}ToW>42qbINu6!W;}D{4(^JUT@EkP3WN z8IrthgX@SuLQQgOm!v}e_3Jy99qV**_FDhCOs1{_!imWQq6r=ypQa4^`MJ4tn+Vc{|C%n{N2I;%}GakX2I<3x2m2PcsDucQkX zZjQcIo7vX*_}aOuEq_+e7fN4=0N3sHeo^dgX9Tr^XyubfSB)07nq{|clxHELF)03) z(HICXu}uK1wC@8~4VM-0#EXRq_kf<@4SGj?ggsYNWwUS;oMaidUseg;J{=LVOv>;* z`!5@u!>0=x(J2^&bFW;!yf^%P530v!`O~Oj3yQAYJc+^p6xTk*krQd@c)F8gowj2< z&IDY5qPxerP5O^Q-n|_kH!y6;g?GkqBlYMqHXM7WJ0_03*w}hzjqW|H2-$b zcg~NM5_1uUmQ1_q830(3+GZcCjztIRlQx4xRZsm!B?|_NsG%QP(dXLHVX(K)TF*HItpO_2iQWpL=v(%^FQl( z<-)8)Ba7_vS0Wr3VsFe|fL+u0v%(+D9IDIFSik^}Nef4-uv+foyzRhKHk%!=)`IrM zKO}a`t1%o!Vn}vK z{!23lWk6cZH#xbvd3kwc7L9m@SX#dDlT1KVMnl_Uq&}*ig;3M%sj)q3^0!QnSDyUt?%CnSCRQgTEDbwa2=-(? zGc#k@dHK!QniEas|E#VCFm4!FJpH1AD?Qxqk@OIl!CD`y&sFiD8{dgk#eE`Tr53~Y z1*Ss8)yc`4ebab&5?vf}7zexz84Ske&26ukfTi=vyu|IPflFuO&Zs!LueVtP*FVDr zRwu@qfqc^4fKp|19kk@2${<3o$snW?VyS++cR#8I$oE<%SSb+(y4nC^npGd*J361! zVz?_#vv#&)AK(W}=^01Xg;{)O{vASt&Ejjt=fCL4JObJ<7QtBA7LW2iIJnI0>$gB* zDjl7(Wy{*7KmU^S@u#9_m~WeVXjo}!4Pp_L6-Z_*yMavwgyA^Nl(zb;okUXouxkZW z>;P;lL+(KH#Ip$9W1UmE<(}7lnBl?vtUo{AwY9G=8Z{nzn)Gn{%%I?4asdrCyTR%Z zN4mOT8B^wNp2vVb!EI>3;PxjV@#Q!-V1%P0BA#FZAuOd+%a}4 zmYn<^u+>GuzI_x=dG!ZKtQT@#aF+y{UtuXN&JBuWfolXlm`*Y`E* zVh)Fcp_&`r@6dJ7)YYvqZ;0L~^ODFNL?gyIz4#wyXK|g40G-A+w5#p^Hqh6H{hb@~ zHcINH#l=I152GOkM}Zgk1R)Ll2|a@GiML7sJABWnJQlwj@MzB1PFhM!gSGjbyN)lbnV>`$ha-`{ySvF*>sTd-6gpZ!Z!dY zhi9ZE?to#hg`27!{m~fwcmV@~}pPdyO`?nw4`GLgbF0 zUExY@=RjM4N_x}sM<4n4ho$J9nG{5xVqT7dyb83C4@%%NBL)t3fN};Vdaxw;dLqbC z*pg|gi;5B-J-x=}jKvSJ;>xPUIq=a4`$q-8JK7ivpw#aNFpZTA8|~1JjTM7#^?#`F zKmk)a#P1LU2Er0_q9F@RqM`PQ#YRHBOLr*5mi_Ugz}#o6tgI}WhB!?i*{OjlT0|l@ zMn>b%PoOyh8m{B*C0Uvab`2;4{>lN91(=TtIJbhuguK&{Woz4n^_OD4pPAt(yZ5Ye uTYq!cpAv5lF$ei8(yYHK7ym!`TCrUAx$_+5Vx66Yo3-8Tu&ZQ;Puw4+wlmQH literal 0 HcmV?d00001 diff --git a/scripts/plots-save.R b/scripts/plots-save.R index 2ed79d7..18c55b3 100644 --- a/scripts/plots-save.R +++ b/scripts/plots-save.R @@ -14,3 +14,4 @@ units <- "cm" # save plots -------------------------------------------------------------- ggsave(filename = "figures/receitas.png", plot = gg.receitas, height = 16.5, width = 16.5, units = units) +ggsave(filename = "figures/receita_total.png", plot = gg.rec_total, height = height, width = width, units = units) diff --git a/scripts/plots.R b/scripts/plots.R index 14a0a9d..2b5394a 100644 --- a/scripts/plots.R +++ b/scripts/plots.R @@ -45,6 +45,8 @@ data.raw %>% # scale_color_brewer(palette = ff.pal) + # scale_fill_brewer(palette = ff.pal) -gg + - geom_histogram(aes(total_receita), binwidth = .5) + +gg.rec_total <- gg + + geom_histogram(aes(total_receita), binwidth = .5, fill = ff.col) + + xlab(attr(analytical$total_receita, "label")) + + ylab("") + facet_wrap(~ evangelico)