全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1490 7
2018-02-01
悬赏 5 个论坛币 已解决
最近在看一本书,书上绘制股票的图形与我绘制的不太相同。
主要就是书上有边框而且比较好看,我感觉我自己的图没有边框而且丑,代码也都是按书上给的,但为什么就是不同呢?
请大神指点一下。
代码就是plot(close,main="2014年青岛啤酒股票收盘价时序图")
Rplot.png

原图尺寸 6.25 KB

自己绘制

自己绘制

微信截图_20180201234224.png

原图尺寸 168.87 KB

书

最佳答案

cheetahfly 查看完整内容

如果用plot(),会默认用plot.xts(),该函数已经发展变化了,与写书时相去甚远矣。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2018-2-1 23:48:22
不会经济的小豆 发表于 2018-2-2 11:42
请问这两种有什么区别,之前我也用了plot.zoo,但是x轴的刻度没有plot这么精确,比如plot.zoo只显示2014, ...
如果用plot(),会默认用plot.xts(),该函数已经发展变化了,与写书时相去甚远矣。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2018-2-2 07:57:59
代码呢?
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2018-2-2 08:47:42
把你的代码发出来看看
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2018-2-2 09:36:29
cheetahfly 发表于 2018-2-2 07:57
代码呢?
TsingTao<-read.csv('TsingTao.csv',header=TRUE)
TsingTao<-xts(TsingTao[,-c(1,2)],
              order.by=as.Date(TsingTao$Date))
close<-TsingTao$Close
plot(close,main="2014年青岛啤酒股票收盘价时序图")
这就是那本书提供的,一模一样
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

2018-2-2 09:37:10
笨_O 发表于 2018-2-2 08:47
把你的代码发出来看看
TsingTao<-read.csv('TsingTao.csv',header=TRUE)
TsingTao<-xts(TsingTao[,-c(1,2)],
              order.by=as.Date(TsingTao$Date))
close<-TsingTao$Close
plot(close,main="2014年青岛啤酒股票收盘价时序图")
这就是那本书提供的,一模一样
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群