载入包
library(tidyverse)
-- Attaching packages --------------------------------------- tidyverse 1.3.0 --
√ ggplot2 3.3.1 √ purrr 0.3.4
√ tibble 3.0.1 √ dplyr 1.0.0
√ tidyr 1.1.0 √ stringr 1.4.0
√ readr 1.3.1 √ forcats 0.5.0
-- Conflicts ------------------------------------------ tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag() masks stats::lag()
library(echarts4r)
K线图
library(Tushare)
bar <- Tushare::pro_bar(token = ‘yourself’)
data <- bar(ts_code = "000001.SZ", start_date = "20171010", end_date = "20181010")
head(data) %>% as_tibble()
# A tibble: 6 x 11
ts_code trade_date open high low close pre_close change
<chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
1