eleakin

remotes::install_github("ianmcook/weatherAlerts")
remotes::install_github("ianmcook/weatherAlertAreas")

library(weatherAlerts)
library(leaflet)

alerts <- getAlerts(c("TX", "LA")) # takes about 45 seconds

severity <- alerts@data$severity
colorMap <- c(Minor = "green",

eleakin

/* rs-theme-name: Idle Eyes */
/* rs-theme-is-dark: TRUE */
.ace_gutter {
  background: #3b3b3b;
  color: rgb(153,153,153)
}
.ace_print-margin {
  width: 1px;
  background: #555;
}

eleakin

ZIP,LAT,LNG
00601,18.180555, -66.749961
00602,18.361945, -67.175597
00603,18.455183, -67.119887
00606,18.158345, -66.932911
00610,18.295366, -67.125135
00612,18.402253, -66.711397
00616,18.420412, -66.671979
00617,18.445147, -66.559696

eleakin

# Takes an ordered vector of numeric values and returns a small bar chart made
# out of Unicode block elements. Works well inside dplyr mutate() or summarise()
# calls on grouped data frames.

sparkbar <- function(values) {
  span <- max(values) - min(values)
  if(span > 0 & !is.na(span)) {
    steps <- round(values / (span /  7))
    blocks <- c('▁', '▂', '▃', '▄', '▅', '▆', '▇', '█')
    paste(sapply(steps - (min(steps) - 1), function(i) blocks[i]), collapse = '')

eleakin

This hit #rstats today:

Has anyone made a dumbbell dot plot in #rstats, or better yet exported to @plotlygraphs using the API? https://t.co/rWUSpH1rRl

— Ken Davis (@ken_mke) October 23, 2015

<script async src="//platform.twitter.com/widgets.js" charset="utf-8"></script>

So, I figured it was worth a cpl mins to reproduce.

While the US gov did give the data behind the chart it was all the data and a pain to work with so I used WebPlotDigitizer to transcribe the points and then some data wrangling in R to clean it up and make it work well with ggplot2.

It is possible to make the top "dumbbell" legend in ggplot2 (but not by using a guide) and color the "All Metro A

eleakin

#!/usr/bin/env python

import tkinter as tk
import math
import re
from collections import ChainMap

Nrows = 5
Ncols = 5

eleakin

#' Making several text files from a single CSV file
#' 
#' Convert a single CSV file (one text per row) into
#' separate text files. A function in R.
#' 
#' To use this function for the first time run:
#' install.packages("devtools")
#' then thereafter you just need to load the function 
#' fom github like so:
#' library(devtools) # windows users need Rtools installed, mac users need XCode installed

eleakin

#' Compiling several text files into a single CSV file
#' 
#' Convert a folder of text files into a single CSV file 
#' with one column for the file names and one column of the 
#' text of the file. A function in R.
#' 
#' To use this function for the first time run this next line:
#' install.packages("devtools")
#' then thereafter you just need to load the function 
#' fom github like so, with these two lines:

eleakin

MySQL

Getting started:

• http://www.sqlteaching.com/
• https://www.codecademy.com/courses/learn-sql

Related tutorials:

• MySQL-CLI
• Analyzing Business Metrics

eleakin

library(plotly)

base_plot <- plot_ly(
  type = "pie",
  values = c(40, 10, 10, 10, 10, 10, 10),
  labels = c("-", "0", "20", "40", "60", "80", "100"),
  rotation = 108,
  direction = "clockwise",
  hole = 0.4,
  textinfo = "label",