R可视化数据包rCharts的探索运用( 一)

前言:

        学习R将近大半年了,从小白步入了门槛。一直对可视化很感兴趣,很早就看到rCharts这个数据包了,总想下一个玩玩,但苦于在Rstudio的install.package的安装数据包中没找到,又由于忙着学一些建模知识后来也就没在意。最近在自己买的一本书里发现了该包的运用,遂写下该篇文章进行分享。


一、安装及相关安装准备:

安装rCharts需要安装以下包:

R可视化数据包rCharts的探索运用( 一)_第1张图片

安装小tips:

当然你可以选择先安装devtools包,在安装此包时他会附带的把其他包一起打包下载:如RCurl、RJSONIO等,最后把安装错误的包再单独安装下。


安装好之后我们就可以开始愉快的安装rCharts包了

devtools::install_github("ramnathv/rCharts")

PS:ramnathv代表这个包的作者,rCharts代表这个包的名称

    devtools::install_github表示运用devtools下的install_github函数


一、使用rCharts的rPlot()函数进行可视化展示。

载入数据包:

library(rCharts)

首先调用ggplot2中的diamonds砖石数据集

data("diamonds",  package = "ggplot2")

1.散点图(point)

以切割进行分类展示,观测价格与钻石重量(克拉)的关系

rPlot(price ~ carat | cut, data = diamonds, 

         type = "point", color = "cut") 

以下为输出结果:

鼠标移动到图片上会显示相关数据,

R可视化数据包rCharts的探索运用( 一)_第2张图片

与此也可以对多重分面进行展示:

比如还想观察颜色和切割的下价格,克拉关系

rPlot(price ~ carat | cut + color, data = diamonds, 

         type = "point", color = "cut") 

R可视化数据包rCharts的探索运用( 一)_第3张图片

本次运行是笔记本,中等配置,运行后会卡一会,卡的时候请耐心等待,第一次尝试的时候由于比较手贱,多点了几下,程序崩溃了。



2. 条形图(bar)

调用HairEyeColor数据集

data("HairEyeColor")

将数据集转化为数据框格式,并仅选男性数据

hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex = "male")

p <- rPlot(Freq ~ Hair, color = 'Eye', data = hair_eye_male, type = 'bar')

直接作条形图,堆叠在一起

R可视化数据包rCharts的探索运用( 一)_第4张图片

以下进行修改,以eye分类,wrap(自动转行)

p$facet(var = 'Eye', type = 'wrap', rows = 2)

p

R可视化数据包rCharts的探索运用( 一)_第5张图片


3. 箱线图(Box)

务必要给y变量加上box(xxx)

rPlot(x = 'Species', y = 'box(SepalWidth)', data =iris, type = 'box', color = 'Species')

R可视化数据包rCharts的探索运用( 一)_第6张图片


二、使用rCharts的nPlot()函数进行可视化展示。(NVD3复用图表和组件d3.js项目。)

1.条形图(multiBarChar)

将数据转化为数据框格式

hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex = "male")

str(hair_eye_male)

nPlot(Freq~Hair, group = "Eye", data = hair_eye_male, type = "multiBarChart")

红框可以选择是分组还是堆叠显示,并且在右上角可以筛选需要观测的数据,

R可视化数据包rCharts的探索运用( 一)_第7张图片

注:当type = "muLtiBarHorizontaChart"条形图为横向


2.气泡图(scatterChart)

a <- nPlot(Sepal.Length ~ Sepal.Width, group = "Species", data = iris, 
           type = "scatterChart")

设置xy轴名称(这个气泡图不会显示xy轴的名称)需要手动设置

a$xAxis(axisLabel = "Sepal.Width")
a$yAxis(axisLabel = "Sepal.Length")

设置刻度

a$chart(showDistX = TRUE, showDistY = TRUE)

设置颜色

a$chart(color= c("red" ,"blue", "green"))
a


R可视化数据包rCharts的探索运用( 一)_第8张图片


3. 饼图(PieChart)

x <- nPlot(~color, data = diamonds, type = "pieChart")

当选择diamonds,cut切割时图例颜色能正确使用(图例个数较少),color图例显示有问题

x$chart(color = c("Red", "orange", "yellow", "green", "blue", "indigo", "purple"))

x

R可视化数据包rCharts的探索运用( 一)_第9张图片

当设置donut=TRUE时显示为环形图

x$chart(donut=TRUE)

R可视化数据包rCharts的探索运用( 一)_第10张图片

4.折线图(Line)

数据集来自于ggplot2的economics

data <- transform(economics, date = as.character(date))

mPlot(x= "date", y = list("psavert", "uempmed"),

      data = data,type = "Line", pointSize = 0, lineWidth = 1)

R可视化数据包rCharts的探索运用( 一)_第11张图片





参考书籍:《R语言与数据挖掘》

你可能感兴趣的:(R语言,可视化,rCharts包)