Zavisimost` vesa u morzhei za 2019 god ot vesa za 2013 god

Kto takoy morzh

Kto takoy morzh

Eto ne morzh

Eto morzh

df <- read_excel("Гематологический скрининг моржей.xlsx")%>% 
    filter(!is.na(weight.2013), !is.na(weight.2019)) %>% 
    select(`weight.2013`,`weight.2019`) %>% 
    sample_n(80) %>%
    mutate(dw = weight.2019 - weight.2013) 
## New names:
## • `` -> `...38`
df1 <- df
install.packages("tibble")
## Warning: пакет ''tibble'' сейчас используется и не будет установлен
library(tibble)
as_tibble(df1)
## # A tibble: 80 × 3
##    weight.2013 weight.2019      dw
##          <dbl>       <dbl>   <dbl>
##  1        931.        669. -262.  
##  2       1132        1128.   -4.20
##  3        600.        790.  189.  
##  4        897.        861.  -35.4 
##  5       1422.       1430.    7.10
##  6       1184.        920. -264.  
##  7        512.        519.    7.00
##  8        410         429.   19.3 
##  9        817.        801.  -16.1 
## 10       1257.       1356.   99.5 
## # … with 70 more rows
ggplot(df, aes(x = `weight.2013`, y = `weight.2019`)) + 
    geom_smooth(formula = "y ~ x", method = "lm") +
    geom_point() + 
    theme_linedraw()