rbsyr11_bg

set the working dictionary

setwd("~/Desktop/Positive Balance/02C.Intervention/01.Data")

import

Load useful packages

## Loading required package: carData

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.4
## ✔ forcats   1.0.0     ✔ stringr   1.5.0
## ✔ ggplot2   3.4.4     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ✖ dplyr::recode() masks car::recode()
## ✖ purrr::some()   masks car::some()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

clean the environment

import dataset file and exclude participants who did not show

## New names:
## • `anything_else` -> `anything_else...57`
## • `anything_else` -> `anything_else...62`
## • `anything_else` -> `anything_else...67`
## • `anything_else` -> `anything_else...72`

## # A tibble: 6 × 82
##   id    condition attendance school year    first_dancer yrbefore_dance academic
##   <chr> <lgl>     <chr>      <chr>  <chr>   <chr>                 <dbl> <chr>   
## 1 P15   NA        yes        RBS    year 11 yes                       3 yes, hi…
## 2 P16   NA        yes        RBS    year 11 yes                       9 yes, hi…
## 3 P17   NA        yes        RBS    year 11 yes                      10 yes, hi…
## 4 P18   NA        yes        RBS    year 11 yes                      10 yes, hi…
## 5 P19   NA        yes        RBS    year 11 yes                       3 no      
## 6 P20   NA        yes        RBS    year 11 no                        9 yes, hi…
## # ℹ 74 more variables: free_perweek <chr>, home_country <chr>,
## #   live_family <chr>, who_live <chr>, away_family <chr>, family_yr <chr>,
## #   family_week <chr>, parent_tger <chr>, same_parent <chr>, siblings <chr>,
## #   how_many_siblings <dbl>, native_speaker <chr>, eng_level <chr>,
## #   hc_homesick <dbl>, hc_miss <dbl>, hc_lonely <dbl>, hc_excluded <dbl>,
## #   hc_understand <dbl>, ss_inneed <dbl>, ss_share <dbl>, ss_support <dbl>,
## #   ss_talk <dbl>, ss_counton <dbl>, ss_decision <dbl>, ss_prob_fri <dbl>, …

EXPLORATVE PLOTS

plot the frequency

Are you the first professional/pre-professional dancer in your family?

Do you currently attend any other academic programmes?

How much free time on average do you have per week?

Do you currently live in your home country?

Do you currently live with your family?

If you don’t live with your family, whom do you live with?

If you don’t live with your family, how long have you been away from them?

Each year, how much time do you spend with your family in person?

how much time do you spend in live remote conversations with your family each week

Do your parents live together?

If your parents do not live together, do you spend the same amount of time with both parents?

Do you have siblings?

If so, how many siblings do you have?

Are you a native English speaker?

If you are not a native English speaker, how would you describe your English level?

Are you currently injured?

If you are currently injured, how long do you think it will take to go back to full training?

Have you been injured before?

If you have been injured before, how long did it take to get back to full training?

gender

age

nationality

Ethnicity

plot the scale result

homesickness scale result

social support scale result

finance result

athletic vulnerability scale result

athletic injury anxiety result

for the previous injuries

## Warning: Removed 4 rows containing non-finite values (`stat_boxplot()`).

for the future injuries