This is the letter I sent out to my data science organization about the news that came out of DataCamp this week.
4/6/2019
Dear DatASci,
I write to ask you for your input in developing a group response to these recent events.
Overnight on Thursday, April 4, DataCamp released a statement in their official blog that you can find here: https://www.datacamp.com/community/blog/note-to-our-community. To summarize, in October of 2017, an executive at the company sexually harassed an employee at a company social event.
CONTINUE READING
This is the letter I sent out to my data science organization about the news that came out of DataCamp this week.
4/6/2019
Dear DatASci,
I write to ask you for your input in developing a group response to these recent events.
Overnight on Thursday, April 4, DataCamp released a statement in their official blog that you can find here: https://www.datacamp.com/community/blog/note-to-our-community. To summarize, in October of 2017, an executive at the company sexually harassed an employee at a company social event.
CONTINUE READING
library("gganimate") library("ggplot2") p = 1/2 # parameters p <- 0.5 Tmax = 60 # start at the origin x = 0 y = 0 t = 0 df <- data.frame(x,y,t) # random walk for(i in 1:Tmax){ t <- t + 1 if(runif(1) < p){ x <- x - 1 } else { x <- x + 1 } # reset process if dot leaves view if(abs(x) > 10){ x <- 0 } this_step <- data.
CONTINUE READING
In this short project, I hope to draw a heart through an animation of appearing dots.
library("gganimate") library("ggforce") library("tidyverse") Draw a Heart Here I will place two circles centered at \((\pm 1, 1)\) with the same radius \(r = \sqrt{2}\).
circles <- data.frame( x0 = c(-1,1), y0 = rep(1,2), r = rep(1, 2) ) right_pt <- (sqrt(2) + 1) / sqrt(2) left_pt <- -1*right_pt f <- function(x){abs(x) - sqrt(2)} ggplot(data.frame(x = c(left_pt, right_pt)), aes(x)) + coord_fixed() + geom_circle(aes(x0 = x0, y0 = y0, r = r), data = circles, inherit.
CONTINUE READING
Packages workshop_packages <-c("ggplot2", "mosaic", "gganimate") install.packages(workshop_packages) library("gganimate") ## Loading required package: ggplot2 library("ggplot2") library("mosaic") ## Loading required package: dplyr ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union ## Loading required package: lattice ## Loading required package: ggformula ## Loading required package: ggstance ## ## Attaching package: 'ggstance' ## The following objects are masked from 'package:ggplot2': ## ## geom_errorbarh, GeomErrorbarh ## ## New to ggformula?
CONTINUE READING