1580 7

[问答] plot绘制股票的问题,急,求助 [推广有奖]

  • 0关注
  • 0粉丝

本科生

19%

还不是VIP/贵宾

-

威望
0
论坛币
59 个
通用积分
5.5003
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
159 点
帖子
18
精华
0
在线时间
138 小时
注册时间
2017-7-25
最后登录
2024-6-18

楼主
不会经济的小豆 发表于 2018-2-1 23:48:21 |AI写论文
5论坛币
最近在看一本书,书上绘制股票的图形与我绘制的不太相同。
主要就是书上有边框而且比较好看,我感觉我自己的图没有边框而且丑,代码也都是按书上给的,但为什么就是不同呢?
请大神指点一下。
代码就是plot(close,main="2014年青岛啤酒股票收盘价时序图")

Rplot.png (6.25 KB)

自己绘制

自己绘制

微信截图_20180201234224.png (168.87 KB)

书

最佳答案

cheetahfly 查看完整内容

如果用plot(),会默认用plot.xts(),该函数已经发展变化了,与写书时相去甚远矣。
关键词:plot Close 青岛啤酒 Main Lose

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

藤椅
cheetahfly 在职认证  发表于 2018-2-2 07:57:59
代码呢?

板凳
笨_O 发表于 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年青岛啤酒股票收盘价时序图")
这就是那本书提供的,一模一样

7
cheetahfly 在职认证  发表于 2018-2-2 11:09:02
xts包在不断发展更新,现在的画图结果与书上不一样很正常。
用plot.zoo(close,main="2014年青岛啤酒股票收盘价时序图")吧。

8
不会经济的小豆 发表于 2018-2-2 11:42:57 来自手机
cheetahfly 发表于 2018-2-2 11:09
xts包在不断发展更新,现在的画图结果与书上不一样很正常。
用plot.zoo(close,main=&quot;2014年青岛啤酒股票收 ...
请问这两种有什么区别,之前我也用了plot.zoo,但是x轴的刻度没有plot这么精确,比如plot.zoo只显示2014,2015但是plot的x轴可以显示2014年3月,6月,9月。

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2025-12-30 18:59