ggplot2: изменение размера текста geom с помощью графика и текста force / fit в панели geom

это на самом деле два вопроса в одном (не уверен, что это противоречит правилам SO, но в любом случае).

первый вопрос: как я могу заставить geom_text в рамках geom_bar? (динамически в соответствии с построенными значениями)

оглядываясь вокруг, решения, которые я нашел, меняли размер метки. Это конечно работает, но не для каждого случая. Вы можете изменить размер для определенного участка, чтобы текст вписывался в панель, но при изменении данных может потребоваться вручную изменить размер текста. Моя реальная проблема заключается в том, что мне нужно генерировать один и тот же сюжет для постоянно меняющихся данных (ежедневно), поэтому я не могу вручную настроить размер для каждого сюжета.

Я попытался установить размер метки как функции данные. Это работает, не идеально, но работает для многих случаев.

но вот еще одна проблема, даже когда метка вписывается в панель, изменение размера участка все портит. Заглянув в него, я также обнаружил в документация ggplot это

метки имеют высоту и ширину, но они являются физическими единицами, а не данными единицы. Сколько места они занимают на этом участке не является постоянным в единицы данных: при изменении размера участка метки остаются того же размера, но размер осей изменяется.

что приводит меня к моему второму вопросу: можно ли изменить это поведение по умолчанию и позволить / изменить размер меток с помощью заговор?

и позвольте мне уточнить мой первый вопрос. Можно ли заставить geom_text в рамках geom_bar, динамически устанавливая размер текста, используя умное отношение между физическими единицами и единицами данных?

Итак, чтобы следовать хорошей практике, вот мой воспроизводимый пример:

set.seed(1234567)
data_gd <- data.frame(x = letters[1:5], 
                      y = runif(5, 100, 99999))

ggplot(data = data_gd,
       mapping = aes(x = x, y = y, fill = x)) +
    geom_bar(stat = "identity") +
    geom_text(mapping = aes(label = y, y = y/2))

этот код создает этот сюжет:

если я просто изменить сюжет, "метки остаются того же размера, но размер осей изменяется" таким образом, ярлыки вписываются в бары (теперь, возможно, ярлыки даже слишком малы).

Итак, это мой второй вопрос. Было бы неплохо, чтобы метки также изменяли размер и сохраняли соотношение сторон по отношению к барам. Любые идеи, как это сделать или если это вообще возможно?

Ok, но возвращаясь к тому, как соответствовать меткам в барах, самое простое решение-установить размер этикеток.

ggplot(data = data_gd,
       mapping = aes(x = x, y = y, fill = x)) +
    geom_bar(stat = "identity") +
    geom_text(mapping = aes(label = y, y = y/2), size = 3)

опять же, это работает, как показано ниже, но он не ремонтопригоден /и не устойчив к изменениям в данных.

например, тот же самый код для генерации графика с разными данными дает катастрофические результаты.

data_gd <- data.frame(x = letters[1:30], 
                      y = runif(30, 100, 99999))
ggplot(data = data_gd,
       mapping = aes(x = x, y = y, fill = x)) +
    geom_bar(stat = "identity") +
    geom_text(mapping = aes(label = y, y = y/2), size = 3)

и я могу продолжить примеры, установив размер меток в зависимости от количества категорий на оси x и так далее. Но вы поняли, и, возможно, один из вас ggplot2 эксперты могут дать мне идеи.