From 7465103a247cc9443239bf7aaf8b0a1012efdb75 Mon Sep 17 00:00:00 2001 From: Sada Date: Thu, 5 Mar 2015 02:26:16 -0600 Subject: [PATCH] added R plotting scripts --- plot1.R | 39 ++++++++++++++++++++++++++++++ plot1.png | Bin 0 -> 3663 bytes plot2.R | 37 +++++++++++++++++++++++++++++ plot2.png | Bin 0 -> 4544 bytes plot3.R | 43 ++++++++++++++++++++++++++++++++++ plot3.png | Bin 0 -> 3987 bytes plot4.R | 69 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ plot4.png | Bin 0 -> 7355 bytes 8 files changed, 188 insertions(+) create mode 100644 plot1.R create mode 100644 plot1.png create mode 100644 plot2.R create mode 100644 plot2.png create mode 100644 plot3.R create mode 100644 plot3.png create mode 100644 plot4.R create mode 100644 plot4.png diff --git a/plot1.R b/plot1.R new file mode 100644 index 00000000000..c81ff07ab3c --- /dev/null +++ b/plot1.R @@ -0,0 +1,39 @@ +## Project 1 Assignment: Exploratory Data Analysis (plot1.R) + +## This script reads in the sample datat provided in file ./household_power_consumption.txt + +## Read the data +poweruse <- read.table("household_power_consumption.txt", + header=TRUE, sep=";", + skip=66636, nrows=2880, + stringsAsFactors=FALSE, + na.strings="?", + quote="") + +## Label the columns +names(poweruse) <- c("Date", + "Time", + "Global_active_power", + "Global_reactive_power", + "Voltage", + "Global_intensity", + "Sub_metering_1", + "Sub_metering_2", + "Sub_metering_3") + +## Merge "Date" and "Time" columns and add as another column +poweruse$DateTime <- do.call(paste,poweruse[c("Date","Time")]) + +## Convert the DateTime column to the right datatype +poweruse$DateTime <- strptime(poweruse$DateTime,"%d/%m/%Y %H:%M:%S") + +## Create the plot: Histogram of Global Active Power +png(file="plot1.png", width=480, height=480, bg="transparent") +hist(poweruse$Global_active_power, + breaks=6, + main="Global Active Power", + xlab = "Global Active Power (kilowatts)", + col="red") +dev.off() + + diff --git a/plot1.png b/plot1.png new file mode 100644 index 0000000000000000000000000000000000000000..1f6cff8fd6d07742c08115f4c8f7098dd6d7110b GIT binary patch literal 3663 zcmbVP2~?8#7N-{_ntNrA8)Yt~rkP8irjxmZdoH1=p(a>{ism+^QCKRGQ8Fos%Ny4$ zb3swlf+2Mpb5C4T_gSa+=A3utoS8U>@B8lmyWDe^-|yZF(aFJDOhiru z1Oka6PFpyGK-)&PzL4#}iH(RuA#lrgvU9cM@p-@_2m}X#&>%P*1P88U5QYKBfB*-f zx6a_el?=zA;lMeW3@3BYU$oI6G_29FE}k+*(;CSyRr8JR&Q z4=~6B9P$8?$DAcJ z&s}huJtdgb)d!uzS3+(m^0kq=#?Unz5mZ32k(W{ahN=QWbsvT8*c&J1zSpE~X$lXo z!`~4hNru$-;Q~%x<>?7W5=@81T)MKju|Z%YKZZ)qC~!w8-7W?9x}~)}Vu?PUEH^nT zGt|WJbHg!a9be@2dqaBI-IH)A4nxTf=tedny!^O@M7|$23=ni z?=<6@?#0*1m)a=T9G~@lgR@R?L(`lTn=qgF97K)CaK_VAi^QP86C65#Y4hK$^ zWc67zq(J8HE61FhmsNXK|I;))-ly;_8E>QWIH|R)OO7_FZ)M}AR;tO4cw2r~L*}%q zl<2;l--nn#VQX&RU@^z2zU~I40=eKP{aOD}NsOZLoL}k4+QzHoY@c1q?isu|9H*FI z+Nb8cAGs>_Hl#pbsw!?8d^98rCS}i#?vgrV!Iw}vs zv^giTGO)q~v3K@mTauk?m~%I!u-6R{sl)ycA%-?IwHVV{-gdUtrCy=LBhjeqKHC-a z?99uyePh6#_{M%H0C46wgdoZ zr`$e32znDqb-gACGj;~c|GV|*VQj7|-7ysb82QFvUp?p0zB{f8h6nd1ntlhh#Rm=% z>(#Wz%92xHfUDSC6>*PBpi?CJrodD@#*W%aCw>)x%9ITh!$c_!2b!d}-U8Zy;7e8c zR_jDArqQ?BBeXB*tit;LHJA)r;rWJ80cqGUP1>#|TlnuZp($ri*#1>JufT0ELc7Ht z6R23!-swxbguvNEBf=9cd93#@=HLO$Q{s6$I(Cz8VfID6o8YZ6p&V^%yeR@P{E;if z!e0Lj zuU2I~&HI?$F>$D25|Hh5tr%-P0GahEY8;I}lJ6e*eCQx4afYs7)EBBJJX8%j8%wxzNj~G<_RCM=a1Kzc4E-X|aUGs8ci24cm*G@la$TV;2$8#Dv$UHAcj&=*o<@S^CEKp4f=xMxcV%aM}U>k({G z3fNy9Iba^t=NX4m!_~zp^9{alGGQC)-16jdY~*D0%}hQqC{DKMs>sdsraz98G=zL8Jz)h+wKc1|->IV0LL+kw4X6?rZ2Y zoe9~E_VlXQ?wdZ_E7$dlWGj&QZYv^@ha*=H5gaL4I*S-N>NyciT@LHf2Z*TLr1A3T zrRL&ju>4mizd`;xCs`L}?U3fCSUo0htkT1@cJYcBU>G73fQPnd8y6fPZ4JjQxU1M^ zoJv4otpXv+Upvtk-kuZ5;)e9w$bD%tABT=8uyuTGbiz zh0#BEm;b%nV(XW{D&^F~3I<74HcwP8>o!SYe@?B>^GoufRVu1I7-kKI$N=H!*}dkG zKM~{!2Ul^w=lpkJfQU@WoAgNS87x`|4QK~_=Muq;V1K%TWks+vMW9iSb+!|X_n6MR zqIQC#4#f@@F-0NsPOCL8aX&~7{<08SxPA;0Y{fzOk`7mooJ~MFuev7OeRq>~|K&4S z(FjsmRutEQ$@95>fqwBQ=r6Vyc;?8i;p>9bntLOZx8clm){W!IK35D5u4+7HrvAla zYqI!X?L}=waJ#jK;}Z$q`ckNlfezAE-4PXHNL_KRFoS0HY|FALGdnY}pyGDo0zbGm zdbl1#tB-Y`$R>1%DbY^ySqqG{d73pXxJ=+JTsC9`-7zoe!2$~0%E_YV{X zzsmAj=N7>-ME6XU%sW>S8e@5_`KbxYZ}^1S?eSHT$tBVT!+EH zGd?7X9P{b@P&kUPVXSBhEvohR=p7PDyf~eBtVMTzeD?HRU1<7(sPBRb>Z3#FcP{nB@ra4G-&p$&+!hP%5-*& z^Z($}-=)H<*HwYFg+>%|vpe*48LP6B-M<+W%vk6sUE?htw)0lpoVAH#3g*UM7X?nz z6T+BP3rPai7DHy-ZB>j}EM#J^aXgDb9pppFMAnw@UR*oV37^1Q(+Y$l%3Pepx+WwYS!vQY8$hJEh3JPG zp?~mKE=`{@Np<&DcUV9z)uv44BX!cX%h555?_Z|)M2%(A*!q?~n>DfQb4OlQ-|KAg zljgKU!}BDsZVY#r7g}zMaJi@PkR|xUU*e^GCKp*4&B-S#muD?$$Ez$B zbQ?_jggULjb%|5Ci;s!o7}8=47|7R88{5-`7ZR=L$(&t|)O#RIBI3&72 z=lIxVwmp!CTC>q#KkSZM2wiPkQqy+zMt2UyJVfKyB;z9&LrP!WN^j5c7N4U}zp81r zj^6L;vdiItzUGP_aUIu^gG4qhy;-#6YQ|;`n#lNfPQu=mG`?kYK(5`Iud1Q!nEJbG ar$7kVo0dVJ{X9m$klim_U1gJ3d5l#ddsWyk(*9Y`>61wR&PW#r*R}uggV1a( zeuY5DKDMh#zBgI>JnibHE+JEs#z&nnA4tXNC9 zsE>al^+Xe)6*KLaacI_c0=&v{GQy#xeg={)VE+F<@Bk!j`}TG~l@)i#LUpt_s&y`9{#r)?{8-j*4WSIHC<|fsg^GkvD2ow@b)hE8Z8(-|b zb{upNBf=V;q0A}6mQL+}D=yu-+)YykOZ^F*jy*XVJ{A?`@YaRUfJVi?q9&M7+F9?e ze;B~$$lObPCCR5xhQ)&44{u-aaj^8GQ~pHb03>u!IHW4E(#d;NNx#$Eu9A(Lw{P<| z0(Sl)pRly@p=wR}C=6aeCMCqz3gg$_zdr0r-TEAPu-TVq1dLu_UBVu0&g!!o6*sAT zc#YOo9qpHWKM{S#(&R$Bwd*ueZ@bvT!t6YtVQ}1U`j8|Vip*_ULlzoJ6q#FHlAO%^8ri7$g z;Rkr5SgV^mb|Y~x=Sr-L^p7^adzHZtVp7yVQ|cdnhK?{O?k!*^3m2_SeyBb)WJRP8 z$oT2hwt>KK;9gbE{VG6*Gp=o0p0RitZvCsyHnp@cK`Kx((|2IdenwRQT9|)8x6%ev3~kt zUFw)57ByjU0NPMikHG43@0f|^#6GUO!e+#FO4{H~gu@9S$LVi@>S{e%CnONFB9H01$G|HTB)>RBC6ACTM? zFF}vtc#5PtVx_RChMc}=DS97-_PE*?Z-Rb37>M@B=yepd4F>A0703Zo7jpS2^)C&4 zYAoS>?|IPZ;zFDoF9fB#V^C2rmUrpR zeV+=W0#XYr=GxZ(sC~q@egy)LisDs^!>=7Tt^KT!E61SO#b|{(m}!~eg*Ae8mtR{vLvg*+F5+P z1S7a4ti2-cu3`eucCV#;a5umlzGY_&FdLq3Nq#I*jY`lQ*LVtIa1+W|*`#^9*z1_~ zUPv0q3~Z+cis9kLhbSKiU31YA4g+|6NQuy2&F${IjI^$QqXx`BGU$#ynoSa#Od=`{D+?GU15BG|zYuK{i zMG)LS2^kI(%h$diEH$no;o)xOgs6C$P@b;`**n4Q%Ne}ilo;CpN1!8WXPpjrqilm& zax_gqo&pcY6z z3^9UfM_A3*J)qGcSz1?xl_dSwuEVfBmjr35+k@Mty57uUK2{&Nl;6>G{dZFS!Hxbe1DvTc z)udj*WXaDvVonn;LhDj>1i1J-?`GHXus8+}zZ~zh7KChC_=XyzzQb(?7|F{a0fQ8) zI0e;DRi0q^qjM-9d*`P&N~%bZb%n&P9_!+gOVg16bN*I#Juf&+{x93*XuTSWe;pKZ z2yU5tSiwl+^wst?+q<2YGn=+sf-)t><|fJ^dvW;Fv2WjwL`E^I&eKV*nx)J7%aZOm zhMprVd2Drl%<%(;Rj&}Nh?F7X{aC9DUOttPTTKMZ3T7G@3mBh1qv;4|7o#S;nsPQZ z;9)n842C{{}kQHtx|BRO#pnQyb zBBNE~7d{;$@JcDFk%Y6;PmF7U@5qoZztj~{c z49QEuvwG&@qP>M)%pdDkJtCT-(hJr6T4uEDMB42$TkS-Il)Dj-y)}yfwT|wG&&)bN znZz()dGPkh@~|GL(c}%mQAFM_VTp#qNYW8042#vrS z#Zcl5JH`F%!#knD$}*55f8B8fX(HBxtoT@~33vBU6ozBX{8r2(fy@~sZ3i6aEQrgK zfCEp7b?pNrB)=YYc)rUPP}u|bL{`!rUzEHqOSrHs?^C`fU%v(P}Qb*l5~biRy4Vi%)- zz>qt@=D$B4RaTYfwoCWpL@%B?2Lg`QBaGku65}0Gr8sq0U3Bgd-n)uqY)Y0^$m8z@ z7~0P08ZSDu$%*=>Xlyz$*6;>h++C6dTzBs_GBX7zP{<>JIXe4c741sh7hc5)hwbVyPr50NRfA`}J!b4M&1#m^*?0Zf-@Y1E+Otk+(sD9Fmq0A7s?-=)U()gU zmzdq*-vRGm;G%<8EQfOO%)LYGDed<}~rIH0gWeQNjJ`Z}0Cq_>QAq*Ju$u z|MmV{^wV!?7au!Bfl+&S7M5Ei%J#e?bM9Iz-9LhXg!EGJcsOc>~Fe#FO0~-EA98H-iIQIV+Uo(yp2t0HzKw8 zN{YgOicA$UsFK5{2|}8)K*)ZTJoa&G!YT*E;-M>B5{zQG_emTFzgs64CvPPAWt{xC zgl;`wx@7v+F|_3rA;c+F_U$*eQrrCWExT6<`2VrTwS za{9rhMpR?xyZ$Vlj%3w*t%d0^nqSB{NJFOf?ZRI5jK4V4l}{n_26b&WTgUaD^3P{2 zW$irSpO}cwIb-H3FpiS!D1N$Qs@X@nc?esr8*@zx$km`QD$etsx)&HMVfSWPS|mjp zqkMv`h=efbQKH{(;?+9-!tYrv<84mV`x*%<$rVA1oy}?n&(2im+4leE`RhLg>wj~b c(6J^a<}Z2q;^uAl)~{h~tsE@N%}LOI0l30zhX4Qo literal 0 HcmV?d00001 diff --git a/plot3.R b/plot3.R new file mode 100644 index 00000000000..4a7a7342403 --- /dev/null +++ b/plot3.R @@ -0,0 +1,43 @@ +## Project 1 Assignment: Exploratory Data Analysis (plot3.R) + +## This script reads in the sample datat provided in file ./household_power_consumption.txt + +## Read the data +poweruse <- read.table("household_power_consumption.txt", + header=TRUE, sep=";", + skip=66636, nrows=2880, + stringsAsFactors=FALSE, + na.strings="?", + quote="") + +## Label the columns +names(poweruse) <- c("Date", + "Time", + "Global_active_power", + "Global_reactive_power", + "Voltage", + "Global_intensity", + "Sub_metering_1", + "Sub_metering_2", + "Sub_metering_3") + +## Merge "Date" and "Time" columns and add as another column +poweruse$DateTime <- do.call(paste,poweruse[c("Date","Time")]) + +## Convert the DateTime column to the right datatype +poweruse$DateTime <- strptime(poweruse$DateTime,"%d/%m/%Y %H:%M:%S") + +## Create the plot: Line graph of Submetering 1, 2 and 3 +png(file="plot3.png", width=480, height=480, bg="transparent") +plot(poweruse$DateTime, + poweruse$Sub_metering_1, + ylab = "Energy sub metering", + type="l", + xlab=NA) +lines(poweruse$DateTime,poweruse$Sub_metering_2, col="blue",type="l") +lines(poweruse$DateTime,poweruse$Sub_metering_3, col="red",type="l") +legend("topright", + legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), + col=c("black","blue","red"), + lty=1) +dev.off() diff --git a/plot3.png b/plot3.png new file mode 100644 index 0000000000000000000000000000000000000000..0f699ed93e7b17e59fa818677835d386bf6a006b GIT binary patch literal 3987 zcmds42~bnl8jctwfP_UBMRpX+4uX;hg2*N+0Z|YPAd5jzgs>w7XfG-|X+@v~g^DO; zlT-*hgj)*=h{!`034tq?O$hsHNb)Z9y&0!(oOzwsna;dB=g#@h_b=!B&%I|$w8L2m z2}lbd5C|dbQ|9&v#13fdMeT%<(*n3cxJt4+d%=RuVZ$NhK;-tWHNzFC6noFsyBk_ zjiu7bR1THOVGokAgLLvBhdRh%v#A6&oy_J?*_=U`0~djq2+q!fiD-q`)r<*}QGI&vj9F6tJ>#u!G^HDWiI zOY)aTGDkSBMhf!lOD0d^`Cc2dv#=PYiAHIwh`w~jP?R`{8=A^(S65V%|SoN5sQsdM%+t*b%f&(P_z-%Cy?S9oe zmq2S0$9EsHodA~VNWVtf`&r~U4)TE;%``o}wH6(=!<;ht6w&dMrh`8-V8dzV>;vr} zp}us_=Ov?oA4Ey7I(B874W`@2qS8*BW-G$qX(b*)?T*oJD@(bIUjZPk-O>7OOh--H zS^Dztt)hr1Kkj8-P!zKgezCJizpuN%Q>$s_u^2L3@ta51({1NV+(d?MzbC7d<>n1; zhk(Or(&+z+HuXvy@X}fCF1WdnsgLjOhJ5S`E6K{=Ke9GWfBr`%1#jg6Wu5i+zgQe? zy`Fx6*9z-0Sv)RW7HLY9x?}7TvAZe?mT>GFCD;s0LzkB_GT*%ymeP_Jt`e2`29|=F zP1NG#wT1{)Q@o(--cQ7bcvU?H563sC#1FFmqsBxmlo8RWQJNxzzWAPdI zvWr^x!?>fUQP_Vu&w?u;c5O{w$01i`46nZgsmA_VVBM)kLggXUY-<^?)?X(ZTSZ<) zf(&=GSMsymAe?Q6rV(Y z7y55RD%{Dranre}=k%J7t;kTSBha7jiEiSSkP0(qyK@z4_G=nE^WKnN_XwwD*lh!T z7F$c!AirD4z?qXovC1Lg)k_;y$*VXsqLfisI*(OUp<<1oTtEmiZ5tyE7hjPzIysQE zwc=HZG(>KsTP*u{pe5rO2LcCWZ9eG=$ul3^fwU+&2hh`7iy_VsoVE_*(&lp2J&}bc z=;y;SM~2zBS~H?_CBvqjmo=-Qh~YIFhp@r(DBni(>%+D*6pp7Vzh&Xr!h_KHb)R5; z-&n%kxx><+YBRVi(1|bkxuNsuJT4Q{kbV$7cO`MFNs-V*UzAGf@mKB$7cR1?43`G# zn_;{XZ{Af~M=Y%rccG!(jQdi}hyp`(XgAw1DelFF&fAc9O{gqsufsWDTY4pPA7gO2 z&fWwKcLuwgi`fJg>YJ@-;euhcqF=r4l|9$66chtwhtg{^)KnJ-}E zHtifJBR1JwraF*bz}zRhKiq7-Sea8Y;VFO9ZP@lCQGiH@!!RYgS;Au|X(m5V|2}x? zwC&XpzvOaeSX4$|I>eM)!@rtX0R0M@6u|IjA}&1Oj*SF>)o3dToLSc6W93%ILGH`S zHRX(gQL2p@QSA;(v|;kPXex9)@)BQE%(4Iwr&uKcH{T+&zA6nUX_aXWw>H@{DNbGK zY)a5>aYO&~y_4a}8~>gQ8Qv+D=tB$!tt-mKJj;#j#w#xvZgT91$ziZ$u4i-P8OfX? ziX>ajci@eMl?T*g&H@HYGd&@?zbVyy@$Q1$5JQa`D0|Cte7TQobB?&c%nORW9o1^3< zi6PAFatgg9uTz+Dl=E(VAal+lDmSfHrA`uwF9La`s^4w=7NsnS%xZnC9#LVq!MJX_ z7knHzB{1yjIUfGfqyVzn4VKBRDI&{rqXWDKl(roMCA)_eYV@@n!1(hc?APy1iM}qy zfN<8+b%vM>>|P{b>_S?du-osPGk!j-jz7(Q#3i>FdOr3jHhRAg8us0=_8)$kT`Smp zvCE9f7a%gUdBAHVX%aqG}+{vXo5UR@Fi^;bZ5vmB}*qaO;+Y6#* z?FS#n6aZ1|nUioPy2F!`3l)N*evexRY(D-jS!TzvK5c8y^?~f@Fh!v3LREfQ$cX>R z4CR4u+|`dXKyD`Y#X!ev>t#N)54V{4*G(xI(q0BdwWVi5G~rI4Yv*5$j=>xR%HE=q zefmJt_VW@$LddKaN)d7HhDRvw)rr*2)!~uOQ^^6Sr?wW9j9I$PPeDjS5x>Vu1E<%R zDi^STEF8#8P!9466&bqM?tk}7HZXZs*q&k;5Dh1Us`^KCJ-+)}fm z>;xUvfX_0J03GWB3?8ppCwB{`MgNw8g-Nbf9k^n zqAYcQt`j=Ibzkio&ucsaO}K!A>$4X|l$P~>(pYc!7>Cm0xC*_yhs+ah*OJeAaGata z?fr={?%CYCKD~o}^kJbXy|tLRsxxUn-|}Po6K%d5UF~XaUk8h%Ku;C+f`y9m&hx$7 ziZ+2^;r3@eJ6U3+jO;XMR6QRW^ZJ><+9=cC1q#3$bN}eXD2E*>4oD!&-G;Sd{KE{( z>e;=)RZP{@L)Fe<;kTzbNzva~t%p_XMen=oT9~_Q-CRDqJayQFb#tbu{p|7EM~s)gCBv}|)ZS^1Z6cJFg z{=(_%^$nQ%=zV}iYs%ENIg`U6Fl}4Py?lpVcSY3gq7di?U0};n%J`9Ehnv!ZY2`Vc zn-LNLT>$q7LV3%a^3Ac;8(Q1ffDe-q{fi%2l}?`;#w&tbBpL}k{4u1UiwR`A`47`h z$6oix*Vk4PH&@EmES5P~tHmIRX((P-GdM`ndDZvQW)*z;)QiVP7|G5##k2`^4Yf)F z`}aMBTH;v7QK9?sJ2mqegC4`zdQC9OTc`L5?ZED(tSJ$A2h(7!5X80nQM^(t&|mgG pt=)vXT9>h<*$P$Mia&co^9Q%tu1ioPfxl7{{-#^e|i7_ literal 0 HcmV?d00001 diff --git a/plot4.R b/plot4.R new file mode 100644 index 00000000000..95a75289876 --- /dev/null +++ b/plot4.R @@ -0,0 +1,69 @@ +## Project 1 Assignment: Exploratory Data Analysis (plot4.R) + +## This script reads in the sample data provided in file ./household_power_consumption.txt + +## Read the data +poweruse <- read.table("household_power_consumption.txt", + header=TRUE, sep=";", + skip=66636, nrows=2880, + stringsAsFactors=FALSE, + na.strings="?", + quote="") + +## Label the columns +names(poweruse) <- c("Date", + "Time", + "Global_active_power", + "Global_reactive_power", + "Voltage", + "Global_intensity", + "Sub_metering_1", + "Sub_metering_2", + "Sub_metering_3") + +## Merge "Date" and "Time" columns and add as another column +poweruse$DateTime <- do.call(paste,poweruse[c("Date","Time")]) + +## Convert the DateTime column to the right datatype +poweruse$DateTime <- strptime(poweruse$DateTime,"%d/%m/%Y %H:%M:%S") + +## Create the plot: 4 x 4 grid of plots +png(file="plot4.png", width=480, height=480, bg="transparent") +par(mfrow=c(2,2)) ## set the grid + +#plot 1 +plot(poweruse$DateTime, + poweruse$Global_active_power, + ylab = "Global Active Power (kilowatts)", + type="l", + xlab=NA) + +#plot 2 +plot(poweruse$DateTime, + poweruse$Voltage, + ylab = "Voltage", + type="l", + xlab="datetime") + +#plot 3 +plot(poweruse$DateTime, + poweruse$Sub_metering_1, + ylab = "Energy sub metering", + type="l", + xlab=NA) +lines(poweruse$DateTime,poweruse$Sub_metering_2, col="blue",type="l") +lines(poweruse$DateTime,poweruse$Sub_metering_3, col="red",type="l") +legend("topright", + legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), + col=c("black","blue","red"), + bty="n", + lty=1) + +#plot 4 +plot(poweruse$DateTime, + poweruse$Global_reactive_power, + ylab = "Global_reactive_power", + type="l", + xlab="datetime") + +dev.off() diff --git a/plot4.png b/plot4.png new file mode 100644 index 0000000000000000000000000000000000000000..88d1bf316dbffa925172c5dc99fb7377a0043637 GIT binary patch literal 7355 zcmc&(cT`i)mwzuI3B4*HRi&x4C`d0NAfPm*OM6J~0TB=>&junTU!|!OX@V3Xiit>( zhbX8Bh_pxzB7)K)h}6Kw-|nCL$L^jzyK~Mf^ZDF!X6BwdbMEI(vbCiN7rO{M003NO zrbg!g0HpnWSkX-6G`nRv^K;+Y+}4<}!(jdbfF=NV1HdkzNd$bz%#J3YsR?*%{%y=R zQPam;lZg|DnMU4#rZ?d2tx5Fu(e(BqdlQM?Oq|RhY68T+rrty!fJh`0M}~-|t;OX0QF6xU1GBH@ z4?|;OzAf!ermLfVKj!Bz{JFW*-UlBt+y0bsa{ElOq;)%`)}St0Tye`$(F;@0WmG#*U~UA+s~v(IdHO zlriD^SUWGp;)#MJWQSCouQHm`zD#b$RPa4sH2Jo>kr4 zKbPYJ5o6ahDLJjtedF(^S;A=v!#1=CPW;^$WDcS0=K^NW(Qax zH;bYSDAW244^C!;z1+I)&GssOd-KOg?cfPh=be(O!y5Z~Lhqw?X4Vo)h4P2{-;6)7 z`@KO(Y&-WamY^iEpJ6_z2A5F(PNnE#ueW5ND{`m$O4V#Q%dI%Ek3s}p$Jli%Bc$x& zafBp7J3W)TWb7bQzdbV{2DZeW(zaX1R2NL>Qg#*8y!E35kfDbyj)t`04Ps517ei?O z{SLI-J;(4y_S&pl!>e>WWhI5f|)$~Xd2cb_`3xrNNx z1LzM;!I|19&Oq=L0J*#HA!h(}t8y)bBuJa<=-6!Wrm&DCtbuY{Cd7*OgFTFy-jcE) zTW6yav%p;A)!)8YDy^3fgP(;DoW3>&cXj)K1v?*sxiT$oHo#Ca*8iYIcowaqyk*EF z`8d=(W`rtmuLALfpl9Q}&w$K&pL#}z`dHsX6=**?aSWi`{`sRvjBfoTy)wAdUmB^o z%{N8e$9m6i?mN(U;i$T=6v8MIB6;X6jQ01ZUr)$N;tH|h0|RA*8p0RRI_lp>`&Cn~ zPkUVN%*2osCFtlxJFsNtX^1HOmZdcEj|3@LEa*(*9B&kYF0Qe5wmb{@w!Z`Fr=QwIwf>DONzZdGgX(}Fx_{Me(Pd3UEAcoR|P43vDMrwoE? zqE+ZbkB9t-$Fru%T9sBHF%C?Begpl+tI0rg-m&C5;HVvf)j9SZQ=Rk)Ky#5c{O@X> zoGHo!8wY2pf&^cAVZ3oFs68}$0)+*ebP6KmvOWtLm?!5tD#>Zg zi!TsKKdz;U1hCPl|Q@j&wKQbBQneBiP7X z0+=Wb4}>FOf*uBF3eVixUkZ9J^D~WBwGvY*bzl!pM<<}CkBYIkL;^sXX$r{;UH{Y6 zRe$o8iXp%$LQ}KV`MWqK5yUOr`{VIIlTymoxqcK2eINt3#?G1ln?9tL44lHTO(j~ z5G;4m(jP=ikS^1#7^cQH!QTK4=;jr6+ApUv7Ll)PAg3vkeO&9YWW_ryeR=QV)_WPn zaCOLf3vJFcKLzL15JEB4f+&fHc=YIkG>W1ZR2Wx!P!y@(yXdMOfr~!xU-hdy?C$8J zHbA%xzEY4e?h-AR^83#1SimOr{GYqvR;9i)&Bt98NxY%KGYv*>lyB$3U1rN@tUB}v zw3kMNw(Cms(P~j{<+tgFTYkeM*D6yG1KPiaJNs=gQbeA>w15k-RbNuGV0@8w{kP|quRj!14+|;!DPJ4)BK?#>; z39(k!LhT5{g_s{#X%(=W+gpYmC1(WX=V=&!Q?q#mg+LN zx$SlRl58+Q{ag}OV3*F37NzopYf)Gp4EpdP8@4+x-rSF~Kvz4|$Re&Y99+VxU505u zqrkqc={jbhHk&FF)^N=%Xe@p|7{!A7v|@b#W;@SGjrJ9pYGq+(i9MQ0tK@oh|w7YlabNl1a{ro?yS1(Ma>Pe6kZ#p7fS!bCs&mw&1 z9XEa1?NPvaBVny&ighC<$Si5@6VfJ#-K@HXBdLyhZ`f6`M#p1lL~eFLjm z;juQX7_^s%bR~`3liv&;d)fn3-GXx(?@*Eow;I|0hRVOF)y@9Cv||y-^wnMtWbapvPPVmV zdcnAEQWz!=O!OCylTE0F$AsSSI@JQC>; zu%#s_fCNW%@|I0B?}ct~3Bn%i)O#Pp3K#XAk(&F9Ah9i-g94}>5{J%g^rKe0@F+r5 zXR2Wx#{Bp+RxEH}pKx$A_`+H3b=)0q@LuLY9;nYPa6MWkI(%9&tJa^WxrV3y5FPeU zk_Dj;KO25hfZX)`z(`QHi1TcbRonCXZtVA(^e7*21O)YEh4B(CTT6WM3~Y+MI&TMz zXtbkroFqj(1JFo&^B`TE_K3r41u%D!bbf>~XPwh7x!BOA@XrF}EeanT7nH?{ch&ys zRTLb87S2&ycnq}XrDAk+dH3P{*^=}EIBAbxfcyX3noYSf^ezY0|z2=5>x+oR`F>0&UCu=B}>|xWv&f)UaayN-;J_ z23rrQ(~Jo^g$J{eFNun^4mQB6r<^X4EA;Px{0L*`9t@%#wYg6#;>_dhd zm$Im|T+LI38+45g^2gxL`|s|VIJwB9@07_bLx)pxCLI%Pn^+8j>2zkC1uRm6LM&z1Fv<=4w-xW@jWHlw45ILX3m&b{iXAV!A!Qc`&?&5{mFP1{2@ z(hn7Gun@v^&GU1nE~g%lhWjcXGwNezri+(LjwEEt)Q3~_1PN>X^X4*Oo^6gHdB4|E zlS@eDO2zhBFn%q%S-;{dlgvUf*}e78ZZGEL$Xl6eP+r$aM`@7RqgSVLS}(uc{2a47m5Z(4*>14yEyn-9>cszr!F3*Q)-35Z z#gA%0=Y&6$YxH?u#wYC719dO2Ko@o}?{g;L=8me*00tu}s=f&f z{Oua_wrty9DttI$(cXGSN&xv;os~Po^M{bYCDlJ?GL?Gag?2=-Va0|~(wYu9-@CF^ zPWgRE4%(Ie`Y6|o8@*kZ36(1keV@c>Qp336`x=akU}14{`}EQrqhhov z^IcE*GZuCI?xad3C60Kf#U7JK7J3Ij8;L`#kPQ$cSH+B#-9`no4j=cI96&K_8?_|G?Md-Tj_AN%rk`)yX&JlG;V@n(~;Iy9&v&- zTbU`4i~4k>*JR*%nO*1bi&k-3<&T?vt2>JoJ4NWh5eU>7QUa9EqDL~ZIZA{>mIZiI z8eSE(C^le=g>$tVG?eNdVW>Vz4FSZZ0^a262hwMJeB)|a;XbMH zC^`9Imx$v%1Heh6gaV6*=el=>dS{A5QS{uG4Tinni{> zFQta#ss0_6q4$$P1+b!FBB@;7x!YI>=W?)r~f_>RdRwSY2kaZyIxcT zZ?Ajm@xc}6Y`DwH0i`QO$xTuExtwO|)hA1PgCaRymEhL=Xsn%yD8~dMLsk45K9~^{x?Fms4SQV$Pk7EHBdq>a|^8+rlMWU1D1x}4Dt3hr+v}*R*ajgm6 zJMQHl0n*FcmfwY%b)mWk9`8>#&mM~JHTIR8y?fV$i^kO}mJVpFUrpp7Tr??HZaq3v z>`eE7D@qapq^LRvrPfHYz5J+!HyFDeSEKjf*2P{^nXSTXBb; z#27ywIvF_JW@LieC{|Z9o9!s60uwiWoj_Q^fS{VEpNJ-Au!j)*;!-TJc0a4?}4nYVkO8CcPR|IaVKc(|%u-tj5W^wE|b>0{ghC(iE;zN}us|5{l~A5nKO z9vQcIeg6XwefG{v69qtiq|xk<%?6m>uqOqY51`M{0 zFM>^jb0uuwQpf)&3AQW8M2rowaBdP!VTUVms;{mUcdQ%R0O}rVoEk|(CJX+AcVCNd z_}z5`eMYd#gtI5X!L=&@vEE7QJh$+w>U%BvLla6U!r_w16rkr%9D}yzGUW<_=^Gl= zGX}@94%2*|eE8w&x>}qfAda7xAgou(`yf66wg_GukE-6cA4S>N7xjh#X^Lm8*m^*C1IA`^K?XI~|YqoG+~AXfq@^n8HEO40O2 zk0CRj9$U9sZDYYL*~pLZ0e;Aot$y<>`(m!VIgsn_`pbO&_x|580vy7R;l{qiE@OB% zp12ioSBQ{P8#1GF@0Ux@t9P)X^2lY`$ZP=1Nt=9a;Dt=r^KP6KAB59}B_Znbj4TW^ zE*ad-<2#5K1HSBzfNw%artKK0E~aDf4VO|noSsMgc*Jl#8E+N@&J}eMA4{=hV zkDS8vDX30h_=@2~iZV3BWr5Opec=L`7ykxT-JSUUj3BJo$u<(|CkJ`jrD8b+5K2ZF zJU6j^B<9!M9Zis;I0>~Bm6HaURTi}DEi|<9K-xzUrBi$h(3uea(ho8#05lE^RJ%*Y1PpYGQXLTu7-Wm?cpT=ipk zYeQa&HW_b-YL7oZ=q)dge6yV1ga3xn_;65RA4sX4SI30{qh}2Oi5MeK03go~ z-CjpU>h2bx6Zb&_?%RA28DM(hI-vH!(YUc7K^aqh3I=hG24aYJ`-fd+#+xhla9X(T z?l_iNJW15AF&cc9e%&mXAcE*xfz=F`;CreYQZR-0$a_F83L^Ebi)YtT8O=G&fh`E>vx9 zxlZhiQ#WhA1a()TV~3|llb{Ud@sf7KiU4~}^dEhtJ;)JV zn)(mmilk6Ddj4`;KdOE_5(p7a-QfkQ1W9+*qK`ro{M_?^=v!g>a|={g=_Fb{v~oD= zpbg%S`$s~mWYE4Z{%E_&8IM!W1)NvBS5r=*uv(Bs2+{|f0h8js#_`;CyB1ZW8ca`@ zfwkY}R*q&BM?H&F0#o^dT}iHokIsRWn~v2 z`AWgmGiP#zSnKOPP?Eb@WOf=P9NIOA4{NKMUlGNwk9l5RdGn4w60nf7a^O^!oubUe z|C;hi%Q#bi&}Ti|;rmmKEDC=nEp??4pm+L4Gde?#jVg6o+h41V*K}Q4I>^`k{~>&u z&i{w-*&GgJTOXTR-6_3oQ>S9b&O$h6NBeN3;i6lO&VflPYR9_vfn(l-{EBn?;fzX! zeD5y{`8mqRJJ@Jv8aAESX#GcM14MT$Q)0!)khXs@>wD}Yo5@F||9e+sn+e-}7Dq;H STuT4mK$;m_8r7VHuKgRabBoCU literal 0 HcmV?d00001