Catterplots包,让你绘制不一样的图

就在最近我发现了一个比较有趣的包那就 CatterPlots包。至于怎么有趣那就接着看。

首先我们来安装这个包:

library(devtools)
install_github("Gibbsdavidl/CatterPlots")
这个包目前在github,需要这样安装。

首先我们来画一个圆形看看效果。

radius <- 1
theta <- seq(0, 2 * pi, length = 30)
multicat(xs=radius * cos(theta),ys=radius * sin(theta), cat=c(1,3,6,9), catcolor=list(c(1,0.4,0,1), c(0,0.4,0,1),c(0.7,0,0,1),
c(0,0,0.6,1)))


运行结果如下:


这个包总共有四个函数:

catplot,cats,morecats,mulicat函数。

这四个函数原型分别如下:


catplot(xs, ys, size = 0.1, cat = 1, catcolor = c(0, 0, 0, 1),
  linecolor = 1, type = "justcats", canvas = c(0, 1.1, 0, 1.1), ...)


cats(obj = NULL, xs, ys, size = 0.1, cat = 2, catcolor = c(0,0,0,1),
  linecolor = 1, type = "justcats")


morecats(obj = NULL, xs, ys, size = 0.1, cat = c(4,5,6), catcolor = list(c(0,0,1,1),c(0,1,0,1)),
  linecolor = 1, type = "justcats")

multicat(xs, ys, size = 0.1, cat = c(1,2,3), catcolor = list(c(1,1,0,1), c(0,0,0,1),
  linecolor = 1, type = "justcats", canvas = c(0, 1.1, 0, 1.1), ...)

主要说一下catplot函数的参数意义。

参数
含义
xs
x
ys
y
size
猫的大小
cat
猫的类型,范围为1~12,共12
catcolor
猫的颜色,透明度,四个参数值含义为c(红,绿,蓝,透明度) 
linecolor
设置拟合曲线的颜色,仅当type="line"时有效。
type
有两种,默认值为“justcats”,另一个是“line”,它也会画出拟合曲线
canvas
设置画图面板的显示范围,详情可以?par ,查看usr参数含义

cats函数和catplot函数相比就是多了一个obj参数,这个对象是一个绘图面板对象,使用cats函数可以在obj这个图像基础上再进行绘图。


morecats这个函数的一个特点就是catcolor=list(……)这样子的话就可以在一次绘图中猫的颜色可以不同。


multicat这个函数的特点就是结合了之前的几个函数的所有功能,不但有catcolor=list(……)这样的参数,而且新增了cat = c(……)这个参数,也就是说,我们可以在一次绘图中,猫的颜色不一样,形状也可以不一样。


cats函数:

x <- -10:10
y <- x^2 
purr <- catplot(xs=x, ys=y, cat=3, catcolor=c(0,1,1,1))
y2<-(x-1)^2
cats(purr, x=x, y2, cat=3, catcolor=c(0,1,0,1))
cats(purr, x=x, y=-y, cat=3, catcolor=c(1,0,0,1))
y3<-(x+0.5)^2
cats(purr, x, -y3, cat=3, catcolor=c(0,0,1,1))


morecats函数


x <- -10:10
	y <- -x^2 + 10
	purr <- catplot(xs=x, ys=y, cat=3, catcolor=c(0,1,1,1))
	morecats(purr, -x, -y, cat=c(4,5,6), catcolor=list(c(1,0,1,1),c(0,1,0,1)))


multicat函数

x <- -10:10
y <- -x^2 + 10
multicat(xs=x, ys=y, cat=c(1,3,6,9), catcolor=list(c(1,0.4,0,1), c(0.7,0,0,1),c(0,0,0.6,1)))





转载请注明原文链接:http://blog.csdn.net/wzgl__wh/article/details/59747820



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值