2022年1月29日 星期六

R自訂套件安裝目錄 (customized package directory)

主題

R 在安裝目錄時, 如果有客製化需求, 可以設定套件安裝目錄, 本篇說明R的安裝目錄, 套件訊息與客製化安裝套件目錄之方法. 本方法使用R函數設定, 可用於 Windows, macOS, ubuntu等作業系統, 以下執行結果可能因使用者名稱與安裝路徑不同而有所差異.

感謝 Ying-Zhe 提供此問題.

關鍵字

# R.home()

# find.package('套件名稱')

# packageVersion('套件名稱')

# .libPaths()

# Rprofile.site

1. 查詢R的安裝目錄

R.home()

# Windows 10

# "C:/PROGRA~1/R/R-41~1.2"


# macOS Catalina

[1] "/Library/Frameworks/R.framework/Resources"


# ununtu 20.04.3

[1] "/usr/lib/R"


2. 套件安裝目錄

find.package('ggplot2')

# Windows 10

[1] "C:/Users/user/Documents/R/win-library/4.1/ggplot2"


# macOS Catalina

[1] "/Library/Frameworks/R.framework/Versions/4.1/Resources/library/ggplot2"


# ununtu 20.04.3

[1] "/home/rwepa/R/x86_64-pc-linux-gnu-library/4.1/ggplot2"

3. 套件版本

packageVersion('ggplot2')

[1] ‘3.3.5’

4. 套件訊息

packageDescription('ggplot2')

Package: ggplot2

Version: 3.3.5

Title: Create Elegant Data Visualisations Using the Grammar of Graphics

....

5. 自訂套件安裝目錄

方法1-每次啟動R或RStudio皆須設定

# 步驟1 顯示套件下載與安裝目錄

.libPaths()

# [1] "C:/Users/user/Documents/R/win-library/4.1"

# [2] "C:/Program Files/R/R-4.1.2/library"

# 步驟2 建立自訂套件安裝目錄

# 考慮在使用者目錄中,以檔案總管建立 mypackages 目錄,本步驟依實際需求修改.

# 自訂套件目錄之完整路徑 C:/Users/user/mypackages

# 步驟3 加入自訂套件目錄於系統套件搜尋路徑之中

.libPaths('C:/Users/user/mypackages')

# 步驟4 顯示目前套件下載與安裝目錄

.libPaths()

# 結果顯示已經加入完成

# [1] "C:/Users/user/mypackages"          

# [2] "C:/Program Files/R/R-4.1.2/library"

# 步驟5 安裝套件

install.packages("e1071")

# 步驟6 測試套件之載入, 結果顯示正常載入套件,準備收工...

library(e1071)

# 結果正常載入,無錯誤訊息

# 步驟7 重新啟動 R或RStudio 測試套件之載入,發生錯誤!!!

library(e1071)

# Error in library(e1071) : there is no package called ‘e1071’

# 步驟8 重新加入系統套件搜尋路徑之中(因為每次啟動皆須設定)

.libPaths('C:/Users/user/mypackages')

.libPaths()

[1] "C:/Users/user/mypackages"          

[2] "C:/Program Files/R/R-4.1.2/library"

# 步驟9 測試套件之載入,結果顯示正常載入套件,正式完成,還有方法2 ...

library(e1071)

# 結果正常載入,無錯誤訊息

方法2-設定於R組態檔,每次啟動R/RStudio時無需設定

考慮 Windows 10 作業系統, R組態檔 Rprofile.site之位置如下

# C:\Program Files\R\R-4.1.2\etc\Rprofile.site

# 考量已經於以下目錄(C:\Users\user\Documents\R\win-library\4.1)安裝套件

# 使用 Notepad++ 等文字編輯器軟體,於檔案最底下加入以下1行程式,儲存檔案.

.libPaths(c('C:/Users/user/mypackages', 'C:/Users/user/Documents/R/win-library/4.1'))

# 下圖為 Notepad++ 免費軟體編輯 Rprofile.site 畫面


# 重新啟動R或RStudio,套件安裝會自動安裝於 C:/Users/user/mypackages 目錄.

# end

張貼者： 於 沒有留言:
標籤： , , ,
位置：Taipei 台灣台北市

2021年10月28日 星期四

R shiny - 品質管制圖(quality control chart)應用

主題

中華民國品質學會第57屆年會暨2021國際品質管理研討會

論壇：開源AI品質工具－統計品管與實務應用

日期：2021年11月6日(六)

大綱

  1. Python 實作DoE常用的分析方法
  2. Shiny 套件簡介
  3. 互動式統計品管網頁實作
  4. Q & A

教材 PDF:

https://github.com/rwepa/csq_spc

本專案使用免費R語言與免費 shiny 套件, 實作品質管制圖(quality control chart)應用.











下載資料

1. spc_wafer_with_header.csv (with header):

https://github.com/rwepa/shiny_spc/blob/main/data/spc_wafer_with_header.csv

2. spc_pistonrings_without_header.csv (without header)

https://github.com/rwepa/shiny_spc/blob/main/data/spc_pistonrings_without_header.csv

線上示範

https://rwepa.shinyapps.io/shiny_spc/

套件

shiny : Web Application Framework for R (網頁服務框架)

shinythemes: Themes for Shiny (佈景主題)

DT : DataTables JavaScript library (表格呈現)

qcc : Quality Control Charts (品質管制圖的數據計算)

plotly: Create Interactive Web Graphics via 'plotly.js' (互動式圖表)

R程式碼下載

https://github.com/rwepa/shiny_spc

# end

張貼者： 於 沒有留言:
標籤： , , , ,
位置：Taipei 台灣台北市

2021年7月17日 星期六

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

張貼者： 於 沒有留言:
標籤： , , , , , ,

2021年7月3日 星期六

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

張貼者： 於 2 則留言:
標籤： , ,

2021年6月21日 星期一

免費課程~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

張貼者： 於 沒有留言:
標籤： , ,

2021年6月6日 星期日

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

張貼者： 於 沒有留言:
標籤： , , , , ,

2021年5月29日 星期六

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

執行成果

Arduino + Python tkinter 套件控制LED應用

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
張貼者： 於 沒有留言:
標籤： , , ,
訂閱： 文章 (Atom)