上饶市| 广河| 澎湖| 巴林右旗| 鹿邑| 灵川| 台北县| 化州| 88bifa 优德娱乐88 涞源| 必威体育 定兴| 陕县| 临澧| manbet 萧县| 海晏| 宁晋| w88俱乐部 江都| 哈密| 万博体育官网 钟山| 新万博2.0 dafa888 开化| vinbet 魏县| 太仆寺旗| 睢宁| 莱西| 冠亚彩票 br88冠亚 北戴河| 灌南| 克拉玛依| br88 洛宁| 宁明| 来安| 丰南| 盖州| 仙桃| 狗万博 灞桥| 九台| 大奖888 亚洲城电脑版官方网站 崇义| 威海| 阿拉尔| 三都| 汕尾| manbetx娱乐 黄冈| 大奖网 新晃| 清原| 冠亚彩票 剑川| 万博manbetx官网 冠亚娱乐 广昌| 太仆寺旗| 平泉| 贡嘎| 88bifa 鹤峰| 丽水| BR88 uedbet亚洲 固原| 弓长岭| 衢州| bwin体育 达日| 武昌| 灵川| manbet 最新ag客户端下载 建湖| 裕民| 井陉矿| 河池| uedbet uedbet娱乐 新津| 巴南| 汾西| 大足| 巴中| 铁山| 奎屯| 汾阳| 台中县| 卢龙| 哈密| dafa888 龙口| 瑞金| 潼南| 武昌| 文县| 清远| 南沙岛| 德江| dafa888t娱乐场经典版 墨脱| betway88 武鸣| dafa888经典版网页 本溪市| 鱼台| 高邑| uedbet官网体育 公安| 鹤峰| 金州| 韦德1946 巴彦| 曾母暗沙| ca888 安宁| 托克逊| 盱眙| 荔波| ca88亚洲城娱乐 dafa888 开化| 亚洲城vip积分登陆 青神| 惠农| 上杭| 宜春| 万博manbet官网 巴中| 北海| 察哈尔右翼中旗| weide 新源| betway娱乐 利川| 亚洲城ca88手机网页版 彝良| ca888亚洲成唯一官网 楚州| 衢州| 定兴| 杞县| bf88必发 商丘| 益阳| 巴楚| 亚洲城电脑客户端网址 通化县| 都匀| weide 泰和| 牟平| 丰台| 漾濞| 吴中| 海盐| 万博体育manbetx 大奖888官网 固原| 齐齐哈尔| 大奖88 大连| 进贤| 大发娱乐888代理 海盐| 隆化| 冠亚娱乐 博山| 大发快3开奖结果历史 桑植| 路桥| 阜新蒙古族自治县| 都兰| 威远| 弓长岭| br88冠亚 沙县| 狗万体育网站 ca88 bwin888 英德| 阜新市| 深泽| 泰州| 嵊州| W88优德 贡山| 永安| 大奖 侯马| 永登| 冠亚娱乐 方城| uedbet为什么谢幕 dafa888bet BR88 木里| 溆浦| 浮梁| manbetx新客户端 ca888 台南县| 德昌| 东阿| 古蔺| 峨眉山| BR88 阿克苏| 韦德1946官网 吴江| 万博2.0下载 冠亚娱乐城 石柱| 杜集| bbin专用浏览器手机版 manbetx 白水| 万博manbetx 抚远| 屏东| 兴义| 浙江| 大竹| br88 文安| 冠亚娱乐 福建| 遵义县| 五营| 南康| 古冶| 上虞| 亚洲城ca88手机版注册 亚洲城手机客户端下载 3344222 亚洲城vip登录 万博manbetx wanbetxapp 额济纳旗| manbetx2.0客户端 曲松| 定西| 惠州| 莒南| 南郑| 乡宁| 冠亚娱乐城 滦县| 贵南| 远安| 四会| 赣榆| dafabet888 饶平| 冠亚彩票 乐天堂官网 恒山| 优德w88娱乐 洪洞| 曲松| 西畴| 畹町| 铜山| 屏南| 万博app2.0 侯马| 优德w88会员登录 fun88 海宁| 福州| 新宾| 河南| BR88 吉利| 万博manbetx客户端 黄骅| dafa888.casino网页版 冠亚彩票 manbetx betway手机客户端 阿拉善右旗| 松原| ca88亚洲城官方网站 uedbetapp manbetx苹果 冠亚娱乐 灵宝| 嘉善| bwin网址 平山| 万博app 下载 泰来|

浙江政务服务网 让你一次都不跑

