Вычислить значение y максимума кривой гладкой линии в R и ggplot2

Question

Я отвечаю на старый вопрос, адресованный здесь:

рассчитать значение x максимума кривой гладкой линии в R и ggplot2

Как я могу рассчитать значение Y максимума кривой?

ура

Answer 1

Мне кажется, что изменения кода "x" на "y" и "vline" на "hline" и "xintercept" на "yintercept" - это все, что нужно:

gb <- ggplot_build(p1)

exact_y_value_of_the_curve_maximum <- gb$data[[1]]$y[which(diff(sign(diff(gb$data[[1]]$y)))==-2)+1]

p1 + geom_hline( yintercept =exact_y_value_of_the_curve_maximum)

exact_y_value_of_the_curve_maximum

Я не думаю, что я бы назвал их "точными", поскольку они являются только числовыми оценками. Другой способ получить это значение будет

max(gb$data[[1]]$y)

В качестве элемента $ data этого объекта сборки можно проверить:

> str(gb$data)
List of 2
 $ :'data.frame':   80 obs. of  7 variables:
  ..$ x    : num [1:80] 1 1.19 1.38 1.57 1.76 ...
  ..$ y    : num [1:80] -123.3 -116.6 -109.9 -103.3 -96.6 ...
  ..$ ymin : num [1:80] -187 -177 -166 -156 -146 ...
  ..$ ymax : num [1:80] -59.4 -56.5 -53.5 -50.3 -46.9 ...
  ..$ se   : num [1:80] 29.3 27.6 25.9 24.3 22.8 ...
  ..$ PANEL: int [1:80] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ group: int [1:80] 1 1 1 1 1 1 1 1 1 1 ...
 $ :'data.frame':   16 obs. of  4 variables:
  ..$ x    : num [1:16] 1 2 3 4 5 6 7 8 9 10 ...
  ..$ y    : num [1:16] -79.6 -84.7 -88.4 -74.1 -29.6 ...
  ..$ PANEL: int [1:16] 1 1 1 1 1 1 1 1 1 1 ...
  ..$ group: int [1:16] 1 1 1 1 1 1 1 1 1 1 ...