苹果/安卓/wp
苹果/安卓/wp
积分 224, 距离下一级还需 36 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡下一级可获得
权限: 签名中使用图片
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
无聊签到天数: 7 天连续签到: 1 天[LV.3]偶尔看看II
如题~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
载入中......
chartSeries或者candleChart
有的 CRAN上有quanmod包，给lz附上一份文档，希望对你有用。
11:28:25 上传
热心帮助其他会员
总评分:&论坛币 + 50&
个人主页，欢迎订阅/
求证1加1 发表于
有的 CRAN上有quanmod包，给lz附上一份文档，希望对你有用。我研究研究，谢谢啦！
starfive2012 发表于
我研究研究，谢谢啦！不客气，很好的一个包~
个人主页，欢迎订阅/
chartSeries或者candleChart
所谓模型，就是用统计语言简化了的现实世界；越贴近实际情况，效果越佳。
初级热心勋章
初级热心勋章
初级信用勋章
初级信用勋章
中级热心勋章
中级热心勋章
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
为做大做强论坛，本站接受风险投资商咨询，请联系（010-）
邮箱：service@pinggu.org
合作咨询电话：(010)
广告合作电话：（刘老师）
投诉电话：(010)
不良信息处理电话：(010)
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师1757人阅读
最近在网上找了几种画中国地图方法，最终觉得这个方法还是最适用的
1.用googlevis包，由于中国国情现在已经不能访问google地图了，所以大多中国用户来说只能望洋兴叹了。
2.用ggplot包，虽然也不错是，但试了后还是些限制的，要用到的gpclib包，在windows和redhat linux系统上是不被支持的，只有ubuntu系统上支持,所以对于想在win和redhad linux画图不太容易。而且画出来的地图容易变形，不好调整。
3.最后还是plot工具画的，看上还不错，经过多方法参考和修改后，分享给大家。
library(maps)
library(mapdata)
library(maptools)
# 中国地图
# map(&china&)
# 加载GIS数据
# GIS数据下载：http://cos.name/wp-content/uploads/2009/07/chinaprovinceborderdata_tar_gz.zip
x &- readShapePoly(&bou2_4p.shp&)
# 测试数据
# plot(x,col=gray(924:0/924));
# 定义地图颜色函数
getColor &- function(mapdata,provname,provcol,othercol)
{ f=function(x,y) ifelse(x %in% y,which(y==x),0);
colIndex=sapply(iconv(x@data$NAME,&GBK&,&UTF-8&),f,provname);
col=c(othercol,provcol)[colIndex+1];
return(col);
# 测试数据
# provname=c(&北京市&,&天津市&,&上海市&,&重庆市&); provcol=c(&red&,&green&,&yellow&,&purple&);
# provcol=c(&red&,&green&,&yellow&,&purple&);
# plot(x,col=getColor(x,provname,provcol,&white&));
# 查看省份名
# as.character(na.omit(unique(x@data$NAME)));
# 画地图数据
provname=c(&北京市&,&天津市&,&河北省&,&山西省&,&内蒙古自治区&, &辽宁省&,&吉林省&,&黑龙江省&,&上海市&,&江苏省&, &浙江省&,&安徽省&,&福建省&,&江西省&,&山东省&, &河南省&,&湖北省&,&湖南省&,&广东省&, &广西壮族自治区&,&海南省&,&重庆市&,&四川省&,&贵州省&, &云南省&,&西藏自治区&,&陕西省&,&甘肃省&,&青海省&, &宁夏回族自治区&,&新疆维吾尔自治区&,&台湾省&, &香港特别行政区&);
pop &- c(43,98,58,,68,99,, 6,14,284,, 552,610,3);
# 构建图例的位置
nf &- layout(matrix(c(1,1,1,1,1,2,1,1,1),3,3,byrow=TRUE), c(3,1), c(3,1), TRUE)
layout.show(nf)
#provcol &- rgb(red=1-pop/max(pop)/2,green=1-pop/max(pop)/2,blue=0);
#plot(x,col=getColor(x,provname,provcol,&white&),xlab=&aaa&,ylab=&bbb&);
provcol &- rgb(red=1-pop/max(pop)/1,green=1-pop/max(pop)/1,blue=1/1.5);
plot(x,col=getColor(x,provname,provcol,&white&),xlab=&&,ylab=&&)
## 整理数据
pop &- pop - min(pop)
pop=pop-min(pop)
# 添加图例
par(mar=c(0,0,0,0))
par(mar=c(1,1,2,0),cex=0.5)
barplot(as.matrix(rep(1,31)),col=sort(provcol,dec=T),horiz=T,axes=F,border = NA )
axis(1,seq(1,32,by=3),sort(pop[seq(1,32,by=3)]))
# 参考: .cn/s/blog_7e4ac8b50101f1bh.html
版权声明：本文为博主原创文章，未经博主允许不得转载。
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场求助！！！！怎么在R中画出K线图_r语言吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：3,308贴子：
求助！！！！怎么在R中画出K线图收藏
rt哪位大哥教我一下啊
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或如何用visio画E-R图 - 下载频道 - CSDN.NET
&&&&如何用visio画E-R图
&如何用visio画E-R图
在软件设计中，一般要先画出E-R图，但VISIO中没有直接画E-R图的模板，本文就介绍如何自定义一个模板来画标准的E-R图
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
评价资源返积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
课程资源下载排行
积分不够下载该资源
如何快速获得积分？
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
如何用visio画E-R图
所需积分：3
剩余积分：
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
VIP服务公告:苹果/安卓/wp
苹果/安卓/wp
积分 535, 距离下一级还需 265 积分
权限: 自定义头衔, 签名中使用图片
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡, 匿名卡, 抢沙发下一级可获得
权限: 隐身
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
如题，想要在一幅图上画出两条不同的密度曲线图(图在下方)，不知道如何实现，如果有知道的请帮个忙，谢谢！！！
从谢老大的书上看到由直方图到密度图的作法，但没有两条画在一起的。以下为谢老大书上的代码，供大家参考，希望大家可以帮个忙，谢谢~~
&hist(geyser$waiting, freq = FALSE, xlab = &waiting&,
+ main = &(2) freq = FALSE&)
&hist(geyser$waiting, probability = TRUE, main = '')
&lines(density(geyser[['waiting']]))
另外，还有个命令和谢老大的有异曲同工之处，一并贴出来吧（转用的）：
&x=rnorm(1000)
&hist(x,prob=T,main=&histogram with fitted density curve,bw=0.5&)
&lines(density(x,bw=0.5),col=&red&,lwd=2)
plot(density(x))
> lines(density(y))
载入中......
& x &- rnorm(100)
& y &- runif(100, -2, 2)
& plot(density(x))
& lines(density(y))
热心帮助其他会员
总评分:&学术水平 + 1&
热心指数 + 1&
信用等级 + 1&
01:32:57 上传
& &不好意思，图好像没了，所以补传一张！！！
qoiqpwqr 发表于
& x&&y&&plot(density(x))
& lines(density(y))非常感谢您的回答，可以追问一句吗，如果有三条或三条以上的情况呢？谢谢！
ffcxy2005 发表于
非常感谢您的回答，可以追问一句吗，如果有三条或三条以上的情况呢？谢谢！plot之后，
直接 lines(density(x2))
lines(density(x3))
热心帮助其他会员
总评分:&学术水平 + 1&
热心指数 + 1&
信用等级 + 1&
如果该贴对您有些许帮助，希望你能回复一下或者评一下热心指数！谢谢！
多lines几次就好了，有个需要注意的地方，xrange需要自己先设定好，否则后面画的曲线否则很难看
kk22boy 发表于
plot之后，
直接 lines(density(x2))
lines(density(x3))谢谢~那如果在样本数和带宽不一定相等的情况下，画在同一张图上好像会出问题是吧
ffcxy2005 发表于
谢谢~那如果在样本数和带宽不一定相等的情况下，画在同一张图上好像会出问题是吧图片的尺寸是按照第一个图的数据确定的，所以要注意一下，比如y轴要选为所有数据的最大的那个。
qoiqpwqr 发表于
图片的尺寸是按照第一个图的数据确定的，所以要注意一下，比如y轴要选为所有数据的最大的那个。我出现的问题好像不是Y轴的问题，而是X轴的问题，X轴的宽度不够所有的曲线。比如，第一条曲线在图上全部显示了，但第二条、第三条却只出现左边的一半，右边就没有了。对于这种情况而言，好像单纯向Y轴设置数据中最大的不一样，因为X轴表示的是曲线的区间，不知道这种又该如何解决？谢谢~！
无论是x y 轴， 你把xlim ylim设置成你的所用变量里面 范围最大的那个就可以了
极端情况 就是值域太大 有些小变化的曲线体现不出来 这就要具体情况了。
观点有启发
总评分:&学术水平 + 1&
热心指数 + 1&
初级热心勋章
初级热心勋章
初级信用勋章
初级信用勋章
初级学术勋章
初级学术勋章
中级热心勋章
中级热心勋章
高级热心勋章
高级热心勋章
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
为做大做强论坛，本站接受风险投资商咨询，请联系（010-）
邮箱：service@pinggu.org
合作咨询电话：(010)
广告合作电话：（刘老师）
投诉电话：(010)
不良信息处理电话：(010)
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师