27.15 港股走势

美团、阿里巴巴在香港上市

# 美团
meituan <- quantmod::getSymbols("3690.HK", auto.assign = FALSE, src = "yahoo")
# 阿里
ali <- quantmod::getSymbols("9988.HK", auto.assign = FALSE, src = "yahoo")
# 京东
sw <- quantmod::getSymbols("9618.HK", auto.assign = FALSE, src = "yahoo")
# 腾讯
tx <- quantmod::getSymbols("0700.HK", auto.assign = FALSE, src = "yahoo")
## Warning: 0700.HK contains missing values. Some functions will not work if
## objects contain missing values in the middle of the series. Consider using
## na.omit(), na.approx(), na.fill(), etc to remove or replace them.
highchart(type = "stock") %>% 
  hc_add_series(meituan, type = "ohlc", name = '美团') %>% 
  hc_add_series(ali, type = "ohlc", name = '阿里巴巴') %>% 
  hc_add_series(sw, type = "ohlc", name = '京东') %>% 
  hc_add_series(tx, type = "ohlc", name = '腾讯')

图 9.21: 港股走势