Welcome

In this document we explore results from Stardust Cookie Cutter Beta trials that were conducted in March 2021. For the trials 69 people signed up on Typeform, 64 people received some version of SCC and 24 people shared feedback on it. As of first week of May 2021, we have over 500 users.

There are three goals for this analysis:

  1. Clean up Mixpanel, Sign-up Typeform, and Feedback Typeform datasets
  2. Get basic stats and overview of beta test(er)s
    Mixpanel: How many testers, How active, Pop-ups closed, Time saved, Activity time, Distributions
    Feedback: Satisfaction levels, Grades of features, User perception
  3. Get insights on which preference combination is the most common
  4. Get list of written suggestions from feedback form to get ideas for improvements
  5. Find any correlations, e.g. user experience vs activeness

You are welcomed to skip the Setup and jump into the first section Basic stats

Files set-up and clean-up

Typeform signup, Typeform feedback, and Mixpanel results.

library("dplyr")
library("tidyverse")
library("data.table")
library("stringr")
library("reshape2")
library("ggplot2")
library("plotly")
library("scales")
library("lubridate")
library("RColorBrewer")
library("formattable")


# Files
# General progress dataset
progessDS <- "progress02Apr19EEST.csv"
# Mixpanel dataset
mixDS <- "Full_overview (2).csv"
# Beta feedbacks
feedbackDS <- "beta-feedback-May5.csv"

# Read the CSV file for later processing
# progressDF == rsp2
progressDF <- read.csv(progessDS, stringsAsFactors = FALSE, header = TRUE)
progressDF <- progressDF[-1]

# mixDF == ovrv
mixDF <- read.csv(mixDS, stringsAsFactors = FALSE, header = TRUE)
colnames(mixDF)[44:48] <- c("Analytics", "Functional", "Marketing", "Necessary", "Social")
# Fixing timestamps
mixDF$event.time <- 
  mixDF$event.time %>% substr(1,10) %>% as.numeric() %>% as.POSIXct(origin="1970-01-01")

mixDF$user.last_seen <- 
  mixDF$user.last_seen %>% substr(1,10) %>% as.numeric() %>% as.POSIXct(origin="1970-01-01")

#mixDF$user.properties.Sign.up.date <- 
#  mixDF$user.properties.Sign.up.date %>% substr(1,10) %>% as.numeric() %>% as.POSIXct(origin="1970-01-01")

# feedbackDF == fb
feedbackDF <- read.csv(feedbackDS, stringsAsFactors = FALSE, header = TRUE)
feedbackDF <- feedbackDF[-c(1,2)]
colnames(feedbackDF)[1] <- "BAC"

# blank theme for plots
blank_theme <- theme_minimal()+
  theme(
  axis.title.x = element_blank(),
  axis.title.y = element_blank(),
  panel.border = element_blank(),
  panel.grid=element_blank(),
  axis.ticks = element_blank(),
  plot.title=element_text(size=14, face="bold")
  )