[原创][R语言]股票分析实战[4]:周级别涨幅趋势的相关性

news2024/12/23 13:54:44

[简介]
常用网名: 猪头三
出生日期: 1981.XX.XX
QQ联系: 643439947
个人网站: 80x86汇编小站 https://www.x86asm.org
编程生涯: 2001年~至今[共22年]
职业生涯: 20年
开发语言: C/C++、80x86ASM、PHP、Perl、Objective-C、Object Pascal、C#、Python
开发工具: Visual Studio、Delphi、XCode、Eclipse、C++ Builder
技能种类: 逆向驱动磁盘文件
研发领域: Windows应用软件安全/Windows系统内核安全/Windows系统磁盘数据安全/macOS应用软件安全
项目经历: 磁盘性能优化/文件系统数据恢复/文件信息采集/敏感文件监测跟踪/网络安全检测

[序言]
前面三篇文章已经从数据内部中, 挖掘出了两个重要的关系: "频率(Freq)"与"涨幅(RC)", "频率(Freq)"与"周1~周5(DW)" 都有关系. 那么如何通过图形更加容易的进一步验证关系呢?

[先把频数表转换为数据框]
为了更好地把抽象的数据转换为图表, 需要把数据转换为数据框, 这样通过数据框绘画出通俗易懂的图表. R语言提供了相应功能. 首先按照如下的代码, 做一次频数表转数据框的处理.

load("stock_demo_Total.rdata") #加载R数据
stock_demo_rc_token <- stock_demo_Total[which(stock_demo_Total$RC >=5 & stock_demo_Total$RC <= 10),]
stock_demo_rc_table <- xtabs(~ RC + DW, stock_demo_rc_token)
stock_demo_rc_table_db <- data.frame(matrix(stock_demo_rc_table, nrow = nrow(stock_demo_rc_table), ncol = ncol(stock_demo_rc_table))) #频数表转数据框
colnames(stock_demo_rc_table_db) <- c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday") #修正列名称
rownames(stock_demo_rc_table_db) <- c("5%", "6%", "7%", "8%", "9%", "10%") #修正行名称

[箱线图]
这时候可以通过stock_demo_rc_table_db的数据框, 进行一次箱线图处理. 看看"频率(Freq)"与"周1~周5(DW)" 的规律, 代码如下:

boxplot(stock_demo_rc_table_db, xlab = "Day of the Week", ylab = "Frequency")

这是很容易观察: 箱线图的走势跟我们的分析符合预期: 周3, 周4, 周5的交易比周1, 周2活跃. 为什么呢？因为他们的上下范围都扩大了. 另外还要特别注意如下2个特点:

1> 红线: 形成反弹趋势
2> 篮圈: 站稳底部形成支撑

[柱状图]
我们再另外打印一个柱状图, 看看"频率(Freq)"与"涨幅(RC)"的规律, 代码如下:

barplot(as.matrix.data.frame(stock_demo_rc_table_db), beside = TRUE, legend.text = rownames(stock_demo_rc_table_db), args.legend = list(title = "Stock Rise", ncol = 6, x=16, y=max(as.matrix.data.frame(stock_demo_rc_table_db))+2), main = "Frequency of Stock Rises by Day of the Week", xlab = "Day of the Week", ylab = "Frequency")