這是一份關於台灣股市每日價格的報告。
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.2.1 ✔ readr 2.2.0
## ✔ forcats 1.0.1 ✔ stringr 1.6.0
## ✔ ggplot2 4.0.3 ✔ tibble 3.3.1
## ✔ lubridate 1.9.5 ✔ tidyr 1.3.2
## ✔ purrr 1.2.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(quantmod)
## Loading required package: xts
## Loading required package: zoo
##
## Attaching package: 'zoo'
##
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
##
##
## ######################### Warning from 'xts' package ##########################
## # #
## # The dplyr lag() function breaks how base R's lag() function is supposed to #
## # work, which breaks lag(my_xts). Calls to lag(my_xts) that you type or #
## # source() into this session won't work correctly. #
## # #
## # Use stats::lag() to make sure you're not using dplyr::lag(), or you can add #
## # conflictRules('dplyr', exclude = 'lag') to your .Rprofile to stop #
## # dplyr from breaking base R's lag() function. #
## # #
## # Code in packages is not affected. It's protected by R's namespace mechanism #
## # Set `options(xts.warn_dplyr_breaks_lag = FALSE)` to suppress this warning. #
## # #
## ###############################################################################
##
## Attaching package: 'xts'
##
## The following objects are masked from 'package:dplyr':
##
## first, last
##
## Loading required package: TTR
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
library(rvest)
##
## Attaching package: 'rvest'
##
## The following object is masked from 'package:readr':
##
## guess_encoding
end_date <- Sys.Date()
start_date <- end_date - 730
stock_url <- "https://openapi.twse.com.tw/v1/opendata/t187ap03_L"
stock_list <- jsonlite::fromJSON(stock_url)
head(stock_list)
## 出表日期 公司代號 公司名稱 公司簡稱 外國企業註冊地國 產業別
## 1 1151004 1101 臺灣水泥股份有限公司 台泥 - 01
## 2 1151004 1102 亞洲水泥股份有限公司 亞泥 - 01
## 3 1151004 1103 嘉新水泥股份有限公司 嘉泥 - 01
## 4 1151004 1104 環球水泥股份有限公司 環泥 - 01
## 5 1151004 1108 幸福水泥股份有限公司 幸福 - 01
## 6 1151004 1109 信大水泥股份有限公司 信大 - 01
## 住址 營利事業統一編號 董事長 總經理 發言人
## 1 台北市中山北路2段113號 11913502 張安平 程耀輝 葉毓君
## 2 台北市大安區敦化南路2段207號30、31樓 03244509 徐旭東 李坤炎 王照宇
## 3 台北市中山北路二段96號 11892801 張剛綸 王立心 金哲毅
## 4 台北市南京東路二段125號10樓 07568009 侯博義 侯智元 楊宗仁
## 5 台北市松江路237號15樓 40601248 陳韻如 陳明賢 溫秀菊
## 6 台北市寶慶路37號7樓 03279507 楊智雄 楊大寬 張清壽
## 發言人職稱 代理發言人 總機電話 成立日期 上市日期
## 1 永續長 賴家柔 (02)2531-7099 19501229 19620209
## 2 協理 楊淯玲 02-2733-8000 19570321 19620608
## 3 董事會秘書室協理 馮文裕 (02)2551-5211 19541213 19691114
## 4 副總經理 高琮堯 02-25077801 19600321 19710201
## 5 財務部經理 陳一誠 25092188 19740507 19900606
## 6 資深協理 蔡素秋 (02)23816731 19640315 19911205
## 普通股每股面額 實收資本額 私募股數 特別股
## 1 新台幣 10.0000元 77231817420 0 200000000
## 2 新台幣 10.0000元 35465628810 0 0
## 3 新台幣 10.0000元 8328745530 0 0
## 4 新台幣 10.0000元 6866818160 0 0
## 5 新台幣 10.0000元 4047380490 0 0
## 6 新台幣 10.0000元 3411588680 0 0
## 編制財務報表類型 股票過戶機構 過戶電話
## 1 1 中國信託商業銀行代理部 66365566
## 2 1 亞東證券股份有限公司 02-7753-1699
## 3 1 群益金鼎證券股份有限公司股代部 (02)2702-3999
## 4 1 永豐金證券股份有限公司 02-23816288
## 5 1 永豐金證券股務代理 2381-6288
## 6 1 中國信託商業銀行代理部 (02)6636-5566
## 過戶地址 簽證會計師事務所 簽證會計師1 簽證會計師2
## 1 台北市重慶南路一段83號5樓 勤業眾信聯合會計師事務所 翁雅玲 邵志明
## 2 新北市板橋區新站路16號13樓 勤業眾信聯合會計師事務所 劉紋伶 陳培德
## 3 台北市敦化南路2段97號地下2樓 勤業眾信聯合會計師事務所 陳薔旬 梁盛泰
## 4 台北市博愛路17號3樓 資誠聯合會計師事務所 王菘澤 林秀珊
## 5 台北市中正區博愛路17號3樓 勤業眾信聯合會計師事務所 陳招美 陳薔旬
## 6 台北巿重慶南路一段83號5樓 資誠聯合會計師事務所 余正富 支秉鈞
## 英文簡稱
## 1 TCC
## 2 ACC
## 3 CHC
## 4 UCC
## 5 LUCKY CEMENT
## 6 HsingTa
## 英文通訊地址
## 1 No.113, Sec.2, Zhongshan N. Rd.,Taipei City 104,Taiwan (R.O.C.)
## 2 30-31F., No.207, Sec. 2, Dunhua S. Rd., Da' an Dist., Taipei City 106, TaiwanTAIPEI,TAIWAN,R.O.C
## 3 No.96, Sec. 2, Zhongshan N. Rd., Zhongshan Dist.Taipei City 10449, Taiwan (R.O.C.)
## 4 10th F., 125 Nanking E.Rd Sec. 2,Taipei Taiwan
## 5 15TH FL.,NO.237,SUNG KIANG RD.,TAIPEI,TAIWAN,R.O.C.
## 6 No. 37, 7F, Baoqing Rd.,Taipei City 100, Taiwan (R.O.C.)
## 傳真機號碼 電子郵件信箱 網址
## 1 (02)2531-6529 finance@taiwancement.com https://www.tccgroupholdings.com/tw/
## 2 02-2736-6263 service@acc.com.tw www.acc.com.tw
## 3 (02)2511-4002 ir@chcgroup.com.tw www.chcgroup.com.tw
## 4 02-25075870 ucc@ucctw.com www.ucctw.com
## 5 25048672 wendy@luckygrp.com.tw www.luckygrp.com.tw
## 6 23314086 service@hsingta.com.tw www.hsingta.com.tw
## 已發行普通股數或TDR原股發行股數
## 1 7523181742
## 2 3546562881
## 3 832874553
## 4 686681816
## 5 404738049
## 6 341158868