R data analysis, visualization, machine learning course

近日公佈二門課程，歡迎各位R友參考。

課程1：R入門資料分析與視覺化應用

時間：7小時28分鐘，附中文字幕

網址：https://mastertalks.tw/products/r?ref=MCLEE

課程2：R 商業預測應用

時間：8小時53分鐘，附中文字幕

網址：https://mastertalks.tw/products/r-2?ref=MCLEE

R語言入門及應用組合包

二門合購優惠價77折：4,728元 (價格以網站公告為主)

#R

#tutorial

#visualization

#bigdata

#machine learning

#prediction

#programming

R音樂創作-gm套件

主題

R可以使用 gm 套件建立音樂。gm亦可內嵌於R Markdown.

感謝 Alpha Lee 提供音樂簡譜:

Youtube: https://youtu.be/Jx2YmiNm-6o

Piano : Moonlight Sonata Op.27 No.2 (Beethoven)

使用方法

1. 下載免費跨平台(Windows, Mac, Linux)譜曲軟體 MuseScore, 下載網址 https://musescore.org/zh-hant/download

2. 下載 gm 套件

3. 使用 Music, Line建立音樂, 最後以 show 顯示樂譜.

4. 使用時, 按下 [三角形] 播放鍵即可播放音樂.

關鍵字

#music

#MuseScore

#gm

執行成果

1. 內建範例

MP3下載: https://github.com/rwepa/DataDemo/blob/master/music/gm-sample1.mp3

2. Alpha Lee 提供音樂簡譜

Youtube: https://youtu.be/N0PK1u5ZfBE

R程式碼下載

https://github.com/rwepa/DataDemo/blob/master/gm_demo.R

R程式碼

# title      : gm-音樂創作

# author  : Ming-Chang Lee

# email   : alan9956@gmail.com

# RWEPA : http://rwepa.blogspot.tw/

# GitHub  : https://github.com/rwepa

# 載入 gm

library(gm)

# sample 1 - 內建範例

# 建立 Music 對象

m <-

  # 初始化 Music 對象

  Music() +

  # 加上 4/4 拍號

  Meter(4, 4) +

  # 加上一條包含四個音的聲部

  Line(list("C5", "D5", "E5", "F5"), list(1, 1, 1, 1))

# 轉化成樂譜和音訊

show(m, c("score", "audio"))

# sample 2 -  Alpha Lee  提供

t <- tuplet("quarter", Tupler(3, unit = "eighth", take = "eighth"))

z1 <- Line(list("G#3", "C#4", "E4","G#3", "C#4", "E4","G#3", "C#4", "E4","G#3", "C#4", "E4","G#3", "C#4", "E4","G#3", "C#4", "E4","G#3", "C#4", "E4","G#3", "C#4", "E4","A3", "C#4", "E4","A3", "C#4", "E4","A3", "D4", "F#4","A3", "D4", "F#4","G#3", "B#3", "F#4", "G#3", "C#4", "E4", "G#3", "C#4", "D#4", "F#3", "B#3", "D#4","E3", "G#3", "C#4",c("C#4", "E4")),list(t, t, t, t, t, t,t, t, t, t, t, t,t, t, t, t, t, t,t, t, t, t, t, t,t, t, t, t, t, t,t, t, t, t, t, t,t, t, t, t, t, t,t, t, t, t, t, t, t, t, t,3), name = "a")

z2 <- Line(list(c("C#2", "C#3"), c("B1", "B2"),c("A1", "A2"), c("F#1", "F#2"),c("G#1", "G#2"),c("G#1", "G#2"),c("C#2", "G#2", "C#3")), list(4, 4, 2, 2, 2, 2, 4), to = "a", as = "staff", name = "b")

m1 <- Music() + Tempo(48)+ Meter(4, 4) + z1 + z2 + Key(4) 

m1 <- m1 + Clef("G", to = "a") + Clef("F", to = "b") 

show(m1, c("score", "audio"))

# end

免費課程~110年「數位轉型與營運智慧」教師研習

壹、課程概述

隨科技進步帶來第四波工業革命，在IOT物聯網、AI人工智慧、進階資料分析及混合實境等科技創新，已為人類工作、生活與娛樂帶來無限可能。因應新數位科技解構與發展下，企業未來朝科技應用變身，才得以隨產業生態變化而持續成長。加上新科技推動全球產業再分工，無論任何產業，未來的銷售與製造均直接與消費市場連動，企業組織與營運模式朝數位發展已為趨勢。因此本活動期透過產業數位轉型推動專家與模範企業進行產業經驗分享，同時結合經濟部iPAS營運智慧分析師認證教學，讓技專校院教師與企業直接交流，獲取產業新知，進而回饋校園教育，促進產學合作之機會。

貳、辦理單位

一、主辦單位：教育部促進產學連結合作育才平臺-國立臺北科技大學執行辦公室

