ggplot 2 need help finding mistakes (scale problems)

Question

I have some problems with the following code:

Vo2Max.Auswertung %>% 
group_by(group) %>% 
summarise(across(everything(), mean)) %>% 
pivot_longer(col