dmetar shows error

Can someone please help me with this error showed using dmetar package:

Calculate effect sizes

VAS_data1 <- escalc(
measure = "SMD",
m1i = A_Mean, # Experimental group mean
sd1i = A_Sd, # Experimental group SD
n1i = A_N, # Experimental group sample size
m2i = B_Mean, # Control group mean
sd2i = B_Sd, # Control group SD
n2i = B_N, # Control group sample size
data = VAS_data
)

Fit random-effects model

model <- rma.uni(
yi = yi, # Effect sizes column
vi = vi, # Variance column
data = VAS_data1,
method = "REML", # Recommended estimator
test = "knha" # Better for small samples
)

set.seed(1998)

Perform GOSH analysis

gosh_results <- gosh(model, progbar = TRUE)

res_gosh <- gosh.diagnostics(gosh_results , verbose = T)

Perform Clustering...
|================================================================================Warning: The following aesthetics were dropped during statistical transformation: fill.
:information_source: This can happen when ggplot fails to infer the correct grouping structure in the
data.
:information_source: Did you forget to specify a group aesthetic or to convert a numerical variable
into a factor?
Error in scale_color_manual():
! Continuous values supplied to discrete scale.
:information_source: Example values: -4.49655602228451, -5.65359904535527, -3.6416931237052,
-2.53771409975766, and -2.46480091285895
Run rlang::last_trace() to see where the error occurred.