####Report visiual(WITHIN )

####(((((Is there any way to show p_value between colums (like=”*” or “p<0.05") for this graph?)))))

ggwithinstats(hip,Condition,Velocity,effsize.type = "biased",
test.value=1,
type = "p", k=3, centrality.parameter="none" ,centrality.k=4,
messages = F ,results.subtitle = T, grouping.var = Group)

#######Report visiual2

###Is there any way to show as a subtitle (res.aov, row=2 ) values for this graph?

### Actually I run "+ labs(subtitle = get_test_label(res.aov, detailed = TRUE, row = 2))" It works but other values gone..

##Is there possible way to add this value?(((like: F(1,19)=5,97, p=0,024,eta=0,04,d(cohen)=0,39 CI(95%)[0,99-0,32], n(obs)=42)))

ggbetweenstats(hip,Condition,Velocity, pairwise.comparisons = TRUE ,pairwise.display = "significant",

effsize.type = "biased",

type = "p", p.adjust.method = "none" ,var.equal = T,

plot.type = "box" ,results.subtitle = T, bf.message = F ,

mean.ci = F, notch = F,linetype = "solid",test.value= 2)

Secondly, I want to ask a qestion about adding p values, as I have read the articles about this package”ggstatplot”, it is very similar to ggplot/ggplot2. Thats why I want to ask my question under of this section.
I created a demo set to ask my question better. Two questions in this set. I hope you have time and this package is familiar to you.
Sincerely Thank you in advance for your time and reading.

library(rstatix)
library(ggpubr)
library(ggstatplot)

# Demo data

hip <- data.frame(
stringsAsFactors = FALSE,
id = c(1L,2L,3L,4L,5L,6L,7L,8L,
9L,10L,11L,12L,13L,14L,15L,16L,17L,18L,19L,
20L,21L),
Group = c("LOW","LOW","LOW","LOW",
"LOW","LOW","LOW","LOW","LOW","LOW","HIGH","HIGH",
"HIGH","HIGH","HIGH","HIGH","HIGH","HIGH","HIGH",
"HIGH","HIGH"),
Non_Fatigue = c(0.54,0.35,0.69,0.6,0.5,
0.56,0.72,0.3,0.56,0.63,0.4,0.46,0.35,0.7,0.54,
0.46,0.35,0.39,0.62,0.52,0.45),
Fatigue = c(0.6,0.38,0.82,0.5,0.51,
0.68,0.73,0.38,0.7,0.54,0.62,0.37,0.32,0.85,0.73,
0.49,0.56,0.29,0.79,0.54,0.48)
)

###########to make TIDY DATA####

hip %
gather(key = “Condition”, value = “Velocity”, Fatigue,Non_Fatigue) %>%
convert_as_factor(id, Condition)

######REORDER FOR GRAPHICS###########(dont know any other way,maybe its not logical)

hip$Condition <- factor(hip$Condition,levels = c("Non_Fatigue", "Fatigue"))

#####ANOVA#####

res.aov <- anova_test (data = hip, dv = Velocity, wid = id, between = Group, within = Condition)

res.aov

####Report visiual(WITHIN )

#!!!!!!!!QUESTION ONE###(((((Is there any way to show p_value between colums (like="*" or "p + labs(subtitle = get_test_label(res.aov, detailed = TRUE, row = 2 ….. It works but other values gone :/

##Is there possible way to add this value(res.aov, row=2) ?(((like: F(1,19)=5,97, p=0,024,eta=0,04, d(cohen)=0,39 CI(95%)[0,99-0,32], n(obs)=42 )))

ggbetweenstats(hip,Condition,Velocity, pairwise.comparisons = TRUE ,pairwise.display = “significant”,

effsize.type = “biased”,

type = “p”, p.adjust.method = “none” ,var.equal = T,

plot.type = “box” ,results.subtitle = T, bf.message = F ,

mean.ci = F, notch = F,linetype = “solid”,test.value= 2)