R语言 recharts ggplot2

library(devtools)


library(recharts)
 library
 
 echartr(iris, x=Sepal.Width, y=Petal.Width, series=Species)
 echartr(iris, Sepal.Width, Petal.Width,series = Species, weight=Petal.Length, type='bubble')


echartr(iris, Sepal.Width, Petal.Width, weight=Petal.Length)
setDataRange(calculable=TRUE, splitNumber=0, labels=c('Big','Small'),
                 color=c('red', 'yellow', 'green'), valueRange=c(0, 2.5))


    
    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')
      
      
     ## 重构内置数据集
      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')
 
      
      #重构内置数据集
      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')
      
      
      #构造一个数据集:
      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)
      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')
      
      
 
      


ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species))+geom_point()


qplot(Sepal.Length,Sepal.Width,data=iris,geom=c("point"),facets=~Species,color=Species,shape=Species,main="分面板散点图")


qplot(Sepal.Length,Sepal.Width,data=iris,geom=c("point"),color=Species,shape=Species,main="散点图")


qplot(Sepal.Length,Sepal.Width,data=iris,geom=c("point"),facets=~Species,col=Species,main="分面板散点图")
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值