{"action":"opened","issue":{"url":"https://api.github.com/repos/mlho76/-ExData_Plotting1/issues/5","labels_url":"https://api.github.com/repos/mlho76/-ExData_Plotting1/issues/5/labels{/name}","comments_url":"https://api.github.com/repos/mlho76/-ExData_Plotting1/issues/5/comments","events_url":"https://api.github.com/repos/mlho76/-ExData_Plotting1/issues/5/events","html_url":"https://github.com/mlho76/-ExData_Plotting1/issues/5","id":57737295,"number":5,"title":"plot 3","user":{"login":"mlho76","id":10515574,"avatar_url":"https://avatars.githubusercontent.com/u/10515574?v=3","gravatar_id":"","url":"https://api.github.com/users/mlho76","html_url":"https://github.com/mlho76","followers_url":"https://api.github.com/users/mlho76/followers","following_url":"https://api.github.com/users/mlho76/following{/other_user}","gists_url":"https://api.github.com/users/mlho76/gists{/gist_id}","starred_url":"https://api.github.com/users/mlho76/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/mlho76/subscriptions","organizations_url":"https://api.github.com/users/mlho76/orgs","repos_url":"https://api.github.com/users/mlho76/repos","events_url":"https://api.github.com/users/mlho76/events{/privacy}","received_events_url":"https://api.github.com/users/mlho76/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-02-15T17:10:09Z","updated_at":"2015-02-15T17:10:09Z","closed_at":null,"body":"source(\"load_myData.R\") \r\n myData_TwoDaysPeriod <- load_myData() \r\n \r\n PlotWidth         <- 480 \r\n PlotHeight        <- 480 \r\n PlotUnits         <- \"px\" \r\n PlotBg            <- \"white\" \r\n PlotFileName      <- \"./data/plot3.png\" \r\n \r\n MarginBottom      <- 8 \r\n MarginLeft        <- 8 \r\n MarginTop         <- 7 \r\n MarginRight       <- 6 \r\n \r\n\r\n PlotLinesColor2   <- \"blue\" \r\n PlotLinesColor    <- \"red\" \r\n PlotColsColor     <- \"black\" \r\n PlotTitle         <- \"Global Active Power\" \r\n PlotXLabel        <- \"\" \r\n PlotYLabel        <- \"Energy sub metering\" \r\n\r\n\r\n #Graphical Device is PNG \r\n png(filename = PlotFileName , width = PlotWidth, height = PlotHeight, units = PlotUnits, bg = PlotBg) \r\n\r\n\r\npar(mar = c(MarginBottom, MarginLeft, MarginTop, MarginRight)) \r\n\r\n plot(myData_TwoDaysPeriod$DateTime, myData_TwoDaysPeriod$Sub_metering_1, col = PlotColsColor, \r\n              type=\"l\", \r\n              xlab=PlotXLabel, \r\n             ylab=PlotYLabel) \r\n \r\n\r\n lines(myData_TwoDaysPeriod$DateTime, myData_TwoDaysPeriod$Sub_metering_2, col=PlotLinesColor) \r\n lines(myData_TwoDaysPeriod$DateTime, myData_TwoDaysPeriod$Sub_metering_3, col=PlotLinesColor2) \r\n legend(\"topright\",col=c(\"black\", \"red\", \"blue\"), c(\"Sub_metering_1\",  \r\n               \"Sub_metering_2\", \"Sub_metering_3\"), lty=1) \r\n\r\n\r\n\r\ndev.off() "}}