Как отобразить отдельные значения бара, используя ggplot () + geom_bar () без указания значений y

Question

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

Я пытался использовать функцию geom_text (), но для использования geom_text() Мне нужно было бы определить у. Но использование geom_bar () не требует определения y.

Это пример моего фрейма данных:

df
    taet distance_km
   <dbl>       <dbl>
 1     4           4
 2     1           6
 3     2           5
 4     4           7
 5     4           3
 6     3           5
 7     1           5
 8     1           4
 9     2           4
10     1           2
11     1           1
12     4           6
13     1           4
14     1           7
15     1           2
16     4           7
17     1           4
18     4           4
19     1           6
20     2           9
21     1           5
22     4           4
23     1           1
24     1           6
25     1           3
26     1           3
27     5           2
28     1           2
29     1           8
30     1           3

Это мой код для ggplot:

ggplot(df, aes(distance_km)) +
  theme_bw() +
  facet_wrap(~ taet) +
  geom_bar() +
  geom_text() +
  scale_x_continuous(limits = c(0,10), breaks = 1:9)

Показанный фрейм данных - лишь небольшая часть моего исходного фрейма данных. Гораздо сложнее прочитать / угадать точное число каждого столбца на диаграмме. Я хотел бы отобразить точное число каждого столбца в верхней части каждого столбца, чтобы читатель мог легко определить точное значение каждого столбца.

Answer 1

Вам необходимо включить несколько дополнительных аргументов в geom_text. Ниже я использовал geom_label, который добавляет белый фон, и я думаю, что в этом случае он может быть яснее, чем geom_text. Возможно, вы захотите добавить аргумент size, или вы можете использовать nudge_y, чтобы поднять его над верхней частью бара. Для получения подробной информации о различных параметрах см. Справку по geom_text.

ggplot(df, aes(distance_km)) +
  theme_bw() +
  facet_wrap(~ taet) +
  geom_bar() +
  geom_label(stat="count", aes(label=stat(count))) +  #or use geom_text here
  scale_x_continuous(limits = c(0,10), breaks = 1:9)