如何在R环境中隐藏元素？

library(ggplot2)
data(mtcars)

ggplot(mtcars, aes(x=mpg, y=disp, color=cyl)) +
  geom_point() +
  theme(legend.position = "none")

ggplot(mtcars, aes(x=mpg, y=disp)) +
  geom_point() +
  theme(axis.text = element_blank(),
        axis.title = element_blank())

ggplot(mtcars, aes(x=mpg, y=disp)) +
  geom_point() +
  theme(panel.grid = element_blank())

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  div(id = "hiddenElement", "This element can be hidden"),
  actionButton("hideBtn", "Hide Element")
)

server <- function(input, output, session) {
  observeEvent(input$hideBtn, {
    hide("hiddenElement")
  })
}

shinyApp(ui, server)

---
title: "Hide Elements in R Markdown"
output: html_document
---

<div id="hiddenElement" style="display:none;">
This element is hidden.
</div>

<button onclick="document.getElementById('hiddenElement').style.display='block';">
Show Element
</button>