赚钱问题地图可视化

“拍照赚钱”是移动互联网下的一种自助式服务模式。用户下载 APP，注册成为 APP 的会员，然后从 APP 上领取需要拍照的任务（比如上超市去检查某种商品的上架情况），赚取 APP 对任务所标定的酬金。这种基于移动互联网的自助式劳务众包平台，为企业提供各种商业检查和信息搜集，相比传统的市场调查方式可以大大节省调查成本，而且有效地保证了调查数据真实性，缩短了调查的周期。因此 APP 成为该平台运行的核心，而 APP 中的任务定价又是其核心要素。如果定价不合理，有的任务就会无人问津，而导致商品检查的失败。故探索设计一款地图可视化 APP，便于了解各任务点情况的分布情况，结合地理信息，以得出有效结论，同时给出相应的建议。

数据预处理

数据概况：

该数据集中，number是指任务编号，然后是经纬度数据，price是指定价，category是指任务完成情况（1：完成，0：未完成）

设计 shiny 可视化 APP,需要预先创建两个脚本文件。
① 创建 server.R 文件
②创建 ui.R 文件
最好将这两个脚本放在同一个文件夹。
在ui.R中编写程序

library(shiny)
library(leaflet)
navbarPage("Take photos to make money", id="main",tabPanel("Map", leafletOutput("bbmap", height=1000)),tabPanel("Data", DT::dataTableOutput("data")),tabPanel("Read Me",includeMarkdown("readme.md")))

在server.R中编写程序

library(shiny)library(dplyr)library(leaflet)library(DT)shinyServer(function(input, output) {# Import Data and clean itbb_data <- read.csv("C:/Mathmodel/Ryuyan/bloodbanksAPP2/photo.csv", stringsAsFactors = FALSE )bb_data <- data.frame(bb_data)bb_data$Latitude <-  as.numeric(bb_data$Latitude)bb_data$Longitude <-  as.numeric(bb_data$Longitude)bb_data=filter(bb_data, Latitude != "NA") # removing NA values# new column for the popup labelbb_data <- mutate(bb_data, cntnt=paste0('<strong>number: </strong>',number,'<br><strong>price:</strong> ', price)) # create a color paletter for category type in the data filepal <- colorFactor(pal = c("#1b9e77", "#d95f02"), domain = c("0", "1"))# create the leaflet map  output$bbmap <- renderLeaflet({leaflet(bb_data) %>% addCircles(lng = ~Longitude, lat = ~Latitude) %>% addTiles() %>%addCircleMarkers(data = bb_data, lat =  ~Latitude, lng =~Longitude, radius = 3, popup = ~as.character(cntnt), color = ~pal(Category),stroke = FALSE, fillOpacity = 0.8)%>%addLegend(pal=pal, values=bb_data$Category,opacity=1, na.label = "Not Available")%>%addEasyButton(easyButton(icon="fa-crosshairs", title="ME",onClick=JS("function(btn, map){ map.locate({setView: true}); }")))})#create a data object to display dataoutput$data <-DT::renderDataTable(datatable(bb_data[,c(-5,-15,-23,-24,-25,-28,-35,-38)],filter = 'top',colnames = c("id","number","Lat", "Long.","price","finsh?")))
})

编写时，主要注意数据经纬度变量相对应，数据导入路径相对应。

结果如下：

还可以对其进一步放大，得到更细致的信息：

由图形可看出，未完成的任务大多分布在市郊，由于市郊会员数较少，同时交通较为不便，故虽然标价较高，但是其任务完成情况却较为一般。而市中心位置，交通便利，会员较多，导致供不应求，所以完成度较高，符合常理。
可以在 APP 中查看和管理数据：

可对其进行简单的排序和筛选：

ReadMe相对于说明书，可自行在里面添加内容：

2017年国赛拍照赚钱问题地图可视化APP（shiny）相关推荐

数学建模——对2017年国赛C题论文的学习
2017年C题论文总结思想和算法回归分析简单地说,回归分析就是对拟合问题做的统计分析. 我们根据一个样本算出的那些系数,只是它们的一个(点)估计,应该对它们作区间估计或假设检验,如果置信区间太大 ...
数模优秀论文总结 — 2017 “拍照赚钱的任务定价”
对2017年B题"拍照赚钱的任务定价"7篇优秀论文进行了学习总结(包括论文思路.方法.启发及亮点) 网盘链接:2017年B题优秀论文提取码:ab51 1 "拍照赚钱&q ...
2018年数学建模国赛回顾
数学建模--回顾与反思 1. 比赛之前 1.1 为什么参加以及为何参加数学,是个简单又深邃的一门科学,它无处不在:它无所不能:它遥不可及:它触手可得...它时常伴我身边,却不曾感同身受到它的魅力与 ...
电赛综合测评题练习(三)-（与2017年电赛综合测评要求类似）
2017年国赛综合测评(部分要求有区别) 系列文章 T1:电赛综合测评题练习(一)-(与2013年电赛综合测评要求类似) 点击下载仿真文件1(请使用Multisim 14及以上版本打开) T2:电赛综 ...
2018年第九届蓝桥杯Java本科B组国赛题解
第一题标题:三角形面积已知三角形三个顶点在直角坐标系下的坐标分别为: (2.3, 2.5) (6.4, 3.1) (5.1, 7.2) 求该三角形的面积. 注意,要提交的是一个小数形式表示的浮点数 ...
2017 数学建模国赛（高教杯）-B题 “拍照赚钱”的任务定价
2017 高教社杯全国大学生数学建模竞题 B题 "拍照赚钱"的任务定价 Author:YXP Email:yxp189@protonmail.com 更多数模赛题: Amoiens ...
记2017第八届蓝桥杯决赛（国赛）—北京三日游
离蓝桥杯国赛结束也已经有很多天了,这段时间也一直没怎么做题,也好久没打开csdn了,今天又重新捡起来,所以来随意扯一下这次的北京三日游.......啊不,2017第八届蓝桥杯. 这已经是我第二次打蓝桥 ...
2017年高教社杯全国大学生数学建模竞赛题目 B题 “拍照赚钱”的任务定价
"拍照赚钱"的任务定价分析 "拍照赚钱" 是一种需要会员在APP上领取任务,完成后赚取对任务所标定的酬金的自助服务模式,这种APP中任务定价是其核心要素.通过对 ...
2017年电赛国赛H题《远程幅频特性测试装置》训练总结（信号接收采集部分）
系列文章链接目录一.2017年电赛国赛H题<远程幅频特性测试装置>训练总结(DDS信号源部分) 二.2017年电赛国赛H题<远程幅频特性测试装置>训练总结(放大器部分) 三. ...

2017年国赛拍照赚钱问题地图可视化APP（shiny）

拍照赚钱问题地图可视化APP（shiny）

赚钱问题地图可视化

数据预处理

2017年国赛拍照赚钱问题地图可视化APP（shiny）相关推荐

最新文章

热门文章