二、協辦單位：財團法人工業技術研究院、中央大學管理學院

三、合作公協會/企業：臺灣資料科學與商業應用協會、洽吧智能股份有限公司、資誠聯合會計師事務所、台灣電商發展協會、永聯物流開發股份有限公司

<報名已截止>

參、課程說明

一、課程日期：7/14(三)、7/15(四)、7/16(五)

二、課程時間：9:20-17:00、9:20-17:00、8:50-17:00

三、課程地點：Google Meet 線上會議 (https://meet.google.com/mvv-mppj-qmp)

四、參加資格：在職之技專校院教師、技術型高中老師

五、結訓要求：本次研習課程為期3 天，凡全程參與一天(含)以上之研習課程，於課程結束後，核發研習時數證明。

六、報名日期：即日起至7/7止

註：凡報名完成便為報名成功，如無法錄取會提前以E-mail通知。

主辦單位保留報名名額資格審核權，以及修改、變更活動內容及額滿截止報名之權利。

肆、課程大綱(※本研習課程內容、時間及地點，依實際狀況彈性調整)

第一天　7/14(三)

課程地點：Google Meet 線上會議 (https://meet.google.com/mvv-mppj-qmp)

課程內容：

1-大專院校該如何培育營運智慧分析人才？(講師:中央大學管理學院 許秉瑜 院長)

2-iPAS初級營運智慧分析師能力課程-營運智慧基本知識 (講師:臺灣資料科學與商業應用協會 李明昌 常務理事)

3-iPAS初級營運智慧分析師能力課程-基礎資料分析

第二天　7/15(四)

課程地點：Google Meet 線上會議 (https://meet.google.com/mvv-mppj-qmp)

課程內容：

1-iPAS營運智慧分析師介紹 (講師:工研院產業學院能力鑑定小組 陳善嶸 專員)

2-iPAS初級營運智慧分析師能力課程-經營管理基本知識 (講師:臺灣資料科學與商業應用協會 李明昌 常務理事)

3-iPAS初級營運智慧分析師能力課程-數位化企業資訊工具基本知識

第三天　7/16(五)

課程地點：Google Meet 線上會議 (https://meet.google.com/mvv-mppj-qmp)

課程內容：

1-人工智慧與數位轉型 (講師:洽吧智能股份有限公司 趙式隆 董事長)

2-資誠聯合會計師事務所的數位轉型-新時代‧新技能 (講師:資誠聯合會計師事務所 曾博昇 會計師)

3-如何運用雲端運算加速企業數位轉型 (講師:台灣電商發展協會 曾昭維 理事長) 

4-如何讓物流業更簡單、聰明 、永續 (講師:永聯物流開發股份有限公司 供應鏈管理處 穰穎堅 資深副總)

五、聯繫窗口

國立臺北科技大學產學合作處產學推動組－教育部產學連結執行辦公室 黃雅慧專員

Tel：(02)2771-2171分機6020

E-mail：hyh@ntut.edu.tw

#iPAS

#營運智慧分析師

#營運智慧

#數位轉型

#Operations Intelligence

#OI

#Digital Transformation

#DX

R與實驗設計應用 (Design Of Experiments with R)

主題

R與實驗設計應用

關鍵字

#R

#DOE

#Design Of Experiments

#RSM

#readxl

#dplyr

#rsm

大綱

1. 實驗設計簡介
2. R, RStudio簡介
3. 一因子實驗-變異數分析
4. 隨機化完全區集設計
5. 因子設計
6. 2^3 因子設計
7. 反應曲面法

執行成果

• 第1章 實驗設計簡介, 第2章 R, RStudio簡介-11分27秒

https://youtu.be/lJupX5c3hi4

• 第3章.一因子實驗-變異數分析-23分10秒

https://youtu.be/9omw9Aet0a8

• 4.隨機化完全區集設計-10分53秒

https://youtu.be/6kA_kiPl6w4

• 5.因子設計-14分22秒

https://youtu.be/izT6yq3NBlI

• 6.2^3因子設計-10分37秒

https://youtu.be/U11f7VL5KbM

• 7.反應曲面法-10分12秒

https://youtu.be/bUCbQxdXe7M

程式碼,講義下載

Github: https://github.com/rwepa/DataDemo/blob/master/R_Design_Of_Experiments.R

PDF: https://github.com/rwepa/DataDemo/blob/master/R_Design_Of_Experiments.pdf

參考資料

1. R基礎篇 - 國立台北商業技術學院上課教材(238頁,2011.7.4), http://rwepa.blogspot.com/2013/01/r-201174.html
2. R入門資料分析與視覺化應用(中文,字幕), https://courses.mastertalks.tw/courses/R-teacher
3. R商業預測與應用(中文,字幕), https://courses.mastertalks.tw/courses/R-2-teacher
4. 圖例中顯示點線混合符號legend, http://rwepa.blogspot.com/2017/08/legend.html
5. 5.Douglas C. Montgomery, Design and Analysis of Experiments, 10th Edition, Wiley, 2020. https://www.amazon.com/Design-Analysis-Experiments-Douglas-Montgomery-ebook/dp/B07ZN7SRT5

# end

Arduino + Python tkinter 套件控制LED應用

主題

Arduino + Python tkinter 套件控制LED應用

大綱

1. Python 簡介
2. 視窗設計 - tkinter 套件
3. Arduino 簡介
4. Python + Arduino - LED 實作

需求

1.  Arduino 模組
2. Python IDE 軟體, 本案採用  Spyder
3. LED 1個
4. 免費軟體 Arduino IDE

執行成果

Youtube https://youtu.be/LjgFIm1S7tw

程式碼,講義下載

Github: https://github.com/rwepa/arduino_python_tkinter

PDF: https://github.com/rwepa/arduino_python_tkinter/blob/main/python_arduino-2021.05.28.pdf

參考資料

1. Python 程式設計-李明昌 免費電子書 - PDF 分享, 220頁, http://rwepa.blogspot.com/2020/02/pythonprogramminglee.html
2. Python與Arduino, http://andrewpythonarduino.blogspot.com/2018/04/python13-led.html
3. NARESH KUMAR T & THILEEPAN S, Arduino + Python Programming for Robots, 2020.
4. tkinter - Python interface to Tcl/Tk, https://docs.python.org/3/library/tkinter.html
5. Python GUI examples (Tkinter Tutorial), https://likegeeks.com/python-gui-examples-tkinter-tutorial/

# end

跟著那道光 - Arduino Car

主題

本專案說明使用 Arduino car 加上光敏電阻應用。

需求

1. Arduino 模組

2. Arduino Car 模組

3. 光敏電阻 2個

4. 免費軟體 Arduino IDE

執行成果

https://youtu.be/SXyq6urlTQo

程式碼,講義下載

https://github.com/rwepa/arduino_car

R shiny - reactable 互動表格視覺化

主題

R在使用 shiny 套件建立網頁應用程式時，如果希望表格可以產生互動視覺化效果，此時可以使用 reactable 套件[1]。詳細使用方法參考 reactable 官網[2]之說明。本篇文章範例3使用sparkline套件以繪製表格折線圖[3]。

使用觀念

1. reactable 套件使用五動式表格的函數為 reactable。

2. 如果希望配合 shiny 套件使用，則使用以下二種情形：

1. ui.R 使用 reactableOutput 函數
2. server.R 使用 renderReactable 函數

3. 表格功能：

• 定義欄名稱 Column definitions
• 排序 Sorting
• 排序與自定NA值 Sorting with NA
• 篩選 Filtering
• 搜尋 Search
• 分頁大小 Pagination
• 群組與匯總 Grouping and Aggregation
• 欄格式(貨幣,百分比,日期格式等) Column formatting
• 表格加上繪圖(直方圖,盒鬚圖,線圖等) Columns plot
• 佈景主題 Theme

關鍵字

#shiny
#reactable
#reactableOutput
#renderReactable 

R程式碼下載

https://github.com/rwepa/DataDemo/blob/master/reactable.R

R程式碼

# title    : reactable package

# date     : 2021.04.27

# author   : Ming-Chang Lee

# email    : alan9956@gmail.com

# RWEPA    : http://rwepa.blogspot.tw/

# Encoding : UTF-8

# 範例1 - 表格應用

library(reactable)

reactable(CO2)

# 範例2 - shiny 加上表格應用

library(shiny)

library(reactable)

ui <- fluidPage(

  titlePanel("reactable package example"),

  reactableOutput("table")

)

server <- function(input, output, session) {

  output$table <- renderReactable({

    reactable(CO2)

  })

}

shinyApp(ui, server)

# 範例3 - 表格加上折線圖 sparkline

library(dplyr)     #進行 %>% 操作

library(sparkline) #繪製表格折線圖

library(reactable)

mydata <- iris %>%

  group_by(Species) %>%

  summarise(width = list(Petal.Width)) %>%

  mutate(boxplot = NA, sparkline = NA)

reactable(mydata, columns = list(

  width = colDef(cell = function(values) {

    sparkline(values, type = "bar", chartRangeMin = 0, chartRangeMax = max(iris$Petal.Width))

  }),

  boxplot = colDef(cell = function(value, index) {

    sparkline(mydata$width[[index]], type = "box")

  }),

  sparkline = colDef(cell = function(value, index) {

    sparkline(mydata$width[[index]])

  })

))

# end

參考資料

1. R CRAN - reactable套件
   https://cran.r-project.org/web/packages/reactable/index.html
2. reactable官網
   https://glin.github.io/reactable
3. sparkline套件 
   https://cran.r-project.org/web/packages/sparkline/index.html