2018-09-24 23:33 来源:中国吉安网

  浙江政务服务网 让你一次都不跑

  百度随着“互联网+”、平台经济、分享经济等新业态的快速发展,外包用工、临时用工、碎片化用工等用工方式也随之出现,从而产生了不少劳动纠纷案件。”中国劳动和社会保障科学研究院院长金维刚指出,现实中,一些中小企业参与企业年金的积极性较低,93%以上的企业职工并未享受到这项补充保险。

(记者张锐)民生无小事,今年政府工作报告作出回应,明确“继续提高退休人员基本养老金标准和城乡居民基础养老金”,同时提出“今年将深化养老保险制度改革,建立企业职工基本养老保险基金中央调剂制度”。

  从此,李桂平沉迷于发明创造中,乐此不疲。”许多像董林这样的一线代表建言,通过完善分配等制度,把更多的发展成果装进老百姓的口袋,提升他们的获得感。

  2.看花瓣。坚持党管人才原则,充分发挥市场在资源配置中的决定性作用,更好发挥政府作用,进一步增强企业主体作用、工会监督作用、群团组织动员作用和社会支持作用,完善多方参与的工作体系,形成齐抓共促的工作格局。

橄榄油被誉为餐桌上的黄金,尤其最近网传“橄榄油的基本脂肪酸比例与母乳相似,最适合婴幼儿食用”引起了人们的追捧。

  ”(记者陈俊宇兰海燕卢越)

  新时代必须更加尊重职工的主人翁地位“党的十九大提出要把我国建成社会主义现代化强国,这需要千千万万劳动者付出汗水和智慧才能实现。从学徒工到“先锋焊匠”,从被称为“工人院士”到当选十九大代表,罗开峰就靠这份手艺走遍天下。

    (二)依照法律和《中国工会章程》,组织和指导各级工会坚定不移地贯彻落实党的全心全意依靠工人阶级的根本指导方针,进一步突出和履行维护职能。

  尤其要把对劳动价值、劳动精神的研究同中国共产党党史党建理论研究结合起来,在深入研究的基础上加强对党在新时代治国理政新思想新观念的学习贯彻和落实。  (五)协助省、自治区、直辖市党委管理省级总工会领导干部,协助中央国家机关有关部委(局)管理全国产业工会的领导干部;监督、检查全国总工会机关和直属单位党员干部党风廉政建设情况;研究制定工会干部的管理制度和培训规划,负责市以上工会和大型企事业单位工会领导干部的培训工作。

  ——重点突破,多措并举。

  百度新浪微博、版全家、花瓣美素、版银科技、平壑科技等互联网版权平台逐一分享了DCI体系应用成果。

  两家深企在专利领域后发赶超,“赛道”的对手是英特尔、高通等全球研发巨头,成绩“含金量”极高。从2010年入党到如今当选党的十九大代表,谭双剑深感自豪,更感一份沉甸甸的责任,“我将加倍努力工作,把党的关怀和温暖传递给更多农民工兄弟。

  百度 百度 百度

  浙江政务服务网 让你一次都不跑

 
责编:
炼数成金 门户 商业智能 R语言 查看内容

浙江政务服务网 让你一次都不跑

百度 去年,蓝思科技在不裁员的前提下用自动化设备代替了万个岗位,“机器人代替的是机械枯燥和技术含量低的岗位,工人则通过培训转移到技术含量高的车间工作”,在周群飞看来,给员工创造更好的工作环境和工作岗位,是一种细小而具体的关怀和激励。

2018-1-11 16:33| 发布者: 炼数成金_小数| 查看: 36572| 评论: 0|原作者: 邬书豪|来自: R语言中文社区

摘要: R语言数据可视化---交互式图表recharts包。基本上常用的数据图表展示recharts都可以很方便和很酷炫的展示,作者只是挑选了几个比较常用的图表类型做了抛砖迎玉.

tm R语言 可视化 数据可视化

REmap包的github链接地址:https://github.com/taiyun/recharts
几个样例demo:http://xwj.565tech.com.maroc-canada.com/jianshu/recharts/ring.html
http://xwj.565tech.com.maroc-canada.com/jianshu/recharts/dashboard.html
http://xwj.565tech.com.maroc-canada.com/jianshu/recharts/bubble.html

一.安装方式
if (!require(devtools)) library(devtools)
install_github("madlogos/recharts")

二.使用方法:
1.散点图/气泡图
echartr(iris, x=SepalWidth, y=PetalWidth)
多个维度:series控制
echartr(iris, x=SepalWidth, y=PetalWidth, series=Species)

气泡图:type:标签控制
echartr(iris, SepalWidth, PetalWidth,series = Species, weight=PetalLength, type='bubble')


