R code to generate a graph of probability I will work from home as a function of number of people in the office

probability-of-wfh.R

library(ggplot)

decay <- function (x, lambda = 5) {
  return((100 * exp((-1 * lambda) * x)))
}

xs <- seq(from = 1, to = 10, by = 0.001)
ys <- sapply(xs, decay, lambda = 0.4)


xticks <- 1:10
yticks <- seq(from = 0, to = 100, by = 10)

png("~/Downloads/probability-of-wfh.png", width=1800, height=1600)

ggplot(data = NULL, aes(x = xs, y = ys)) + geom_path() +
  labs(title = "Probability Ryan Will WFH", x = "Number of people in office",
       y = "Probability of WFH") +
  scale_x_continuous(breaks = xticks, labels = xticks) +
  scale_y_continuous(breaks = yticks, labels = yticks)

dev.off()