Hello,
Does anyone know how to plot side-by-side euler diagram (from eulerr package) in shiny app without having the label cut off?
Below is a simple code that plot side-by-side euler diagram but the labels are cut off.
library(shiny)
library(eulerr)
library(gridExtra)
library(ggplot2)
library("grid")
library("ggplotify")
# Define UI for app that draws a histogram ----
ui <- fluidPage(
fluidRow(
plotOutput("euler"))
)
server <- function(input, output,session) {
fit <- euler(c("Lalalalala" = 376, "B" = 509, "Lalalalala&B" = 3983))
p<- plot(fit,quantities = list(type=c("counts","percent")))
output$euler <- renderPlot(
grid.arrange(p,p,ncol=2)
)
}
shinyApp(ui, server)