Skip to content

Instantly share code, notes, and snippets.

💖
Sparkly

Danielle Navarro djnavarro

💖
Sparkly
Block or report user

Report or block djnavarro

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@djnavarro
djnavarro / thanks.R
Created Aug 23, 2018
thank you animation
View thanks.R
library(tidyverse)
library(gganimate)
# initial frame
last_tbl<- tibble(
letter = c("T","H","A","N","K","Y","O","U"),
x_pos = c(1,2,3,4,5,2,3,4),
y_pos = c(3,3,3,3,3,2,2,2),
id = 1:8,
fr = 0.5
@djnavarro
djnavarro / bridge.R
Created Aug 24, 2018
two dimensional brownian bridge animation
View bridge.R
library(tidyverse)
library(e1071)
library(gganimate)
# parameters for the simulation
ntimes <- 100
nseries <- 20
# construct tibble storing simulation
tbl <- tibble(
@djnavarro
djnavarro / wear-it-purple.R
Last active Aug 31, 2018
wear it purple day animation
View wear-it-purple.R
library(tidyverse)
library(e1071)
library(gganimate)
# take a vector of inputs and return a binary
# matrix corresponding to the character
read_letter <- function(...) {
cbind(
matrix(data = c(...), nrow = 9, ncol = 5, byrow = TRUE),
matrix(data = rep(0,9), nrow = 9, ncol = 1)
@djnavarro
djnavarro / bridge.R
Created Sep 2, 2018
bridge of eels animation
View bridge.R
library(tidyverse)
library(e1071)
library(gganimate)
library(viridis)
ascii_bridge <- "
.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,1,1,1,1,1,1,1,1,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,1,1,1,1,.,1,.,.,.,.,1,.,1,1,1,1,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,1,1,1,1,.,.,.,.,1,.,.,.,.,1,.,.,.,.,1,1,1,1,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.
.,.,.,.,.,.,.,.,.,.,.,.,.,.,1,1,.,.,.,1,.,.,.,.,1,.,.,.,.,1,.,.,.,.,1,.,.,.,1,1,.,.,.,.,.,.,.,.,.,.,.,.,.,.
@djnavarro
djnavarro / ambience.R
Created Oct 6, 2018
animated worley noise (or perlin noise)
View ambience.R
library(ambient)
library(imager)
library(tidyverse)
library(gganimate)
make_noise_frame <- function(n=500, fr=1, type = "worley") {
if(type == "worley") {
noise <- noise_worley(
dim = c(n, n),
@djnavarro
djnavarro / ascii-brain.R
Created Oct 30, 2018
image of a brain constructed using the ASCII chars in an R command
View ascii-brain.R
library(tidyverse)
library(imager)
# function to convert an image to an ascii character map
asciify <- function(file, charset, threshold){
# load image
im <- load.image(file)
im <- as.cimg(im[,,1:3])
@djnavarro
djnavarro / parse_gae_data.R
Created Dec 28, 2018
Typical method for tidying data from one of my jsPsych experiments hosted on Google App Engine
View parse_gae_data.R
# Script for tidying data pulled from Google App Engine. Typically the raw format
# has a "content" field, and each entry in it is a text string describing the
# complete data set from one person in CSV format.
library(tidyverse)
my_data <- read_csv("results.csv") %>%
pull("content") %>%
map_dfr(read_csv, col_types = cols(.default = "c")) %>%
write_csv("tidy_results.csv")
View isoband_example.R
# Adapted from Claus Wilke's code
# https://github.com/clauswilke/isoband
library(isoband)
library(magick)
library(sf)
library(tidyverse)
# my twitter profile
img_loc <- "https://pbs.twimg.com/profile_images/1088575199568584704/zGiMgFB7_400x400.jpg"
@djnavarro
djnavarro / thank_you_stars.R
Created Jan 30, 2019
animated thank you message made from stars
View thank_you_stars.R
# devtools::install_github("yixuan/fontr")
library(fontr)
library(transformr)
library(showtext)
library(tidyverse)
library(gganimate)
# use showtext to loading Google fonts (http://www.google.com/fonts)
font_add_google("Allura")
View isoband_lgbt.R
library(isoband)
library(magick)
library(sf)
library(tidyverse)
# Adapted from Claus Wilke's code
# https://github.com/clauswilke/isoband
sf_from_image <- function(image, nbands) {
image_gray <- image %>% image_quantize(colorspace = "gray")
image_raster <- as.raster(image_gray)
You can’t perform that action at this time.