[问答] 用R如果做下面这个density图 [推广有奖]

11楼

wesea

发表于 2012-4-2 15:33:16

kaifengedu 发表于 2012-4-2 11:27
先把你的文件另存为csv格式，然后用下面命令：
Ddensity

嗯很厉害呀
请问粉红色怎么改成蓝色或者大红呢
背景的青色怎么去掉嗯？

12楼

qoiqpwqr 发表于 2012-4-2 20:23:45

wesea 发表于 2012-4-2 15:33
嗯很厉害呀
请问粉红色怎么改成蓝色或者大红呢
背景的青色怎么去掉嗯？

filled.contour有个选项col，可以改成你想要的颜色。

已有 1 人评分	学术水平	热心指数	信用等级	收起理由
babymafia	+ 1	+ 1	+ 1	热心帮助其他会员

总评分: 学术水平 + 1 热心指数 + 1 信用等级 + 1 查看全部评分

13楼

wesea

发表于 2012-4-3 07:59:24

那么多高手呀，学习了~
感谢qoiqpwqr，epoh和青色高手kaifengedu

14楼

wesea

发表于 2012-4-3 09:04:51

epoh 发表于 2012-4-1 19:59
library(MASS)
data=read.csv("2dplot.csv")
x=data$labor.gdp

好厉害~
如果我有3个不同的图片想把他们合并在一起那用R的什么命令呢？还是不用R直接在ppt上合并呢？

15楼

较拉峭

发表于 2012-4-3 09:37:09

很好很强大，学习了

logistic、分层、R、stata

16楼

epoh 发表于 2012-4-3 10:13:48

wesea 发表于 2012-4-3 09:04
好厉害~
如果我有3个不同的图片想把他们合并在一起那用R的什么命令呢？还是不用R直接在ppt上合并呢？

如果只是用到function contour()
比较简单,只要加入par(mfrow = c(1,3))
如下代码:
library(MASS)
data=read.csv("2dplot.csv")
x=data$labor.gdp
y=data$capital.gdp

xy.kde <- kde2d(x,y, n = 100)
par(mfrow = c(1,3))
####1st
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),col = "red")
points(x,y, pch = 20, cex = 0.6)
####2nd
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),col = "blue")
points(x,y, pch = 20, cex = 0.6)
####3rd
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),col = "orange")
points(x,y, pch = 20, cex = 0.6)

######
但因程序有用到function filled.contour()
filled.contour is actually a combination of two plots;
one is the filled contour and one is the legend.
filled.contour()用到function layout()
可想而知layout必须重新计算,比较麻烦,
所以方便的话,就请你在PPT直接完成.