R/label_location.R

In jakubnowicki/labstatgraph: Funkcje wspomagające tworzenie wykresów do raportów LASiE

#' Ustawianie pozycji etykiety względem zakresu danych
#'
#' @param data dane do położenia etykiety
#' @param ratio proporcja względem maksymalnej wartości danych
#'
#' @export
#'

label_location <- function(data, ratio = 30) {
    data + max(data, na.rm = T)/ratio
}