у меня только одно обьяснение - раз он так рисует —- > значит покланяется сотоне!
у него еще анотация на графике есть - все из кода (код первого рисунка)
train %>%
mutate(col = if_else(target+standard_error == 0, 'red', '#00b3b3')) %>%
ggplot(aes(target, standard_error, fill = col)) +
geom_point(alpha = 0.5, shape = 21, color = 'black', size = 5) +
scale_fill_identity() +
annotate(geom = "curve", xend = -0.05, y = 0.2, x = -1, yend = 0.02,
curvature = -0.2, arrow = arrow(length = unit(2.5, "mm")),
size = 1) +
annotate("text", x = -1.5, y = 0.22, label = "Interesting point", size = 5) +
labs(x = 'Target',
y = 'Standard error',
title = 'Relationship between "target" and "standard error"',
subtitle = '"train.csv"') +
my_theme