how to add xy position using anova and tukey post hoc test in R

I have a data frame:

df
     Sample         SampleType  Shannon
1       CL3               Soil 6.576517
2       CC1               Soil 6.776603
3       SV1               Soil 6.498494
4   M31Fcsw              Feces 3.828368
5   M11Fcsw              Feces 3.287666
6   M31Plmr               Skin 4.289269
7   M11Plmr               Skin 4.849999
8   F21Plmr               Skin 4.874747
9   M31Tong             Tongue 2.672103
10  M11Tong             Tongue 3.905419
11 LMEpi24M         Freshwater 3.093981
12 SLEpi20M         Freshwater 3.651142
13   AQC1cm Freshwater (creek) 3.552736
14   AQC4cm Freshwater (creek) 3.372495
15   AQC7cm Freshwater (creek) 4.027716
16      NP2              Ocean 4.230515
17      NP3              Ocean 4.483806
18      NP5              Ocean 4.563943
19  TRRsed1 Sediment (estuary) 6.157462
20  TRRsed2 Sediment (estuary) 4.869817
21  TRRsed3 Sediment (estuary) 5.461840
22     TS28              Feces 4.126538
23     TS29              Feces 3.452772
24    Even1               Mock 4.083665
25    Even2               Mock 3.956909
26    Even3               Mock 4.006375

And I want to calculate the anova using aov and then a TukeyHSD post hoc test

something like

aov(Shannon ~ SampleType, data = df) %>% TukeyHSD()

and then add the the xy position based in SampleType

I have tried something like:

aov(Shannon ~ SampleType, data = df) %>% 
TukeyHSD()%>% 
add_xy_position(x="SampleType")

and

df %>% group_by("SampleType") %>%
       aov(Shannon ~ SampleType) %>%
       TukeyHSD()%>% 
       add_xy_position(x="SampleType")

How can I use those test (aov and TukeyHSD) and add_xy_position ?

Thanks

How many English words
do you know?
Test your English vocabulary size, and measure
how many words do you know
Online Test
Powered by Examplum