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

new release
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-10-31 12:02:43 +01:00
commit 653424692d
No known key found for this signature in database
8 changed files with 1931 additions and 214 deletions
Download patch file Download diff file Expand all files Collapse all files

11
R/plot_bar.R
View file

@ -99,12 +99,14 @@ plot_bar_single <- function(data, pri, sec = NULL, style = c("stack", "dodge", "
ggplot2::geom_bar(position = style, stat = "identity") +
ggplot2::scale_y_continuous(labels = scales::percent) +
ggplot2::ylab("Percentage") +
ggplot2::xlab(get_label(data,pri))
ggplot2::xlab(get_label(data,pri))+
ggplot2::guides(fill = ggplot2::guide_legend(title = get_label(data,fill)))
## To handle large number of levels and long level names
if (nrow(p_data) > 10 | any(nchar(as.character(p_data[[pri]])) > 6)) {
p <- p +
ggplot2::guides(fill = "none") +
# ggplot2::guides(fill = "none") +
ggplot2::theme(
axis.text.x = ggplot2::element_text(
angle = 90,
@ -113,6 +115,11 @@ plot_bar_single <- function(data, pri, sec = NULL, style = c("stack", "dodge", "
ggplot2::theme(
axis.text.x = ggplot2::element_text(vjust = 0.5)
)
if (is.null(sec)){
p <- p +
ggplot2::guides(fill = "none")
}
}
p
}