library(devtools)
#install developing version of dartR.popgen
install_github("green-striped-gecko/dartR.popgen@dev")
library(dartR.popgen)
t1 <-
platypus.glt1 <- gl.filter.callrate(t1,threshold = 1)
t1 <- gl.filter.monomorphs(t1)
res_struc <- gl.run.structure(t1,
exec = "./structure",
k.range = 2:4,
num.k.rep = 3,
burnin = 1000,
numreps = 1000,
)
# plotting results
r1 <- gl.plot.structure(res_struc,
k_name = "3.1",
plot.out = TRUE,
plot.file = "test",
plot.dir = getwd())
# reading rds file with plot
p1 <- readRDS("test.RDS")
# change the font size for the individuals name
p1 +
theme(
axis.text.x = element_text(
size = 14,
angle = 90,
vjust = 0.5,
hjust = 1
)
)