Xtykutl

My DF looks like this:

      Date          H2 Value

2018-06-04      H2_Avg  0.08

2018-06-07      H2_Avg  0.11

2018-06-16      H2_Avg  0.12

2018-06-20      H2_Avg  0.13

2018-06-23      H2_Avg  0.24

2018-06-26      H2_Avg  0.16

2018-06-30      H2_Avg  0.24

2018-07-04      H2_Avg  0.38

2018-07-09      H2_Avg  0.44

2018-07-12      H2_Avg  0.34

2018-06-04 H2_disabled  0.07

2018-06-07 H2_disabled  0.09

2018-06-16 H2_disabled  0.10

2018-06-20 H2_disabled  0.14

2018-06-23 H2_disabled  0.23

2018-06-26 H2_disabled  0.18

2018-06-30 H2_disabled  0.22

2018-07-04 H2_disabled  0.33

2018-07-09 H2_disabled  0.27

2018-07-12 H2_disabled  0.24

I want to plot a dodged barplot with the values written within the columns.
My code to plot looks like this:

DF %>% ggplot() +

  geom_col(aes(Date, Value, fill = H2), position = "dodge") +

  geom_text(aes(Date, Value, label = Value), 

            position = position_dodge(width = 1), 

            vjust = 1.5)

This outputs the following:
As you can see, the values specified by geom_text are not legible where the differences between the two columns are small.
Is there a way to improve this?
Flipping the coordinates and then using the position_dodge argument as proposed here: Position geom_text on dodged barplot does not work for my data due to the small differences between the two groups.

Try:

DF %>% ggplot(aes(Date, Value, fill = H2)) +

  geom_col(position = "dodge") +

  geom_text(aes(label = Value), 

            position = position_dodge(width=1),

            vjust=1.5)

Please note that I made the code a bit shorter by including aes() already in ggplot().

I finally found the cause of the problem. It had to do with the formatting of the "Date" Column. I had it formatted as a POSIXct date format. For some reason this messed with the position_dodge formatting as described in my original question. Reformatting the date as a plain character solved the question and gave me the same plot as @alex_555's solution.