andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 18:09:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

prepared for auto ellipsis or circle

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-05 14:44:05 +02:00
parent 0b8102d25f
commit 1204487836
No known key found for this signature in database
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/plot_euler.R
View file

@ -109,6 +109,12 @@ plot_euler <- function(data, pri, sec, ter = NULL, seed = 2103) {
#' ) |> plot_euler_single() #' ) |> plot_euler_single()
#' mtcars[c("vs", "am")] |> plot_euler_single() #' mtcars[c("vs", "am")] |> plot_euler_single()
plot_euler_single <- function(data) { plot_euler_single <- function(data) {
# if (any("categorical" %in% data_type(data))){
# shape <- "ellipse"
# } else {
# shape <- "circle"
# }
data |> data |>
ggeulerr(shape = "circle") + ggeulerr(shape = "circle") +
ggplot2::theme_void() + ggplot2::theme_void() +