From 5a55cf6752f7e56039bd6da4efb58c5614883181 Mon Sep 17 00:00:00 2001 From: Ildefonso Cases Date: Fri, 9 Jan 2015 11:34:28 +0100 Subject: [PATCH] plot1 --- plot1.R | 9 +++++++++ plot1.png | Bin 0 -> 15685 bytes 2 files changed, 9 insertions(+) create mode 100644 plot1.R create mode 100644 plot1.png diff --git a/plot1.R b/plot1.R new file mode 100644 index 00000000000..452b2f9e5ef --- /dev/null +++ b/plot1.R @@ -0,0 +1,9 @@ +temp <- tempfile() +download.file('http://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip',temp) +all_data<-read.csv(unzip(temp),sep = ";",header = T,quote = "",na.strings='?') +unlink(temp) +my_data<-subset(all_data,Date=='1/2/2007' | Date=='2/2/2007') +my_data$dt<-strptime(paste(my_data$Date,my_data$Time),"%d/%m/%Y %T") +png('plot1.png',bg = "transparent") +hist(my_data$Global_active_power,col=2,main='Global Active Power',xlab='Global Active Power (kilowatts)') +dev.off() diff --git a/plot1.png b/plot1.png new file mode 100644 index 0000000000000000000000000000000000000000..f3b2958ace68c9d007dd0d23aefb1d0f95469c0c GIT binary patch literal 15685 zcmeHucT`jDx2E(iDj)(X__Gm0QCg511ZmPkmu8`Nq?gbH6bvXPpnwFVcj+w@LBKEc zF1;C~L#UxoLhyILb=Rz!S@+(VxohVB!CC8^lk@KP?04^HKl^zPZ#2~v8EDyQ&z(ER zpsXaXeeN8|6ycAW5`V?NzYcNk9ND^!oSdezoE(>?tCOXTy~Vk6VlbHQxYMW(v&^b2fsa~*Lp<2t@`n^ zAC=k6CpJt(knf|BA7dr-ZqRhe-rWLcX85XC8}pO$w}dJVHksY{HUXjZyhixJBF2aM@H%BMPK1iieJ zdV5vTd9tsi?X~ZPfccR{@-9Pz3`#Fygj&k|05;@`%+Fr{1k}l&(>FO`YiM6P`ChvD8>b7vQ zc@zDrxWQKv!K`=T^mW&qwIF0vla4cun`#4PL>1hA?5<|!P-xEKw^l?S{HeYm6x@uL4Kvq(@ z->m#yuKM}-BdzsYmco}@AH_v;+kI|ydxQObMyyy@vQ`pZV8hh{YY_MlMi`otW&CyP z8`Mxp?SZCu@nfk){_aJtuWMZOUpTYA?eZ0E`rO)_q!im?oiGIbW7v&s%8oJlpiF5n z+;gS`Nn$LP3>phv@6@;jC0VyU*u@5zu%QwhMG_d->lSh3=CiYwn@Ei1%h|_U^_0$k z9kLppbMd-VHXU~E+=C0s^0GQ!BrD@IV=NT4Cs^+n7g=QGMK8*$K#na_vZtfc?>vjK z$f$an?%r4L@L{vFt9+(!Tt ziEc$Sqp4JMj)XTJq=#?l2^S%z%{wNa7@B!!B9`>xrHq9gJ^ddn7k-2Ua#BF3g@YT&SAGqn{V?>+YV(2?FxU9v+?eqFVo}!* z&T`?lxIIzFE%oZ-GIYbw71Kf71N7SSzTPXJQ$wK|dqu9FdzG;+SWzu%;Y9H7u+irp zl@}=}tuy^IFhT_v(T^jRD$pG0IQTfC6`@iVXStkjpCg$vmR#u_7mKu&GVnI5diX{L zR$IdF`@k`=kUKzY>~KVTlDcqtbiaLD9<%CfB)m?xbdy;o{iu9qPlIP1G0Qvz#^^L# zt>iMxu%L7n^8FxK$Y#Cv7xwh`8a$pn8bIj&=%}FTr}UqKb%oWqfW>QSRrf^QsJLr@bnsDT-x^dQbloLr=J_4~Lx-lv=ry~edKIxyZ)CZaebJ{4PmED> zmrvz+h#&8vePEnJ?uoV@&uLtPS;+kqmolZCjKVFdvJs}cW6trJirz}Ijt}`K7ksNZ z-X#=sd=lt_gmD+hF>AamIpDr}qS+J;D6nJhk{M&=ffp`ee5H<MIA!wXc2Rc4+y~JM@v&5(8_t{#4 zv%eB%TmekleP*AfMH@6ijSC>94f;Zdvqy`(TuH{5O+G+EVty_ML{+;a<)AW_^Koz2 zo?0+s=x>`!w~eT|$e|3en0fJ0+e1f-tX|08bFnQpZ1o_>?Gfn5UlCn*oOG+XpChuO z243%WbT|SnI4s`JP%dXqj@z3!x;^2BQgWF(D#e8}p?Krse$V;G2|n3-|18`Np~ixI zy5BymfxU~^9j~a8^;Q^G#179nL@eo}qtI&zKE(ZqiX-0UK8HD1IZuB_{9J>A^LHW3 z*l_1+j?%8;qjT+}4;~fm4k5g%l%qAHA~jxIB_Y26PM#&5Eu#j-wmpj!7fPI4i0WcC zan!84`kC)QeJt)Sw^r4CulR)5OJ2=!YrCOezbr{!Q|ta3?FtuE#v0~1y^NWuR={GK z{8LojdrRj<9VH#b98q;0xhfxKs^!zOC_22Q}*GEYg?iw{$ z?8VIZXksy&@aHT}t%A)R#m0}U8tT*}3+G)+Rh>?1rVm#{-r5!`_;JX*8wMNZwQC+u zee082oz{n2Pww`6O*-#uGekq8bno!gt?EWBc{In>Pt!4zmR+7VUScVhCST-QH>m71 zdA3ydaMqK%F7^1az0X3{?;2B63F|#iOR?3GI(IQ)HGylM-V<;>F zFNr{5cLupTwzo}o^R69kPUZ{GmB=7d_EozuCF5Co@;8^nwxBrsK1Ry(dgpcLcq+IH ztdWOYH^n)&L(UB;L?pbZiZ6IW1(--;WJVq-V5n#kxN{MPJ@O3WX(r_!LS>&5$~m_x zTYw<$1D=UkPq-rd1|gOe`JUUIc$NadJzSEui z%Z~9g631y94knI)T6<9w+sh;0WKPC)pZA1})HY^2syZ6T=t^r-0?c&BsPUjdUwD`m z2Kv77LhR_3^A(Xism8YJIKVIm0vf@Q*k)C(>~1Lb@=F+$eaH%y+i0`{5($+lC(~@B=f5r)&39(GvUZ zYG~W5pE6{^t6><*d8}7e5zZrNjq=w}ynon2TfHs{nY5;W88O0Q7+IV$<~+1W1OMBEW`oSI~SnOX7$@HrClUZ(X=-D?O>=1DBS zev-DI=zy*Z!cM`_H5$-!?Zl27tG81BwO-IR1M8OeUFuS!E^X0ftsgru?eM4o>mKQ*NZDUHZ|x30<@YyO*W2}rr{igZKFcE*zNIdPhIp%$sMYb z9Gs8m!9(RoPKz6d6cJr$5OJpRt1HUN(%51>uDW` zJ4()cEY=aS8o?Qe6Z5T$JCM4~!|r_R+XeheWu-Kj=L2o4m#Rl#Zq3joXG~qSx?9WT z`s#$qIV=qz+SdfJ<3iVw+kbDg*pSQ})9Fz4P26yBmTzCRh$>dF(Yp*3f)~+-o{>cWwQ+{UvGTC& zLV++q3ULuVi}qwb&98GojntJr7AclCH^=OM#}0q&vK=AE1PX523fh!#U8yy_K(FCq zQ8K|0JZZZpy_tDBC3bK_VTEPNq0Xj~g~}%wTfWUETD5REjUi+zhAy}>q}Qi(qr`kW z(KBSuw@l7y$Uf8HB7wDnO(=?c16v=!JmIO#(p_l8kcJ$iE+w!Ju8h_R&9n>!6Um$+7m(rSTJVnH zdJh`hoEiU^xn9&S$rVB5dR&@U2m?gk9x;2MN**~NM;!f3hb@=;1OG@Ceg9X3V0J@KCEsJepc7hRgWp$XE+FAY3puM(~9Mz2eC1Y|!vrM>YEk(s;}GuH}Fxt+u0Hq3c#L-L;i_9C5xqkr<`(4K9W zO1R^XvA1Boq+ot}Zi(R2C~c_5dy^h_F!Gb1hT|}JZancG(vY|Szf|xG;Ptv+UAsW< zP{++?&kg`MvwQO$g3_;8{>ZIzbG&iB_$KiIoeMvD?HZ1$wHecWLmeyxiS7=)_yf)M zRrW}#+f3js@0nR}FgUg|kV*8znJwnWft1F1vwuyTc3QvW11S?fkTqNWq|RF=HiV*tUv*{p1w#;^&%REwu6=tVd?$C$C@V-X~Zw+O)O2LP0IrMrN0O+`9&P-<7 z-y?0=Q}%!tXKj((o5rhU3HS}r2mHyai};M2GwBZ9`|wQhG@Aw=aRHqgXH2@6TuUp@ zpTgf$ayMtANpc z{&^|41QWRHHbBiUb&Nja6!*9^?eM^6zP2lffi{np7HtIe4*HmZys8>u`?mYNw3{DK z@iP#tM!?*o`)Nq-Ye!dlH;uv|1&98<{^$<#KPYsWF!kq3WzrjYj06x%E+94ZW)K^{e_IoS;(;RbWAT2LHRir47G8#mDv>pSlg7x|4*Qhx)~W$P}auCIw$*DMt{IlbQhF zRt=OUX@0f$ikGR0Q==g@6em;vscL!VPF@mr=c1^)z99rOddGx6Q$Np~@aD7#{nx$! zt$qpO6`krVUP3U*h%yn^-Gi|1o&$r(|Evh{1-EUE+}?Me%#J|DWSo^xLh62%jRWig zCo*6N#yC9LiETbHA2I*jCF-$e%@`Cn2!| z=>IA_>4d%cE)ym!+c$)H+2HRcRqv8(%+UWG^skaPN;*t9ogVx|I&ABm;~G4-Nw|k0 z{tVVu2}y}h)71c4`_noL<|6>Y-W6@WXz``fA7#}L=6&N!^o>W{(D0owS|mx7{1sxw z!)Fes+y67UgGkLF2=m5jr;#o@)#f2sk2-j^iiqaTtMSfaQ@@cD0B%6sKM z^j=V!zzi;FaB<`X_U*JVh3~}=|cPbLnCihtVHrzt-dfHi1*3P zvm^fb1o5wajuEGUe~#3GJcfP!PWAC^^j$DIIuRV zyD~Yj*MTvM+c4C*Z8qM6HyM#&%$%2W5@}vmUks-li(o0iqd|}o{tXYrk7?1sFThN( zF|)SoDf9A+NDOE2y5TMWO&&_g`)UVnYGp8+d1XJdKd{!Gh_()-%7u7-5$RK{3Y{p| z&Fd?(nm4)$G=5o{(Up5I`iv#~(k5hK^hoO6#@Y?L;$ur*By8fcdhVP#>ayr5XFN2V zO+ue`tp5T&_$VBD_StK1gAqEKd^1( zmtOq5P@k~vr^}0GrW>LTd49=%&=fxf5p(2%dUUhQ59c!1Z0(he1Fuf4!{J$$hFmG->G5@`&XH;Urre+Ipe~8lLiAl5ropx9z3#f zKTT$SN4-j1mFWPU@J*NqT(*4peYlP2*w9TzBJgcrP!cEe*c{h?AUyWlx*r&Zfq-lj%j${>!(ARn^gzLyZP4*pk(twkJl5x^bG{yUmuL3R>Nir~lA>5y zv+!Voa+OzvTOY3c#Mr_*`-8&(2LPm|ss7<}dg;wtU94UA-)*p33mgrbftpDoy41tD zk@~&d0b}z8_iT8P7DP7wjt!4>D9tAeCB03EZ|IPxdUi@gViE|ZBCN~+)s6vOU}(Em2`XG|S@ThG&IaTd2+nhRUtdfkP3p8}k74HjtcC!*!CgBG!{Z+EKi9;$ z@YfV4y#|7sT_HpR7nCkdsTnAXx67Tni0d|PssF7ZYZ zoykQwOKXxO4x@c3nIx0E?HQ2@DdErVF5Elq(ar_I$*mgz--->0zl_13{ogZpO5jI^ zOaUtbf8K+Mz&lOSU7`dP4O80n|E@=ZQ^@_wKZRBsaP*vtaxR-IDfEy#JmYZXGsO~o zgTM(<^}-qiMGkIh5w!8qH9}C~Z_*L_SETKALs|EK4dFly+32{57Z!#VKh0N`qX*9J(mY~6>4BUT*zvCHZ$y6#LNaaJZ{HOH9Oyl%_fdL@HM^9PS zIgN;GrwqV=AWoXs(~W4zbio|l@J&0Du)m3Pm|Jjx=L>r_Y>#yHx~3oLED^8z9}{K7 zEx6zX2XEFbOm!`!;C!F_AF35pO^`)4`RA)o0AEQ?pE(r>qw48=UY|S6H#lAvSPQ;P zqyn0f1k-K&kk#mm2TOO4R;{IjndP1`6ZmTK6;i{!J9)10W`o~1+y2?-d$Z!@ul2Uz zu{`oVtNICP&`bggltr2PG|RyE3EITCaiLBDeo{6^Wc0_@z1a}~*WR4<5qNpTn|A-{ z8>qrwT+-gNKSn{;2+>&!drH}y5m_r z<@}Gi3{19 z={{@IUf|<=s^Fot;-}O+%{gEsf(>o(ra8S24XPduu(lJP8zMZ1q7xqqP_UOItOEGSsjkOwEpsFZDksD5IB0Zl zx$j-+rKz5HUu5xJ@nF7D4oma)=4p?nDL`=Jyh%3%4KBr)bjK|bx!m}xvzBR*A1|c0 z*Ca0;XEsoty1rkV09VKS^EXJ>E1vC@)T8K(&aeVYzzV(^)v9`Wm%D149{d7A(aJ=S z!;@&dRR34r;?2M`RtP zX86Z`P6lq5Z?HA5J==+MT24i!G1m<;#*2?Lxh=>fV`jSsCdZ|MS&mgjPP>|SHwXwA zFpySH(`FS2l^cAC{*1o`5_m+hD_e>hz7_#);VG@U<}(-v2-cYA|ITu5ZkhtK3Iqz zkg?U=?oH^I&Ne$(-;E|TrQi<2n6*uj2&=Z`J+k;YO$MHIeUYgXYVm8e-rc`Am$H1+ z2BL5086MoP%n?YSAmjmpytqFQ=y0>|BK7_v`LGaRoveWfh)dsH{8AyLO8IvJ}=03_erC4g|Oi`hWW| zw}Q1rLkZGmRs&{Xs3oM(pH5mQ>$%Ax6@X zkCJZ?Jmmdzc)^GkRX~aI{c2h$6s%5_Ry1K~bX@gq(ISrGvkanTW5_xsoE%uuizj82 z_uA|Y@Wid@x{n7cmei!II6uVA6zeTxz%(E5Ypyi5-k6~dl8nH!1x?)`x7CX|)o*y| zi7Pil(;XP;sXBZrfCpX01KvyLcRx?7S6D4#UEeJF^EMfhB`dtdQO_K!1_LkW^k8LFirajRU50*Rq_(I@KSLY zOZ(6cP{MAQU6c9+zF;K6W*hXly1PmD0nMF|kOH~>SCH&N3ZT{GRpBKUat1LL^UEXr zcy?&+^x;J2FxkZSI}HC#M;xiz$fA1CNj{X1F8&A_Cxu8EF!O1<#JV`C2r&|k&l5ze*SrRfuRXy@J-?*%{ zM1L_Xx^%Z?j6Z>NL2}Igpw2WSVN1VL=TITKS%uN!qoCFvOi-_crtStIlCW8^^>vQ5knSzV8rB%+ri$P>hKb%1ex$O^-e$;Lflx^DP^WC4 z1WiKEs$pcvoVrlIxd%i1T)FQJ8j$@Usx^47!;>!lJ6v6jE}m+cE8yDi0h_#UCyeye z@zRSGJ3;;f`q)>;3i=e^(9!^@=A$nYWALQ)Wv>CQnCqvG40o-T zQCr-Rf=TdHS0h_O%T8uld#R7glZqj$>YH#^PcG!Z77dz2#cn`N-x-bQ+KJ;?*&|y` zAKm7!=;l%Dn~V;CNR@3wXJ_uc7n-zL1dT#~yMd)AdVLe&D1k{U^Xllw`5UVrc21s$ z4L!zW$F6bop^!?W^J)(DYqKvQHWLdK6tav{A@9*}K@fYs%|5(Q9C6*6LcOf5P;oQf ztxVVOI=+r|H;~#Ob@PBL&L%F!Gnqt$w-fCO^lR{p=ZzPFkAjNm^ z(hB@IqRYojFM|h48*|odp61zq$bm~Fh}Zw3qOF8sC`J7j3zSwU=IiSn8k}$Ckp=JJ zN1ubk9G6^&(s!lMg-rHQ{Vj{Ff%C^IRcZ4Q=;IrjJnP^Ea{eKmDGsAiEfJHOKp=}( zvKwif9nU>=yMt$HLqE{ktV)}40@{;adPMmYY>EdXZz)%M&}m&Sz@Jq~`<+$!|K)q< zNEx{9C6nyjZ>y;+5-sqJ1$`wchn-L@`o8nE-R2ndWHOLAV{b%e^+&rU*6n}uHE;*T zP7gb$o+Tha#|NOZLLO$L3xQj~eGyG8IntyDc4eDOC5vIExoa;A^phY-no-)^;?H0F=2PKnl(PFQC=sB7rhwZ+yF&XXw;wd9d7O_PP#=FZ~NNc|Bj8^z_1VafxBl zOuoGMDTtDW+lV-lVyRNg42A3#1cIaCoPbR@1)7F76g*9#-gn*f@@U%~7zpS{s^dUW z-m`e<+HkSV#G$FMgJH_hf~lEN=>gg0hYU-7Mnkq3+vZmD(wR6CF`5gcy7oa%HoF<$ zJ$f|A_+TcMrJ|&xwjz#olLZ}%29H&z?!XR2lqRv9g}k(_Hs^w~WEpzI50g)rirkNM zXQ^8Gh2ozFbv~HbDFq!d&&60gs!5&fu+n7s9ManRxL(unp0cTt7I(h2@L<18G5WwJ8A({d>peNgkYVB2 zg0d%4b`dn|%x?6lVX5_f)raT$G0_-4ElT{}4Y-Hmkdj$ue`|Q%U&S*t2iDMO1VciB z9Ytk^Qg(og$s}=s{qtWER%X$U(Y~|+Cl8a^6&p1AHd}IA9!x9)NDZ0i^I;pUF=zcF zvCsRTef9JolHtU@qQ!d{7rg6NCJ#OvsP->O$u}U+tV! zZenFB7>zZY97N~?=nxd>aP;$tioyx^BvEt4^xor^%!)Y^nEwMX-7v^l^UzDj$OF_- z`Dnp-fmT(~+=P7aNgUAS8oA)DuSMmU>&+dTedzOOuI3J$Px=I=#rOS2hx^z&Dfil= zrX}gzY3XS%5z1Yg8&dEj^c{2=8j0|ce!hNE3Pm1CXY1tHO6VAA2p`GA$4L#6@3nsGY; z1OTasEL7fa#G{Czijo->@td2UdPXBSZ=v$+Q@<~@R^NkoE9`|8SIxKwq#0*cJ{V8I z(N7M!^u1lY1iP9e46x#M;+{YTKqT`^{V4tP|N747?v0qi=(#?4w5bj;cI@{!NEFEO z8}yNDGq|vvpHhL9!!V*PBbIb9s?DRGDcVLAwvDWfZzOE4e8%qf;Zo61m0!s{CzzEx zdyktf`w;#tLo4X@*rKw&q(QGOu30x&w63TQzplNgS(O&nMclNgK5ik5UFQ1n6Z|L1 z()&)$2bTvZ*|EikQ(=Uv!~Sr}egzXyQJh(0SGSgIQU}={#`2>b@$n8~iCfb-DqS8# z4T1lJLI<0=1MpZaiH6N7cY8$09c)c{4u4k6=sl_8=6(wsf+5^agoaRGs1>M)FA56cbP%Z(Za&9FF)HxS!Aw zM^epbl0!i1!Jl*I%B9w9eWX37hP9x`OR`I zA8ua&6kHTOGopbF36(pTj(Vsoym9Zy=7U0UHVfN$u?K93se(Op6l|k~Dmg$mDS$w<|e`w zLv^XI36-A0p{1kD@42XQ!0ou~=-S0S3(rRLG&A11uKUGd-T7|wl5^EC0>}w81DQGw z*5xNm*MGNyzwPR?-~@v9v&x5l@HQXpF=8YlIJqR#DoNHd#|kR>b?1PhyDKQh{A&=< z=q7XFPzx2X6`^`?M?pr6l=+i>A9*VqrdMKg8coufp2v+l^Hkw%Cls72?9yiLlvWA6+BRWum|NK{U(2ZM zgg|HB({2Z5tX=B_j!!NLkGI~GmRgm1xH-Q2pV-yi2F6lT zh@a$jeaREgh$V81(3x3r`8QFDRwZU?U{jbX^yyaM z^?1Vq{7}+lD~s=A7W3QkKMx?r(gq?YqI%uEuOZ6wdrAFU&0rEIx8hWmqB0JG-oZw+ z6&KM%Hgxc(kgMLyXgGeVprn8dI%ILGSFew@1X##p>>!qt^n_XZp7`i!+m- zCL4UwsMic9XB3J=XI!wZ0B^l69H*NiY;}S;D3bcO{Vz*o!YbO(1OAs+G8>NEME`8< p|2z5nnL7LL8>L%}^n|SG*VprJFNDeA|2_Jg@*{Qmf`{h8{|&WAR2KjM literal 0 HcmV?d00001