{"id":645,"date":"2013-12-06T14:00:27","date_gmt":"2013-12-06T03:00:27","guid":{"rendered":"http:\/\/blog.panicola.com\/?p=645"},"modified":"2013-12-06T14:01:11","modified_gmt":"2013-12-06T03:01:11","slug":"flowing-data-r-tutorial","status":"publish","type":"post","link":"https:\/\/blog.panicola.com\/?p=645","title":{"rendered":"Flowing Data: R tutorial"},"content":{"rendered":"

This is a very cool intro to the power of R. It may come in handy…<\/p>\n

http:\/\/flowingdata.com\/2013\/11\/26\/the-baseline\/<\/a><\/p>\n

\"02-Percent<\/p>\n

This is noisy though. Maybe a year-over-year change would be more useful.<\/p>\n

\n
\n
\n\n\n\n
1<\/code><\/td>\ncurr <- gas$Value[-(1:12)]<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
2<\/code><\/td>\nprev <- gas$Value[1:(<\/code>length<\/code>(gas$Value)-12)]<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
3<\/code><\/td>\nannChange <- 100 *\u00a0<\/code>round<\/code>( (curr-prev) \/ prev, 2 )<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
4<\/code><\/td>\nbarCols <-\u00a0<\/code>sapply<\/code>(annChange,<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
5<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0<\/code>function<\/code>(x) {<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
6<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>if\u00a0<\/code>(x < 0) {<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
7<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>return<\/code>(<\/code>\"#2cbd25\"<\/code>)<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
8<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>}\u00a0<\/code>else<\/code>\u00a0{<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
9<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>return<\/code>(<\/code>\"gray\"<\/code>)<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
10<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/code>}<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
11<\/code><\/td>\n\u00a0\u00a0\u00a0\u00a0<\/code>})<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n\n\n\n
12<\/code><\/td>\nbarplot<\/code>(annChange, border=<\/code>NA<\/code>, space=0, las=1, col=barCols, main=<\/code>\"% change, annual\"<\/code>)<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n<\/div>\n

The magnitude of drops in price are more visible this way.<\/p>\n","protected":false},"excerpt":{"rendered":"

This is a very cool intro to the power of R. It may come in handy… http:\/\/flowingdata.com\/2013\/11\/26\/the-baseline\/ This is noisy though. Maybe a year-over-year change would be more useful. 1 curr <- gas$Value[-(1:12)] 2 prev <- gas$Value[1:(length(gas$Value)-12)] 3 annChange <- 100 *\u00a0round( (curr-prev) \/ prev, 2 ) 4 barCols <-\u00a0sapply(annChange, 5 \u00a0\u00a0\u00a0\u00a0function(x) { 6 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0if\u00a0(x … Continue reading Flowing Data: R tutorial<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19,5],"tags":[],"class_list":["post-645","post","type-post","status-publish","format-standard","hentry","category-cool","category-data-saving-lives"],"_links":{"self":[{"href":"https:\/\/blog.panicola.com\/index.php?rest_route=\/wp\/v2\/posts\/645","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.panicola.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.panicola.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.panicola.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.panicola.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=645"}],"version-history":[{"count":2,"href":"https:\/\/blog.panicola.com\/index.php?rest_route=\/wp\/v2\/posts\/645\/revisions"}],"predecessor-version":[{"id":647,"href":"https:\/\/blog.panicola.com\/index.php?rest_route=\/wp\/v2\/posts\/645\/revisions\/647"}],"wp:attachment":[{"href":"https:\/\/blog.panicola.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=645"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.panicola.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=645"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.panicola.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=645"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}