Publications by Jen Richmond
rowwise
library(tidyverse) library(palmerpenguins) penguins <- penguins glimpse(penguins) ## Rows: 344 ## Columns: 8 ## $ species <fct> Adelie, Adelie, Adelie, Adelie, Adelie, Adelie, Adel… ## $ island <fct> Torgersen, Torgersen, Torgersen, Torgersen, Torgerse… ## $ bill_length_mm <dbl> 39.1, 39.5, 40.3, NA, 36.7, 39.3, 38.9...
447 sym R (1867 sym/6 pcs)
missing penguins
hunting missing penguins Jen Richmond 23/06/2021 The palmerpenguins dataset is a good one to play with when learning how to deal with missing values. load packages library(tidyverse) library(naniar) # useful for visualising missing values library(palmerpenguins) # get penguin data load penguin data penguins <- penguins How to find out where t...
1846 sym R (2062 sym/19 pcs) 3 img
gainloss manipulation check
library(tidyverse) library(gt) library(jmv) library(janitor) all <- read_csv("all_ratings.csv") How many “good” participants in each group so far? all %>% tabyl(group) ## group n percent ## 1 55 0.4583333 ## 2 65 0.5416667 summary stats manipcheck <- all %>% group_by(group) %>% summarise(gf_M = mean(manipulation_che...
907 sym R (2913 sym/10 pcs) 2 img 1 tbl
Week 10 template
Week 10 learning log template Jenny Richmond 02/08/2021 Week 10! We made it!! For your final learning log of the term, I want you to think about how your thinking has changed in the past 10 weeks. Pick 3 things that have changed about your thinking and write a short paragraph about each. You might like to write about changes in your thinking ab...
764 sym 1 img
alert feedback
library(tidyverse) library(here) library(ggeasy) library(janitor) theme_set(theme_classic()) options(digits = 2) MOODLE LOG Read in log data from 1A and 1B, add week and chapter as factors and bind 1A and 1B together. log1A <- read_csv(here::here("research_conferences", "ScienceMoodleWellbeing", "clean1Alogs.csv")) log1A <- log1A %>% mutate(...
922 sym R (4711 sym/9 pcs) 4 img
sm2019-2020
library(tidyverse) library(readxl) library(here) library(janitor) library(datapasta) library(ggeasy) library(plotly) PSYC2061 self management 2019 This data is copied from the activity log page on moodle and includes how many times each resource was viewed by how many users. read/clean data last <- read_excel(here("research_conferences", "auspl...
3494 sym R (4195 sym/14 pcs) 4 img
cards
What advice would you give to Psych undergrads re careers Take your time and no need to rush. Have humongous compassion (kindness) to yourself because no matter whether or not you can land in the joy or postgrad program you want, you are still a worthwhile person. This advice was my brother a year ago, “you miss 100% of the shots you don’t ...
999 sym
TT Week 39 Emmys
load packages library(tidyverse) library(tidytuesdayR) library(janitor) library(ggeasy) read the data Use tt_load() to pull last weeks data into R. This will create a list in your environnment. This week there is only 1 “thing” in the list but we still need to extract is using double square brackets[[ ]]. tt <- tt_load(2021, week=39) ## ##...
2914 sym R (7010 sym/31 pcs) 12 img
tidy tuesday: billboard
load packages Load the weekly Data The tt_load() function will pull this weeks data into RStudio. This week there are two datasets, you can pull each of them out of the list object using list$dataframe to get separate dataframes for the billboard and audio data. tt <- tt_load("2021-09-14") ## --- Compiling #TidyTuesday Information for 2021-09-14...
2118 sym R (4075 sym/18 pcs) 1 img
FoS_PLD alert feedback
load packages library(tidyverse) library(janitor) library(ggeasy) theme_set(theme_classic()) read feedback tool data X1A_feedback <- read_csv("1A-feedback.csv") %>% clean_names() %>% select(autoalerts = "have_you_received_automated_alerts_from_this_course_i_e_occasional_small_textbox_that_pops_up_when_you_enter_moodle_with_resource_suggesti...
1043 sym R (6382 sym/18 pcs) 8 img