用ggplot2画的常用K线图

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

首先，为什么要用ggplot2来画K线图，不是有quantmod包和chartSeries()等函数吗？
这是因为：第一，quantmod包的画图对我来说没有足够的灵活性，我不能很自如地控制每一个要素，添加我想要的东西；第二，quantmod包的分析是基于xts的时间序列对象，而在日常工作中，已经习惯了用tbl_df体系，也确实好用，而该体系的作图对应的就是ggplot2这一强大的工具。
好了，不说废话了，直接开始。
数据是2017年上证综指每日的开盘，最高，最低、收盘和成交量数据，在这个文件中，变量名"SHDX2017"。
SHDX2017.rar (7.79 KB) 本附件包括：

• SHDX2017.RData

2018-1-30 13:55:22 上传

本例中所需的数据

开始作图：

1. library(tidyverse)
   
2. library(gridExtra)
   
3. library(quantmod)  # 要用到SMA函数
   
4. 
   
5. # 为了解决日期作为横坐标会出现休市日的情况，需要以下的变量辅助
   
6. row_len <- nrow(SHDX2017)
   
7. breaks <- seq(1, row_len, 10)
   
8. labels <- SHDX2017$date[breaks]
   
9. 
   
10. # 作K线图
    
11. p1 <- SHDX2017 %>%
    
12.   arrange(date) %>%
    
13.   mutate(ma5 = SMA(close, n = 5, align =  "right"),
    
14.          ma10 = SMA(close, n = 10, align = "right"),
    
15.          date_axis = row_number()) %>%
    
16.   ggplot(aes(x = date_axis)) +
    
17.   geom_boxplot(aes(lower = pmin(close, open),
    
18.                    middle = close,
    
19.                    upper = pmax(close, open),
    
20.                    ymin = low,
    
21.                    ymax = high,
    
22.                    group = date_axis,
    
23.                    fill = open > close),
    
24.                stat = "identity",
    
25.                show.legend = FALSE) +
    
26.   geom_line(aes(y = ma5), color = "blue3") +
    
27.   geom_line(aes(y = ma10), color = "red") +
    
28.   scale_x_continuous(breaks = breaks,
    
29.                      labels = NULL,
    
30.                      expand = c(0, 0)) +
    
31.   theme(axis.ticks.x = element_blank(),
    
32.         axis.title = element_blank(),
    
33.         axis.text.y = element_text(margin = margin(l = 8)))
    
34. 
    
35. # 作成交量图
    
36. p2 <- SHDX2017 %>%
    
37.   arrange(date) %>%
    
38.   mutate(vol_ma5 = SMA(volume, n = 5, align =  "right"),
    
39.          vol_ma10 = SMA(volume, n = 10, align = "right"),
    
40.          date_axis = row_number()) %>%
    
41.   ggplot(aes(x = date_axis, y = volume)) +
    
42.   geom_bar(stat = "identity",
    
43.            aes(fill = open > close),
    
44.            show.legend = FALSE) +
    
45.   geom_line(aes(y = vol_ma5), color = "blue3") +
    
46.   geom_line(aes(y = vol_ma10), color = "red") +
    
47.   scale_x_continuous(breaks = breaks,
    
48.                      labels = format(labels, "%m-%d"),
    
49.                      expand = c(0, 0)) +
    
50.   scale_y_continuous(expand = c(0, 0.5)) +
    
51.   theme(axis.title = element_blank())
    
52. 
    
53. # 组合
    
54. grid.arrange(p1, p2, nrow = 2, heights = 2:1)

复制代码

作出的图像这样：

扫码加我 拉你入群

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

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

分享0 收藏10 回帖

关键词：ggplot2 gplot plot GPL K线图

楼主厉害！

请问楼主，数据是怎么获得的？

allain 发表于 2018-1-30 14:51
请问楼主，数据是怎么获得的？

我是用的收费的Wind。
不过，用通达信等免费软件在K线图键入34，也可以导出。

cheetahfly 发表于 2018-1-30 14:59
我是用的收费的Wind。
不过，用通达信等免费软件在K线图键入34，也可以导出。

好的，谢谢

相当不错，非常受用！

谢谢楼主分享。不过有个问题，如何把图示(legend)加上？

楼主真棒，我基于xts的data现在用楼主的代码在尝试，但是还是出现了双休日，节假日，停牌日的间隔，这个楼主通过前面三行代码究竟是怎么消除的呀？

13801889358 发表于 2021-2-28 20:41
楼主真棒，我基于xts的data现在用楼主的代码在尝试，但是还是出现了双休日，节假日，停牌日的间隔，这个楼主 ...

13801889358 发表于 2021-2-28 20:41
楼主真棒，我基于xts的data现在用楼主的代码在尝试，但是还是出现了双休日，节假日，停牌日的间隔，这个楼主 ...

把日期直接作为1/2/3/4....这样的序列