R海拾遗-shiny3
时间:2022-07-25
本文章向大家介绍R海拾遗-shiny3,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
shiny 学习3
概述
正文
使用R脚本和带入数据
数据集:counties.rds是美国每个县的人口统计数据集,由UScensus2010 收集。需要另外下载 https://shiny.rstudio.com/tutorial/written-tutorial/lesson5/census-app/data/counties.rds 下载后是一个rds文件,需要在之前介绍的app文件夹中建立data文件,然后将数据集移动到data中 脚本:help.R: https://shiny.rstudio.com/tutorial/written-tutorial/lesson5/census-app/helpers.R 下载之后将脚本放入app文件夹中 代码
setwd("D:\360MoveData\Users\cmusunqi\Documents\GitHub\R_and_python\R")
counties <- readRDS("census-app/data/counties.rds")
head(counties)
# 包含州的名字和人口构成
# 安装地图包
# install.packages(c("maps", "mapproj"))
# maps和mapproj是脚本使用到的包
library(maps)
library(mapproj)
# 使用预先写好的脚本绘制地图
source("census-app/helpers.R")
counties <- readRDS("census-app/data/counties.rds")
# 各县的数据绘制成地形图。这里用深绿色表示各县白人居民的比例。
percent_map(counties$white, "darkgreen", "% White")
结果
# 接下来使用shiny控件
library(shiny)
ui <- fluidPage(
titlePanel("censusVis"),
sidebarLayout(
sidebarPanel(
helpText("Create demographic maps with
information from the 2010 US Census."),
selectInput("var",
label = "Choose a variable to display",
choices = c("Percent White", "Percent Black",
"Percent Hispanic", "Percent Asian"),
selected = "Percent White"),
sliderInput("range",
label = "Range of interest:",
min = 0, max = 100, value = c(0, 100))
),
mainPanel(plotOutput("map"))
)
)
# Server
# 通过server代码连接输出字段
server <- function(input, output) {
# 定义输出图
output$map <- renderPlot({
data <- switch(input$var,
"Percent White" = counties$white,
"Percent Black" = counties$black,
"Percent Hispanic" = counties$hispanic,
"Percent Asian" = counties$asian)
color <- switch(input$var,
"Percent White" = "darkgreen",
"Percent Black" = "black",
"Percent Hispanic" = "darkorange",
"Percent Asian" = "darkviolet")
legend <- switch(input$var,
"Percent White" = "% White",
"Percent Black" = "% Black",
"Percent Hispanic" = "% Hispanic",
"Percent Asian" = "% Asian")
# 这里是绘图的函数
percent_map(var = data, color , legend, max =input$range[1] ,input$range[2])
})}
shinyApp(ui, server)
结果
- pom.xml配置文件中所有标签及作用简单描述
- 关于C#获取动态的时间差函数
- SQL Server 存储过程
- ubuntu中配置hadoop
- jQuery选择器大全(48个代码片段+21幅图演示)
- C# 如何在Excel 动态生成PivotTable
- RabbitMQ入门HelloWorld(C#)(翻译)
- Centos环境下搭建Asp.NET Core环境和安装Jexus
- Linux系统Java环境安装配置
- ASP.NET Core 依赖注入
- 使用Hive SQL插入动态分区的Parquet表OOM异常分析
- 基于STS和JWT的微服务身份认证
- 小程序前端开发基础框架,可直接用于开发
- “盲”逆向:iOS 应用 Blind 寻踪
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- Codeforces Round #665 (Div. 2)
- MONGODB 加索引 大内存 与连锁思维
- 3分钟短文|Laravel 使用like匹配字符串的用法示例
- 3分钟短文|Laravel命令行调用控制器方法,你会几个?
- 3分钟短文 | Laravel 给所有视图追加公共数据
- 为主题用pugjs编写的hexo博客添加网站运行时间
- Qt UDP广播
- Qt文件操作QFile
- 终端shell美化
- Qt CMake GUI项目生成脚本
- Hexo + Git Pages搭建个人博客(一)
- C++和Java的变量对比
- 记录一次Hexo的崩溃修复
- archlinux安装篇(三) KDE配套小工具
- archlinux安装与应急使用双用U盘