使用R中的交互创建绘图

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100)
)

# 创建交互式图形
ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  theme_minimal() +
  labs(title = "Interactive Scatter Plot", x = "X-axis", y = "Y-axis")

library(plotly)

# 创建数据集
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100)
)

# 创建动态交互图形
p <- plot_ly(data, x = ~x, y = ~y, type = 'scatter', mode = 'markers')
p

library(shiny)

ui <- fluidPage(
  titlePanel("Interactive Plot"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("n", "Number of points:", min = 10, max = 100, value = 50)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    data <- data.frame(
      x = rnorm(input$n),
      y = rnorm(input$n)
    )
    plot(data$x, data$y, main = "Interactive Scatter Plot")
  })
}

shinyApp(ui = ui, server = server)

library(ggplot2)
library(plotly)

p <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  theme_minimal() +
  labs(title = "Interactive Scatter Plot", x = "X-axis", y = "Y-axis")

ggplotly(p)

runApp("path_to_your_shiny_app", port = 8080)