應用案例：承接上一個
學習筆記，我們讀取U-Bike的Open Data到R，然而實務上在進行資料視覺化(就是報表或儀表板)我們會累積一定時間的資料量，此種情境建議將資料存入到資料庫。所以我就模擬了一個情境，將從網路上讀取U-Bike資料後，再將資料匯入到SQL SERVER。
首先將從台北市政府的OpenData讀取到R
#安裝packages:jsonlite與curl
install.packages("jsonlite", repos="http://cran.r-project.org")
install.packages('curl')
#匯入library:jsonlite
library(jsonlite)
#讀取UBike並轉回DataFream格式
dataUBike <- fromJSON("http://data.taipei/opendata/datalist/apiAccess?scope=resourceAquire&rid=ddb80380-f1b3-4f8e-8016-7ed9cba571d5")
在資料庫建立TABLE
USE [OpenDataDB]
GO
DROP TABLE [dbo].[tabUbike]
GO
CREATE TABLE [dbo].[tabUbike](
[sno] [int] NULL,
[sna] [varchar](30) NULL,
[tot] [int] NULL,
[sbi] [int] NULL,
[sarea] [varchar](10) NULL,
[mday] [varchar](20) NULL,
[lat] [decimal](13, 10) NULL,
[lng] [decimal](13, 10) NULL,
[ar] [varchar](100) NULL,
[sareaen] [varchar](20) NULL,
[snaen] [varchar](100) NULL,
[aren] [varchar](100) NULL,
[bemp] [int] NULL,
[act] [bit] NULL
) ON [PRIMARY]
GO
將讀取的資料寫入SQL SERVER
#將讀取的資料寫入SQL SERVER
library(RODBC)
conn <- odbcDriverConnect('driver={SQL Server};server=.;database=OpenDataDB;trusted_connection=true')
df <- dataUBike$result$results[c("sno","sna","tot","sbi","sarea","mday","lat","lng","ar","sareaen","snaen","aren","bemp","act")]
sqlSave(conn, df, tablename = "tabUbike", rownames=FALSE, append=TRUE)
close(conn);
查詢資料庫驗證資料庫寫入成功
另外也可以透過R從資料庫讀取資料。
#將讀取的資料寫入SQL SERVER
conn <- odbcDriverConnect('driver={SQL Server};server=.;database=OpenDataDB;trusted_connection=true')
data <- sqlQuery(conn, "SELECT * FROM tabUbike");
close(conn);
