andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

clean
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-19 13:28:34 +01:00
commit 1b425b5a94
No known key found for this signature in database
7 changed files with 44 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

15
inst/apps/FreesearchR/app.R
View file

@ -10,7 +10,7 @@
#### Current file: R//app_version.R
########
app_version <- function()'250319_1306'
app_version <- function()'250319_1327'
########
@ -3400,20 +3400,25 @@ plot_box_single <- function(data, x, y=NULL, seed = 2103) {
## THis could be optional in future
ggplot2::geom_jitter(color = "black", size = 2, alpha = 0.9) +
ggplot2::coord_flip() +
# viridis::scale_fill_viridis(discrete = discrete, option = "C") +
viridis::scale_fill_viridis(discrete = discrete, option = "D") +
# ggplot2::theme_void() +
ggplot2::theme_bw(base_size = 24) +
ggplot2::theme(
legend.position = "none",
# panel.grid.major = element_blank(),
# panel.grid.minor = element_blank(),
# axis.text.y = element_blank(),
# axis.title.y = element_blank(),
text = ggplot2::element_text(size = 20),
# text = ggplot2::element_text(size = 20),
# axis.text = ggplot2::element_blank(),
# plot.title = element_blank(),
panel.background = ggplot2::element_rect(fill = "white"),
plot.background = ggplot2::element_rect(fill = "white"),
panel.border = ggplot2::element_blank()
panel.border = ggplot2::element_blank(),
panel.grid.major = ggplot2::element_blank(),
panel.grid.minor = ggplot2::element_blank(),
axis.line = ggplot2::element_line(colour = "black"),
axis.ticks = ggplot2::element_line(colour = "black")
)
}
@ -5338,7 +5343,7 @@ symmetrical_scale_x_log10 <- function(plot,breaks=c(1,2,3,5,10),...){
max_abs_x <- max(abs(c(x_min,x_max)))
ticks <- log10(breaks)+(ceiling(max_abs_x)-1)
browser()
plot + ggplot2::scale_x_log10(limits=c(rx_min,rx_max),breaks=create_log_tics(10^ticks[ticks<=max_abs_x]))
}