jonocarroll

## load the data.table package
library(data.table)

## make this reproducible (up to memory locations)
set.seed(123)

## create a data.table with some dummy data
DT1 <- data.table(x=1:5, y=runif(5))
DT1
#    x         y

jonocarroll

## load the usual packages
library(magrittr)
library(dplyr)
library(ggplot2)

## install and load the likert package from GitHub
# devtools::install_github('jbryer/likert')
library(likert)

## load the data downloaded from the survey

jonocarroll

tmp <- data.frame(a = c(1, 2, 3), b = c(4, 3, 5), c = c(4, 4, 5))
tmp
#   a b c
# 1 1 4 4
# 2 2 3 4
# 3 3 5 5

formula(tmp)
# a ~ b + c

jonocarroll

#' Replace categorical x-axis labels with images
#'
#' Pipe a ggplot2 graph (with categorical x-axis) into this function with the argument of a list of 
#' pictures (e.g. loaded via readImage) and it builds a new grob with the x-axis categories 
#' now labelled by the images. Solves a problem that you perhaps shouldn't have.
#'
#' @author J. Carroll, \email{jono@@jcarroll.com.au}
#' @references \url{http://stackoverflow.com/questions/29939447/icons-as-x-axis-labels-in-r-ggplot2}
#' 
#' @param g     ggplot graph with categorical x axis

jonocarroll

library(rvest)

## GDP per capita, top 10 countries
url      <- "https://en.wikipedia.org/wiki/List_of_countries_by_GDP_(nominal)_per_capita"
html     <- read_html(url)
gdppc    <- html_table(html_nodes(html, "table")[3])[[1]][1:10,]

## clean up; remove non-ASCII and perform type conversions
gdppc$Country <- gsub("Â ", "", gdppc$Country)
gdppc$Rank    <- iconv(gdppc$Rank,    "latin1", "ASCII", sub="")

jonocarroll

library(ggplot2)  ## devtools::install_github("hadley/ggplot2)
library(grid)     ## rasterGrob
library(EBImage)  ## readImage (alternatively: magick::image_read)
library(ggthemes) ## theme_minimal

## ##########
## INDEPENDENT CODE TO BE SOURCED:
## ##########
# user-level interface to the element grob

jonocarroll

## Based on BUILDING A GGPLOT2 STEP BY STEP
## https://matthewdharris.com/2016/08/12/ggplot2-step-by-step/

## 'reproducible' saving of data:
## this was to be copied by hand, hoping that Unicode chars didn't get caught up
## requires re-formatting to factors, etc...
year <- c(1760, 1790, 1797, 1850, 1860, 1889, 1900, 1910, 1950)
sites <- c("Isleta", "Acoma", "Laguna", "Zuni", "Sandia", "San Felipe",
           "Santa Ana", "Zia", "Santo Domingo", "Jemez", "Cochiti",
           "Tesuque", "Nambe", "San Ildefonso", "Pojoaque", "Santa Clara",

jonocarroll

This is merely a suggestion.

• the R SVG logo with the function code for help() overlayed (not all of it).

jonocarroll

## Process the Stack Overflow Answers data for my own account
## jonathan-carroll -- 4168169
## 
## Jonathan Carroll
## 21 October, 2016
## 
## https://twitter.com/carroll_jono/status/789319774773714946

## load required packages
library(dplyr)

jonocarroll

library(dplyr)
library(ggplot2)

find_functions <- function(file) {
  getParseData(parse(file = file)) %>% 
    filter(token == "SYMBOL_FUNCTION_CALL") %>% 
    distinct(text) %>%
    use_series(text)
}