交互式绘图

library(rCharts)
hair_eye_male <- subset(as.data.frame(HairEyeColor),Sex=="Male")
hair_eye_male[,1] <- paste0("Hair",hair_eye_male[,1])
hair_eye_male[,2] <- paste0("EYE",hair_eye_male[,2])
nPlot(Freq~Hair,group="Eye",data = hair_eye_male,type="multiBarChart")

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

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

在这里插入图片描述
在这里插入图片描述
hPlot

a <- hPlot(Pulse~Height,data=MASS::survey,type="scatter",group="Sex",
           radius = 4,group.na = "Not Available")
a$colors("rgba(223,86,76,.5)","rgba(119,152,198,.5)","rgba(60,179,113,.5)")
a$legend(align="right",verticalAlign="top",layout="vertical")
a$chart(zoomType="xy")
a$exporting(enabled=T)
a

在这里插入图片描述
mPlot
时间序列线图

data("economics")
dat <- transform(economics,date=as.character(date))
pl <- mPlot(x="date",y="psavert",data = dat,type="Line",
            pointsize=0.2,linewidth=0.5)
pl

在这里插入图片描述

pl$set(type="Area")

在这里插入图片描述

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值