2.管道操作
echartr(iris, SepalWidth, PetalWidth, weight=PetalLength) %>%
    setDataRange(calculable=TRUE, splitNumber=0, labels=c('Big','Small'),
                 color=c('red', 'yellow', 'green'), valueRange=c(0, 2.5))

3.折线图
先改造下内置数据集:
aq <- airquality
aq$Date <- as.Date(paste('1973', aq$Month, aq$Day, sep='-'))
aq$Day <- as.character(aq$Day)
aq$Month <- factor(aq$Month, labels=c("May", "Jun", "Jul", "Aug", "Sep"))

echartr(aq, Date, Temp, type='line') %>%
    setTitle('NY Temperature May - Sep 1973') %>% setSymbols('none')

含有分类属性:
echartr(aq, Day, Temp, Month, type='line') %>%
    setTitle('NY Temperature May - Sep 1973, by Month') %>% 
    setSymbols('emptycircle')

带有时间轴(带有动态效果哦~~~):
echartr(aq, Day, Temp, t=Month, type='line') %>%
    setTitle('NY Temperature May - Sep 1973, by Month') %>% 
    setSymbols('emptycircle')

也可画面积图:type属性控制
echartr(aq, Day, Temp, Month, type='area', subtype='stack') %>%
    setTitle('NY Temperature May - Sep 1973, by Month') %>% 
    setSymbols('emptycircle')





4.饼图
重构内置数据集
titanic <- data.table::melt(apply(Titanic, c(1,4), sum))
names(titanic) <- c('Class', 'Survived', 'Count')
knitr::kable(titanic)
画饼图,可以和漏斗图切换
echartr(titanic, Class, Count, type='pie') %>%
    setTitle('Titanic: N by Cabin Class')

多个饼图:
echartr(titanic, Survived, Count, facet=Class, type='pie') %>%
    setTitle('Titanic: Survival Outcome by Cabin Class')

环图:
echartr(titanic, Survived, Count, facet=Class, type='ring') %>%
    setTitle('Titanic: Survival Outcome by Cabin Class')

信息图样环图:
ds <- data.frame(q=c('68% feel good', '29% feel bad', '3% have no feelings'),
              a=c(68, 29, 3))
g <- echartr(ds, q, a, type='ring', subtype='info') %>% 
    setTheme('macarons', width=800, height=600) %>%
    setTitle('How do you feel?','ring_info', 
             pos=c('center','center', 'horizontal'))
g

南丁格尔玫瑰图:
echartr(titanic, Class, Count, facet=Survived, type='rose', subtype='radius') %>% 
    setTitle('Titanic: Survival Outcome by Cabin Class')









5.雷达图:
重构内置数据集
cars = mtcars[c('Merc 450SE','Merc 450SL','Merc 450SLC'),
              c('mpg','disp','hp','qsec','wt','drat')]
cars$model <- rownames(cars)
cars <- data.table::melt(cars, id.vars='model')
names(cars) <- c('model', 'indicator', 'Parameter')
knitr::kable(cars)

单个雷达图
echartr(cars, indicator, Parameter, model, type='radar', sub='fill') %>%
    setTitle('Merc 450SE  vs  450SL  vs  450SLC')

多个雷达图:
echartr(cars, indicator, Parameter, facet=model, type='radar') %>%
        setTitle('Merc 450SE  vs  450SL  vs  450SLC')



6.比较有趣的dashboard
构造一个数据集:
data = data.frame(x=rep(c('KR/min', 'Kph'), 2), y=c(3.3, 56, 9.5, 88), 
                  z=c(rep('t1', 2), rep('t2', 2)))
knitr::kable(data)

echartr(data, x, y, type='gauge')
多个dashboard:
echartr(data, x, y, facet=x, type='gauge')
带时间轴:
echartr(data, x, y, facet=x, t=z, type='gauge')



基本上常用的数据图表展示recharts都可以很方便和很酷炫的展示,作者只是挑选了几个比较常用的图表类型做了抛砖迎玉.
具体的细节各位可以去查看具体的文档:https://madlogos.github.io/recharts/index_cn.html#-en

欢迎加入本站公开兴趣群
商业智能与数据分析群
兴趣范围包括各种让数据产生价值的办法,实际应用案例分享与讨论,分析工具,ETL工具,数据仓库,数据挖掘工具,报表系统等全方位知识
QQ群:81035754

最新评论

热门频道

  • 大数据
  • 商业智能
  • 量化投资
  • 科学探索
  • 创业

即将开课

 

GMT+8, 2018-9-19 00:39 , Processed in 0.188211 second(s), 23 queries .