finance data azalysis

install.packages("Tejapi")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.6'
## (as 'lib' is unspecified)

library(Tejapi)
Tejapi.api_key("rd1Ik0UVocoHozvVsZyF4D01vBTCnJ")

library(readxl)
data <- read_excel("data-explorer-results.xlsx")
data2 <- read_excel("data-explorer-results (1).xlsx")
data3 <- read_excel("data-explorer-results (2).xlsx")
all_data <- dplyr::bind_rows(data, data2, data3)
library(tidyr)
temp <- all_data[, c("日期","證券代碼", "當日均價(元)")]
final_data <- pivot_wider(temp, names_from = 證券代碼, values_from = `當日均價(元)`)
head(final_data)

## # A tibble: 6 × 4
##   日期       `0050` `0052` `0056`
##   <chr>       <dbl>  <dbl>  <dbl>
## 1 2026/09/22   113.   65.4   57.1
## 2 2026/09/21   111.   64.5   57.0
## 3 2026/09/18   109.   63.5   56.7
## 4 2026/09/17   109.   63.0   56.3
## 5 2026/09/16   107.   61.8   55.4
## 6 2026/09/15   107.   61.8   55.0

data3 <- read_excel(“data-explorer-results (2).xlsx”)