在Shiny应用中添加缩放功能可使用户更好地查看密度图中的细节。以下是一个例子，展示如何在Shiny应用中添加缩放功能。

首先，加载必要的包并创建一个随机数据集：

library(shiny)
library(ggplot2)

set.seed(123)
data <- data.frame(x = rnorm(1000, mean = 50, sd = 10))

接下来，创建Shiny应用程序。在这个应用程序中，我们将创建一个名为“Zooming Density Plot”的全局标头和一个具有两个滑块的侧边栏，用于调整X和Y轴的缩放级别。我们还将创建一个名为“plot_panel”的主面板，并在其中包含密度图。

ui <- fluidPage(
  titlePanel("Zooming Density Plot"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("x_zoom", "X Zoom", min = 0.5, max = 2, value = 1, step = 0.1),
      sliderInput("y_zoom", "Y Zoom", min = 0.5, max = 2, value = 1, step = 0.1)
    ),
    mainPanel(
      plotOutput("plot_panel")
    )
  )
)

接下来，在服务器端，我们将创建一个响应式的ggplot对象。我们将使用仅包含“data”列的数据集，创建一个密度图，并设置x和y轴的标度。然后，我们将使用“reactive”函数为x和y轴创建可缩放的标度，这可以通过乘以滑块的值来实现。最后，我们返回这个包含我们的密度图的响应式对象。

server <- function(input, output) {
  
  output$plot_panel <- renderPlot({
    ggplot(data, aes(x =