R语言小代码6（股票数据分析）

任务:一：请举例说明R语言如何读取Excel中不同工作表中的文件

创建一个excel文件，给不同的sheet命名；下载readxl包，使用read_xlsx方法，注明路径和sheet名字，就能读取不同工作表的内容

代码：

> library("readxl")
> getwd()
[1] "C:/Users/lenovo/Documents"
>
> read_sheet1=read_xlsx("info.xlsx",sheet="信息1")
> read_sheet1
# A tibble: 1 x 3姓名  性别   年龄<chr> <chr> <dbl>
1 魏婴  男        3
> read_sheet2=read_xlsx("info.xlsx",sheet="信息2")
> read_sheet2
# A tibble: 1 x 3姓名  性别   年龄<chr> <chr> <dbl>
1 蓝湛  男       13
>

任务二：在quantmod中下载Apple,Microsoft,Oracle,Google四家公司全量股票行情数据。

代码：

library(quantmod)
library(xts)
library(zoo)
library(TTR)
new.environment <- new.env()
#下载Apple,Microsoft,Oracle,Google四家公司全量股票行情数据
#数据来源，yahoo网
#getSymbols(c("AAPL", "ORCL", "MSFT", "GOOG"), src = "yahoo", env = new.environment)
getSymbols(c("AAPL", "ORCL", "MSFT", "GOOG"), src = "yahoo",auto.assign=TRUE)

任务三：求出Apple公司在2020.1-2020.3的股票总成交量

代码：

#求出Apple公司在2020.1-2020.3的股票总成交量使用
AAPL <- getSymbols(c("AAPL"), src = "yahoo",from = "2020-01-01", to = "2020-03-31" , auto.assign=FALSE)
head(AAPL)
#2020.1-2020.10的股票总成交量
sum(Vo(AAPL))

任务四：找出苹果公司股票暴涨暴跌的时间点（例如开盘价或收盘价比前一天涨跌幅度超过2%），通过搜索引擎寻找是什么原因导致这些暴涨暴跌。

代码：

# 查看涨跌幅超过2%的情况
AAPL <- getSymbols(c("AAPL"), src = "yahoo",from = "2020-01-01", to = "2020-03-31" , auto.assign=FALSE)
AAPL <- Delt(Cl(get("AAPL", env = new.environment)))
length(AAPL[which(AAPL > 0.02), ])
plot(AAPL[which(AAPL > 0.02), ])

通过搜索引擎寻找是什么原因导致这些暴涨暴跌？

原因：
1、苹果股票暴跌的直接原因是新版iPhone销量低于预期，以及在中国市场销售表现不佳。市场的反应至今反响到公司股价上，股民对苹果失去信心，自然会引起蹦雪般的暴跌。
2、2020年2月12日：2月，苹果便称，因疫情影响，苹果在中国的合作伙伴无法按照预期复工，iPhone的全球供应因此受到影响，进而影响该季度的营收。

R语言小代码6（股票数据分析）相关推荐

R语言小代码7（流程控制练习）
任务:计算等额本金还款和等额本息还款小张贷款100万购买房子,贷款利率为4.9%(年利率),贷款期限20年. 1)用循环执行语句(for或者while),分别计算等额本金还款和等额本息还款的每月偿还 ...
R语言小代码（商品零售购物篮分析）
任务: 某西饼屋准备对现有的店面重新进行布置,以期能够给用户提供更加友好的体验.现有某西饼屋某天60天订单数据,部分数据如下所示,使用Apriori算法对西饼屋订单进行关联分析. 一.导入数据: se ...
python和r语言哪个入门容易-R语言 vs Python对比：数据分析哪家强？
什么是R语言? R语言,一种自由软件编程语言与操作环境,主要用于统计分析.绘图.数据挖掘.R本来是由来自新西兰奥克兰大学的罗斯·伊哈卡和罗伯特·杰特曼开发(也因此称为R),现在由"R开发核心 ...
R语言时间序列代码整理
R语言时间序列代码整理时间序列: data<-read.csv('/Users/ji_fanyang/Desktop/test2.csv') myseries<- ts(data[1], ...
R语言统计代码运行耗时实战：计算代码运行时间、使用proc.time函数计算代码运行时间
R语言统计代码运行耗时实战:计算代码运行时间.使用proc.time函数计算代码运行时间目录
R语言explore包进行探索性数据分析实战（EDA、exploratory data analysis）：基于iris数据集
R语言explore包进行探索性数据分析实战(EDA.exploratory data analysis):基于iris数据集目录
++代码实现感知机的原理_决策树ID3原理及R语言python代码实现（西瓜书）
决策树ID3原理及R语言python代码实现(西瓜书) 摘要: 决策树是机器学习中一种非常常见的分类与回归方法,可以认为是if-else结构的规则.分类决策树是由节点和有向边组成的树形结构,节点表示特 ...
R语言编写代码的方式
大部分的代码都是基于控制台的交互式操作,但是对于那些要重复好多次的程序片段,将其保存为一段R程序文件是一个不错的选择.通常,R程序以ASCII格式保存,扩展名为".R". 可以在类 ...
R语言 | 利用tushare获取股票k线、市值、换手率，市盈率等指标
作者的tushare ID:456548 作者在股市进行比较短线的投资,想开发一些高效的指标作为买卖的参考,于是需要k线.市值.换手率等数据进行研究,同花顺等软件上面大多数据不能导出,所以找到了tus ...

R语言小代码6（股票数据分析）

R语言小代码6（股票数据分析）相关推荐

最新文章

热门文章