人大经济论坛 › 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛 › 用R如果做下面这个density图

发帖

楼主: wesea

10350 16

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

0关注
28粉丝

已卖：8048份资源

博士生

38%

还不是VIP/贵宾

威望: 0 级
论坛币: 13401 个
通用积分: 2.6367
学术水平: 25 点
热心指数: 26 点
信用等级: 20 点
经验: 4895 点
帖子: 199
精华: 0
在线时间: 222 小时
注册时间: 2007-9-16
最后登录: 2024-11-28
毕业学校: 仁荷大学

楼主

wesea

发表于 2012-4-1 19:59:18 |AI写论文

100论坛币

2d plot.xls (18 KB)
如何用R做出上面这样的图片来呀，数据excel也上传了~
亲爱的哪位高手帮下忙，把代码写下呀~~

最佳答案

epoh 查看完整内容

library(MASS) data=read.csv("2dplot.csv") x=data$labor.gdp y=data$capital.gdp xy.kde

分享0 收藏0 回帖

关键词：Density sit EXCEL xcel exce excel 图片如何

回帖推荐

epoh 发表于16楼查看完整内容

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

qoiqpwqr 发表于5楼查看完整内容

假设x，y是你的数据点 library(MASS) k

kaifengedu 发表于10楼查看完整内容

先把你的文件另存为csv格式，然后用下面命令： Ddensity

已有 1 人评分	学术水平	热心指数	信用等级	收起理由
epoh	+ 1	+ 1	+ 1	鼓励积极发帖讨论

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

沙发

epoh 发表于 2012-4-1 19:59:19

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

library(MASS)
data=read.csv("2dplot.csv")
x=data$labor.gdp
y=data$capital.gdp

xy.kde <- kde2d(x,y, n = 100)

rgb.palette=colorRampPalette(c("white","red"))
filled.contour(xy.kde,xlim = c(0, 0.07), ylim = c(0, 15),col = rgb.palette(27),
plot.title = title(main = "",xlab = "Growth rate of labor/gdp", ylab = "Growth rate of capital/gdp"))
contour(xy.kde, xlim = c(0, 0.07), ylim = c(0, 15),lwd=1,add = T)
points(x,y, pch = 16, cex = 0.5)

藤椅

8ujn 发表于 2012-4-1 20:07:25

复杂我也不知道呢

莫等闲，白了少年头，空悲切。

板凳

wesea

发表于 2012-4-1 20:43:06

fuzama?

报纸

qoiqpwqr 发表于 2012-4-1 20:59:32

假设x，y是你的数据点
library(MASS)
k <- with(df, kde2d(x,y))
filled.contour(k)
points(x, y, pch = 16, cex = 0.5)

地板

wesea

发表于 2012-4-2 08:31:36

qoiqpwqr 发表于 2012-4-1 20:59
假设x，y是你的数据点
library(MASS)
k

好像不行哦，
x <- matrix(c(a$x1,a$x2,a$x3,a$x4),nrow=32,ncol=4)
> y <- matrix(a$y,nrow=32,ncol=1)
>
> library(MASS)
> k <- with(df, kde2d(x,y))
错误于eval(substitute(expr), data, enclos = parent.frame()) :
'envir'参数不对

7楼

wesea

发表于 2012-4-2 08:38:51

qoiqpwqr 发表于 2012-4-1 20:59
假设x，y是你的数据点
library(MASS)
k

我上传了excel 数据用capital/gdp和labor/gdp 想做下，不知道您能给演示下吗~

8楼

qoiqpwqr 发表于 2012-4-2 10:30:35

wesea 发表于 2012-4-2 08:38
我上传了excel 数据用capital/gdp和labor/gdp 想做下，不知道您能给演示下吗~

x是一列，
y也是一列。

9楼

qoiqpwqr 发表于 2012-4-2 10:31:17

wesea 发表于 2012-4-2 08:38
我上传了excel 数据用capital/gdp和labor/gdp 想做下，不知道您能给演示下吗~

x就是你的capital/gdp
y就是你的labor/gdp

10楼

kaifengedu 发表于 2012-4-2 11:27:44

先把你的文件另存为csv格式，然后用下面命令：
Ddensity <- read.csv(file = "2dplot.csv", header = TRUE)
library(MASS)
k <- with(Ddensity, kde2d(capital.gdp,labor.gdp))
filled.contour(k, color.palette = cm.colors)
points(Ddensity$capital.gdp,Ddensity$labor.gdp, pch = 16, cex = 0.5)

特别说明：主要参考版主的命令！