【0008day】Shiny的介绍
介绍：Shiny 是一个开源 R 包，它提供了一个优雅而强大的 Web 框架，用于使用 R 构建 Web 应用程序。Shiny 可以帮助您将分析转变为交互式 Web 应用程序，而无需 HTML、CSS 或 JavaScript 知识。
# download R package
pkgtest <- function(x){if(x %in% rownames(installed.packages()) == FALSE){install.packages(x,dependencies = TRUE)}library(x,character.only = TRUE)}
neededpackages <- c("shiny","dplyr","plotly","readxl","DT","ggExtra")
for(package in neededpackages){pkgtest(package)}library(shiny)
library(bslib)
library(dplyr)
library(ggplot2)
library(ggExtra)penguins_csv <- "E:\\BaiduSyncdisk\\A-Area longtime\\R language\\Niche\\temp_data.csv"df <- readr::read_csv(penguins_csv)
# Find subset of columns that are suitable for scatter plot
df_num <- df |> select(where(is.numeric), -Year)ui <- page_sidebar(sidebar = sidebar(varSelectInput("xvar", "X variable", df_num, selected = "Bill Length (mm)"),varSelectInput("yvar", "Y variable", df_num, selected = "Bill Depth (mm)"),checkboxGroupInput("species", "Filter by species",choices = unique(df$Species), selected = unique(df$Species)),hr(), # Add a horizontal rulecheckboxInput("by_species", "Show species", TRUE),checkboxInput("show_margins", "Show marginal plots", TRUE),checkboxInput("smooth", "Add smoother"),),plotOutput("scatter")
)server <- function(input, output, session) {subsetted <- reactive({req(input$species)df |> filter(Species %in% input$species)})output$scatter <- renderPlot({p <- ggplot(subsetted(), aes(!!input$xvar, !!input$yvar)) + list(theme(legend.position = "bottom"),if (input$by_species) aes(color = Species),geom_point(),if (input$smooth) geom_smooth())if (input$show_margins) {margin_type <- if (input$by_species) "density" else "histogram"p <- ggExtra::ggMarginal(p, type = margin_type, margins = "both",size = 8, groupColour = input$by_species, groupFill = input$by_species)}p}, res = 100)
}shinyApp(ui, server)
所需要的资料下载：https://download.csdn.net/download/qq_45697428/89440340
运行的结果：
在这个框架下可以调整XY轴的内容