4Yulia_Muzychenko.R

library(tidyverse)
df <- read_csv2("data.csv")

df$CASE_LBL

df |>
  select(-CASE_LBL) |> 
  t() |> 
  as_tibble()  ->
  transposed

colnames(transposed) <- df$CASE_LBL

transposed |>
  mutate(across(everything(), function(i){ifelse(is.na(i), 0, i)})) |> 
  prcomp()  |> 
  broom::augment(transposed) |> 
  mutate(person = colnames(df)[-1],
         school = factor(school)) |> 
  ggplot(aes(.fittedPC1, .fittedPC2, color = school))+
  geom_point()

transposed |>
    mutate(across(everything(), function(i){ifelse(is.na(i), 0, i)})) |> 
    prcomp()  |> 
    summary()