# 周次：w10
# 任務：認識資料結構
# 姓名：高千琇
# 日期：2021年04月07日# 請先下載google問卷結果
# 讓Rstudio cloud讀xlsx檔
# install.packages("readxl")
# library(readxl)
# data <- read_excel("psy.xlsx")
# View(data)
# 另一種做法
# install.packages("readxl")
# install.packages("xlsx") #這個cloud也適用
library(xlsx)
data <- read.xlsx("psy.xlsx", 1, encoding = "UTF-8")
# 檢視資料檔案內容
#View(data)
str(data)## 'data.frame': 18 obs. of 19 variables:
## $ 時間戳記 : POSIXct, format: "2021-02-27 10:14:22" "2021-02-27 10:30:25" ...
## $ 電子郵件地址 : chr "0803brian@gmail.com" "bbirbbira@gmail.com" "p7786071@gmail.com" "kd910518@gmail.com" ...
## $ 姓名 : chr "1130730408莊詠翔" "1130730404 陳芎宇" "1130730406 楊世宏" "1130730416 黄子騏" ...
## $ 請問你的出生年月日 : Date, format: "2002-03-08" "2001-12-04" ...
## $ 請問你的生理性別 : chr "男" "男" "男" "男" ...
## $ 請問你的身高.公分. : num 180 173 170 177 169 178 172 167 188 158 ...
## $ 請問你的體重.公斤. : num 60 62 69 65 64 78 72 63 100 53 ...
## $ 請問你大約每週有幾天會使用IG..單位..天數. : num 6 4 1 7 7 7 6 7 7 7 ...
## $ 在你有玩IG的那一天.你一整天大概玩多久..以小時計算.請填數字.例如30分鐘.請填0.5小時.若3小時.則填3.: num 0.5 0.25 0.3 0.5 0.2 2 1 1 0.5 0.5 ...
## $ 當在瀏覽IG時.你多常關注那些比你過得好的人. : chr "經常" "有時" "有時" "有時" ...
## $ 當在瀏覽IG時.你多常關注那些比你過得差的人. : chr "有時" "完全沒有" "完全沒有" "有時" ...
## $ 整體而言.你對於自己滿不滿意. : chr "普通" "普通" "普通" "滿意" ...
## $ 整體而言.你對於你的社交生活滿不滿意. : chr "普通" "不滿意" "滿意" "滿意" ...
## $ 整體而言.你對自己目前的健康狀況滿不滿意. : chr "非常不滿意" "普通" "滿意" "滿意" ...
## $ 整體而言.你對於你的生活滿不滿意. : chr "普通" "不滿意" "滿意" "滿意" ...
## $ 請問你有心事的時候.經常找哪位同學聊聊 : chr "1130730401張藝馨" "1130730404 陳芎宇" "1130730404 陳芎宇" "1130730414 蔡承軒" ...
## $ 請問你缺錢的時候.經常找哪位同學借錢 : chr "1130730406 楊世宏" "1130730404 陳芎宇" "1130730401張藝馨" "1130730402洪銘材" ...
## $ 請用20個字以上描述你認為軍校生應具備的特質與能力 : chr "懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己" "能夠服從上級命令，卻又不失自己的想法，不會盲目的服從" "我認為軍校生要勤奮自主，並且有靈活的思考方式。" "應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯" ...
## $ 請用20個字以上描述你的理想情人的標準與特質 : chr "長頭髮、可愛型的、稍微粘人但也不要太黏，160-170之間" "能夠了解我的，能夠體諒我的個性的，能夠聽我和陪我說話的" "能夠互相理解、尊重彼此的喜好、協助對方完成目標、視彼此為重要他人。" "我也沒什麼好描述的啦，條件又沒多好哪有資格要求東要求西，感覺對了就好反正也把不到" ...# 檢視欄位名稱
names(data)## [1] "時間戳記"
## [2] "電子郵件地址"
## [3] "姓名"
## [4] "請問你的出生年月日"
## [5] "請問你的生理性別"
## [6] "請問你的身高.公分."
## [7] "請問你的體重.公斤."
## [8] "請問你大約每週有幾天會使用IG..單位..天數."
## [9] "在你有玩IG的那一天.你一整天大概玩多久..以小時計算.請填數字.例如30分鐘.請填0.5小時.若3小時.則填3."
## [10] "當在瀏覽IG時.你多常關注那些比你過得好的人."
## [11] "當在瀏覽IG時.你多常關注那些比你過得差的人."
## [12] "整體而言.你對於自己滿不滿意."
## [13] "整體而言.你對於你的社交生活滿不滿意."
## [14] "整體而言.你對自己目前的健康狀況滿不滿意."
## [15] "整體而言.你對於你的生活滿不滿意."
## [16] "請問你有心事的時候.經常找哪位同學聊聊"
## [17] "請問你缺錢的時候.經常找哪位同學借錢"
## [18] "請用20個字以上描述你認為軍校生應具備的特質與能力"
## [19] "請用20個字以上描述你的理想情人的標準與特質"# 用英文重新命名欄位名稱
names(data)[1:19] <- c("time", "email",
"name","birth",
"gender","height",
"weight","useig","usetime",
"up_com","down_com",
"sat_self","sat_social",
"sat_health","sat_life",
"mate_talk","mate_money",
"cadet","lover")
names(data)## [1] "time" "email" "name" "birth" "gender"
## [6] "height" "weight" "useig" "usetime" "up_com"
## [11] "down_com" "sat_self" "sat_social" "sat_health" "sat_life"
## [16] "mate_talk" "mate_money" "cadet" "lover"### 題組一 因素向量
# 1. 將變項自我滿意程度改成因素向量，且滿意程度有排序
# 先檢視變項自我滿意程度
# 1. 將變項性別改成因素向量，且依男女排序
# 先檢視變項
data$gender## [1] "男" "男" "男" "男" "男" "男" "男" "男" "男" "女" "男" "男" "男" "女" "男"
## [16] "男" "女" "男"class(data$gender)## [1] "character"# 用factor或as.factor函數進行轉換
data$gender## [1] "男" "男" "男" "男" "男" "男" "男" "男" "男" "女" "男" "男" "男" "女" "男"
## [16] "男" "女" "男"class(data$gender)## [1] "character"# 用factor或as.factor函數進行轉換
data$gender<- as.factor(data$gender)
data$gender <- factor(data$gender,
ordered = TRUE,
levels = c("男","女"))
data$gender## [1] 男 男 男 男 男 男 男 男 男 女 男 男 男 女 男 男 女 男
## Levels: 男 < 女# 用factor或as.factor函數進行轉換
### 題組二 矩陣、陣列
# 建立一個名為my_mat的矩陣，含姓名、談心對象、借錢對象
my_mat <- as.matrix(data[1:18,c(3,16:17)]) # using as.matrix.data.frame(.) method
my_mat## name mate_talk mate_money
## 1 "1130730408莊詠翔" "1130730401張藝馨" "1130730406 楊世宏"
## 2 "1130730404 陳芎宇" "1130730404 陳芎宇" "1130730404 陳芎宇"
## 3 "1130730406 楊世宏" "1130730404 陳芎宇" "1130730401張藝馨"
## 4 "1130730416 黄子騏" "1130730414 蔡承軒" "1130730402洪銘材"
## 5 "1130730417廖呈祐" "1130730401張藝馨" "1130730406 楊世宏"
## 6 "1130730415羅勝鴻" "1130730418 林秉玄" "1130730418 林秉玄"
## 7 "1130730401張藝馨" "1130730401張藝馨" "1130730406 楊世宏"
## 8 "1130730413方正順" "1130730406 楊世宏" "1130730406 楊世宏"
## 9 "1130730414 蔡承軒" "1130730416 黄子騏" "1130730415羅勝鴻"
## 10 "1130730421 鄧淑芸" "1130730422 陳昕辰" "1130730422 陳昕辰"
## 11 "1130730407鄭富元" "1130730415羅勝鴻" "1130730417廖呈祐"
## 12 "1130730405 陳嘉成" "1130730406 楊世宏" "1130730406 楊世宏"
## 13 "1130730412洪浩智" "1130730406 楊世宏" "1130730406 楊世宏"
## 14 "1130730422 陳昕辰" "1130730422 陳昕辰" "1130730422 陳昕辰"
## 15 "1130730418 林秉玄" "1130730415羅勝鴻" "1130730416 黄子騏"
## 16 "1130730402洪銘材" "1130730411 楊享富" "1130730401張藝馨"
## 17 "1130730420 高千琇" "1130730407鄭富元" "1130730407鄭富元"
## 18 "1130730411 楊享富" "1130730402洪銘材" "1130730402洪銘材"# 請問第5位同學的談心對象、借錢對象是誰?
my_mat[5, ]## name mate_talk mate_money
## "1130730417廖呈祐" "1130730401張藝馨" "1130730406 楊世宏"# 請問所有同學的借錢對象是誰?
my_mat[, 3]## 1 2 3 4
## "1130730406 楊世宏" "1130730404 陳芎宇" "1130730401張藝馨" "1130730402洪銘材"
## 5 6 7 8
## "1130730406 楊世宏" "1130730418 林秉玄" "1130730406 楊世宏" "1130730406 楊世宏"
## 9 10 11 12
## "1130730415羅勝鴻" "1130730422 陳昕辰" "1130730417廖呈祐" "1130730406 楊世宏"
## 13 14 15 16
## "1130730406 楊世宏" "1130730422 陳昕辰" "1130730416 黄子騏" "1130730401張藝馨"
## 17 18
## "1130730407鄭富元" "1130730402洪銘材"### 題組三 資料框
# 檢視問卷(已是資料框形式)的資料內容
#view(data)
# 檢視資料框的資料結構
str(data)## 'data.frame': 18 obs. of 19 variables:
## $ time : POSIXct, format: "2021-02-27 10:14:22" "2021-02-27 10:30:25" ...
## $ email : chr "0803brian@gmail.com" "bbirbbira@gmail.com" "p7786071@gmail.com" "kd910518@gmail.com" ...
## $ name : chr "1130730408莊詠翔" "1130730404 陳芎宇" "1130730406 楊世宏" "1130730416 黄子騏" ...
## $ birth : Date, format: "2002-03-08" "2001-12-04" ...
## $ gender : Ord.factor w/ 2 levels "男"<"女": 1 1 1 1 1 1 1 1 1 2 ...
## $ height : num 180 173 170 177 169 178 172 167 188 158 ...
## $ weight : num 60 62 69 65 64 78 72 63 100 53 ...
## $ useig : num 6 4 1 7 7 7 6 7 7 7 ...
## $ usetime : num 0.5 0.25 0.3 0.5 0.2 2 1 1 0.5 0.5 ...
## $ up_com : chr "經常" "有時" "有時" "有時" ...
## $ down_com : chr "有時" "完全沒有" "完全沒有" "有時" ...
## $ sat_self : chr "普通" "普通" "普通" "滿意" ...
## $ sat_social: chr "普通" "不滿意" "滿意" "滿意" ...
## $ sat_health: chr "非常不滿意" "普通" "滿意" "滿意" ...
## $ sat_life : chr "普通" "不滿意" "滿意" "滿意" ...
## $ mate_talk : chr "1130730401張藝馨" "1130730404 陳芎宇" "1130730404 陳芎宇" "1130730414 蔡承軒" ...
## $ mate_money: chr "1130730406 楊世宏" "1130730404 陳芎宇" "1130730401張藝馨" "1130730402洪銘材" ...
## $ cadet : chr "懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己" "能夠服從上級命令，卻又不失自己的想法，不會盲目的服從" "我認為軍校生要勤奮自主，並且有靈活的思考方式。" "應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯" ...
## $ lover : chr "長頭髮、可愛型的、稍微粘人但也不要太黏，160-170之間" "能夠了解我的，能夠體諒我的個性的，能夠聽我和陪我說話的" "能夠互相理解、尊重彼此的喜好、協助對方完成目標、視彼此為重要他人。" "我也沒什麼好描述的啦，條件又沒多好哪有資格要求東要求西，感覺對了就好反正也把不到" ...# 資料框的欄位名稱為何
names(data)## [1] "time" "email" "name" "birth" "gender"
## [6] "height" "weight" "useig" "usetime" "up_com"
## [11] "down_com" "sat_self" "sat_social" "sat_health" "sat_life"
## [16] "mate_talk" "mate_money" "cadet" "lover"# 資料的觀察值數量
nrow(data)## [1] 18# 資料預覽
head(data)## time email name birth
## 1 2021-02-27 10:14:22 0803brian@gmail.com 1130730408莊詠翔 2002-03-08
## 2 2021-02-27 10:30:25 bbirbbira@gmail.com 1130730404 陳芎宇 2001-12-04
## 3 2021-02-27 10:31:47 p7786071@gmail.com 1130730406 楊世宏 2001-10-15
## 4 2021-02-27 10:50:07 kd910518@gmail.com 1130730416 黄子騏 2002-05-18
## 5 2021-02-27 10:55:39 lcy200195@gmail.com 1130730417廖呈祐 2001-09-05
## 6 2021-02-27 10:56:57 brianlo900421@gmail.com 1130730415羅勝鴻 2001-04-21
## gender height weight useig usetime up_com down_com sat_self sat_social
## 1 男 180 60 6 0.50 經常 有時 普通 普通
## 2 男 173 62 4 0.25 有時 完全沒有 普通 不滿意
## 3 男 170 69 1 0.30 有時 完全沒有 普通 滿意
## 4 男 177 65 7 0.50 有時 有時 滿意 滿意
## 5 男 169 64 7 0.20 完全沒有 完全沒有 滿意 滿意
## 6 男 178 78 7 2.00 有時 有時 不滿意 普通
## sat_health sat_life mate_talk mate_money
## 1 非常不滿意 普通 1130730401張藝馨 1130730406 楊世宏
## 2 普通 不滿意 1130730404 陳芎宇 1130730404 陳芎宇
## 3 滿意 滿意 1130730404 陳芎宇 1130730401張藝馨
## 4 滿意 滿意 1130730414 蔡承軒 1130730402洪銘材
## 5 滿意 滿意 1130730401張藝馨 1130730406 楊世宏
## 6 滿意 滿意 1130730418 林秉玄 1130730418 林秉玄
## cadet
## 1 懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己
## 2 能夠服從上級命令，卻又不失自己的想法，不會盲目的服從
## 3 我認為軍校生要勤奮自主，並且有靈活的思考方式。
## 4 應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯
## 5 重視團隊合作，有持續學習的企圖心，對自己的生活負責，且行事認真不貪圖方便
## 6 我認為軍校生應該具有處理事情的應變能力以及抗壓性
## lover
## 1 長頭髮、可愛型的、稍微粘人但也不要太黏，160-170之間
## 2 能夠了解我的，能夠體諒我的個性的，能夠聽我和陪我說話的
## 3 能夠互相理解、尊重彼此的喜好、協助對方完成目標、視彼此為重要他人。
## 4 我也沒什麼好描述的啦，條件又沒多好哪有資格要求東要求西，感覺對了就好反正也把不到
## 5 不過度挑食，生活不奢靡，單純善良，能夠對自己的生活負責，愛笑開朗
## 6 我的理想情人標準是身材勻稱 五官端正，特質是能夠彼此體諒tail(data)## time email name birth
## 13 2021-02-27 19:07:45 eric20010121@gmail.com 1130730412洪浩智 2002-01-21
## 14 2021-02-27 23:08:26 anne21230@gmail.com 1130730422 陳昕辰 2001-12-21
## 15 2021-03-03 08:05:26 benson081014@gmail.com 1130730418 林秉玄 2002-08-10
## 16 2021-03-03 08:57:14 tzuyumomo2@gmail.com 1130730402洪銘材 2002-08-17
## 17 2021-03-03 08:58:34 gqianxiu@gmail.com 1130730420 高千琇 2002-03-26
## 18 2021-03-03 08:58:34 fenab.06.12.06@gmail.com 1130730411 楊享富 2002-03-30
## gender height weight useig usetime up_com down_com sat_self sat_social
## 13 男 176 82 5 1.00 經常 有時 普通 普通
## 14 女 164 48 7 0.50 完全沒有 完全沒有 不滿意 不滿意
## 15 男 170 53 7 2.00 很少 很少 普通 普通
## 16 男 186 80 5 0.50 很少 很少 滿意 滿意
## 17 女 165 59 7 3.00 有時 很少 普通 滿意
## 18 男 176 72 5 0.35 有時 很少 滿意 滿意
## sat_health sat_life mate_talk mate_money
## 13 普通 普通 1130730406 楊世宏 1130730406 楊世宏
## 14 普通 滿意 1130730422 陳昕辰 1130730422 陳昕辰
## 15 滿意 普通 1130730415羅勝鴻 1130730416 黄子騏
## 16 普通 滿意 1130730411 楊享富 1130730401張藝馨
## 17 不滿意 不滿意 1130730407鄭富元 1130730407鄭富元
## 18 滿意 滿意 1130730402洪銘材 1130730402洪銘材
## cadet
## 13 領袖才能和統御能力是必備的，我認為還需要具備同理心，知道底下官兵的需求
## 14 愛國，體力好，忍耐，服從，沈著，機警，勇敢，不怕死，不怕難，積極，時間管理
## 15 誠實並將自己該做的事做好不用他人提醒不用他人擔心
## 16 霸氣外露 注重細節 做事情要有條理 不要亂搞學弟妹
## 17 能夠安排利用時間 獨立思考的能力 高抗壓性 負責任 對自我的肯定
## 18 獨立自主，上進心，社交能力，成績可，體能好，認真負責，獨立思考，獨立批判能力
## lover
## 13 希望她能一直愛著我，不要對我說謊，貼心能夠理解我的
## 14 有工作收入，年上，有錢，有共同興趣，講話很好笑
## 15 我的理想情人標準是溫柔體貼不會做不好的事不菸不酒
## 16 高於170 可愛 漂亮 不要太粘人 不要無理取鬧
## 17 有身高有顏值會開車會打球會煮飯會拍照會音樂 體貼溫柔浪漫幽默負責任情商高等等的男生
## 18 聊得來，看得舒服，個性和，自己喜歡，善良，喜歡小動物# 請將變數"軍校生應具備的特質"的內容印出來
data$cadet## [1] "懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己"
## [2] "能夠服從上級命令，卻又不失自己的想法，不會盲目的服從"
## [3] "我認為軍校生要勤奮自主，並且有靈活的思考方式。"
## [4] "應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯"
## [5] "重視團隊合作，有持續學習的企圖心，對自己的生活負責，且行事認真不貪圖方便"
## [6] "我認為軍校生應該具有處理事情的應變能力以及抗壓性"
## [7] "軍校我覺得要養成獨立思考的能力，並且觀察外界環境變化去做應對進退"
## [8] "忠誠僕實 用心致志 團結合作 不菸不嚼檳榔 不輕易飲酒 隨心所欲 不逾矩"
## [9] "外表嚴肅內心輕鬆 能收能放台面上跟台面下分的清楚可以讀懂氣氛"
## [10] "我認為軍校生應具備誠實，勇於承認錯誤並改進且對於自己不擅長的事務勇於學習"
## [11] "誠實榮譽守時守紀律會玩也懂得收心待人處事的態度和善捍衛國家堅守崗位"
## [12] "服從忍耐 刻苦耐勞 積極向學 勤奮向上 熱心助人"
## [13] "領袖才能和統御能力是必備的，我認為還需要具備同理心，知道底下官兵的需求"
## [14] "愛國，體力好，忍耐，服從，沈著，機警，勇敢，不怕死，不怕難，積極，時間管理"
## [15] "誠實並將自己該做的事做好不用他人提醒不用他人擔心"
## [16] "霸氣外露 注重細節 做事情要有條理 不要亂搞學弟妹"
## [17] "能夠安排利用時間 獨立思考的能力 高抗壓性 負責任 對自我的肯定 "
## [18] "獨立自主，上進心，社交能力，成績可，體能好，認真負責，獨立思考，獨立批判能力"# 另一種做法
data[,18]## [1] "懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己"
## [2] "能夠服從上級命令，卻又不失自己的想法，不會盲目的服從"
## [3] "我認為軍校生要勤奮自主，並且有靈活的思考方式。"
## [4] "應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯"
## [5] "重視團隊合作，有持續學習的企圖心，對自己的生活負責，且行事認真不貪圖方便"
## [6] "我認為軍校生應該具有處理事情的應變能力以及抗壓性"
## [7] "軍校我覺得要養成獨立思考的能力，並且觀察外界環境變化去做應對進退"
## [8] "忠誠僕實 用心致志 團結合作 不菸不嚼檳榔 不輕易飲酒 隨心所欲 不逾矩"
## [9] "外表嚴肅內心輕鬆 能收能放台面上跟台面下分的清楚可以讀懂氣氛"
## [10] "我認為軍校生應具備誠實，勇於承認錯誤並改進且對於自己不擅長的事務勇於學習"
## [11] "誠實榮譽守時守紀律會玩也懂得收心待人處事的態度和善捍衛國家堅守崗位"
## [12] "服從忍耐 刻苦耐勞 積極向學 勤奮向上 熱心助人"
## [13] "領袖才能和統御能力是必備的，我認為還需要具備同理心，知道底下官兵的需求"
## [14] "愛國，體力好，忍耐，服從，沈著，機警，勇敢，不怕死，不怕難，積極，時間管理"
## [15] "誠實並將自己該做的事做好不用他人提醒不用他人擔心"
## [16] "霸氣外露 注重細節 做事情要有條理 不要亂搞學弟妹"
## [17] "能夠安排利用時間 獨立思考的能力 高抗壓性 負責任 對自我的肯定 "
## [18] "獨立自主，上進心，社交能力，成績可，體能好，認真負責，獨立思考，獨立批判能力"# 請將第7至12位同學的"生日"印出來
data[7:12,4]## [1] "2002-07-18" "2001-11-11" "2002-03-30" "2002-04-23" "2001-10-06"
## [6] "2001-10-29"# 建立新資料框df，刪除原本資料第1、2欄位的變數
df <- data[, -c(1:2)]
names(df)## [1] "name" "birth" "gender" "height" "weight"
## [6] "useig" "usetime" "up_com" "down_com" "sat_self"
## [11] "sat_social" "sat_health" "sat_life" "mate_talk" "mate_money"
## [16] "cadet" "lover"# 另一種做法
df <- subset(data,select = -c(1:2))
names(df)## [1] "name" "birth" "gender" "height" "weight"
## [6] "useig" "usetime" "up_com" "down_com" "sat_self"
## [11] "sat_social" "sat_health" "sat_life" "mate_talk" "mate_money"
## [16] "cadet" "lover"# 題組四 清單
# 1. 我們已經建立好幾個物件my_mat, data, df
# 請收納進一個清單中叫做 `all`
all <- list(my_mat, data, df)
# 請將my_mat矩陣叫出
all[[1]]## name mate_talk mate_money
## 1 "1130730408莊詠翔" "1130730401張藝馨" "1130730406 楊世宏"
## 2 "1130730404 陳芎宇" "1130730404 陳芎宇" "1130730404 陳芎宇"
## 3 "1130730406 楊世宏" "1130730404 陳芎宇" "1130730401張藝馨"
## 4 "1130730416 黄子騏" "1130730414 蔡承軒" "1130730402洪銘材"
## 5 "1130730417廖呈祐" "1130730401張藝馨" "1130730406 楊世宏"
## 6 "1130730415羅勝鴻" "1130730418 林秉玄" "1130730418 林秉玄"
## 7 "1130730401張藝馨" "1130730401張藝馨" "1130730406 楊世宏"
## 8 "1130730413方正順" "1130730406 楊世宏" "1130730406 楊世宏"
## 9 "1130730414 蔡承軒" "1130730416 黄子騏" "1130730415羅勝鴻"
## 10 "1130730421 鄧淑芸" "1130730422 陳昕辰" "1130730422 陳昕辰"
## 11 "1130730407鄭富元" "1130730415羅勝鴻" "1130730417廖呈祐"
## 12 "1130730405 陳嘉成" "1130730406 楊世宏" "1130730406 楊世宏"
## 13 "1130730412洪浩智" "1130730406 楊世宏" "1130730406 楊世宏"
## 14 "1130730422 陳昕辰" "1130730422 陳昕辰" "1130730422 陳昕辰"
## 15 "1130730418 林秉玄" "1130730415羅勝鴻" "1130730416 黄子騏"
## 16 "1130730402洪銘材" "1130730411 楊享富" "1130730401張藝馨"
## 17 "1130730420 高千琇" "1130730407鄭富元" "1130730407鄭富元"
## 18 "1130730411 楊享富" "1130730402洪銘材" "1130730402洪銘材"# 將清單命名
all <- list(my_mat=my_mat, data=my_mat, df=df)
# 請將df資料框叫出
all$df## name birth gender height weight useig usetime up_com
## 1 1130730408莊詠翔 2002-03-08 男 180 60 6 0.50 經常
## 2 1130730404 陳芎宇 2001-12-04 男 173 62 4 0.25 有時
## 3 1130730406 楊世宏 2001-10-15 男 170 69 1 0.30 有時
## 4 1130730416 黄子騏 2002-05-18 男 177 65 7 0.50 有時
## 5 1130730417廖呈祐 2001-09-05 男 169 64 7 0.20 完全沒有
## 6 1130730415羅勝鴻 2001-04-21 男 178 78 7 2.00 有時
## 7 1130730401張藝馨 2002-07-18 男 172 72 6 1.00 有時
## 8 1130730413方正順 2001-11-11 男 167 63 7 1.00 完全沒有
## 9 1130730414 蔡承軒 2002-03-30 男 188 100 7 0.50 很少
## 10 1130730421 鄧淑芸 2002-04-23 女 158 53 7 0.50 完全沒有
## 11 1130730407鄭富元 2001-10-06 男 172 55 7 2.00 完全沒有
## 12 1130730405 陳嘉成 2001-10-29 男 170 69 7 1.00 完全沒有
## 13 1130730412洪浩智 2002-01-21 男 176 82 5 1.00 經常
## 14 1130730422 陳昕辰 2001-12-21 女 164 48 7 0.50 完全沒有
## 15 1130730418 林秉玄 2002-08-10 男 170 53 7 2.00 很少
## 16 1130730402洪銘材 2002-08-17 男 186 80 5 0.50 很少
## 17 1130730420 高千琇 2002-03-26 女 165 59 7 3.00 有時
## 18 1130730411 楊享富 2002-03-30 男 176 72 5 0.35 有時
## down_com sat_self sat_social sat_health sat_life mate_talk
## 1 有時 普通 普通 非常不滿意 普通 1130730401張藝馨
## 2 完全沒有 普通 不滿意 普通 不滿意 1130730404 陳芎宇
## 3 完全沒有 普通 滿意 滿意 滿意 1130730404 陳芎宇
## 4 有時 滿意 滿意 滿意 滿意 1130730414 蔡承軒
## 5 完全沒有 滿意 滿意 滿意 滿意 1130730401張藝馨
## 6 有時 不滿意 普通 滿意 滿意 1130730418 林秉玄
## 7 經常 非常滿意 非常滿意 普通 非常滿意 1130730401張藝馨
## 8 完全沒有 滿意 不滿意 普通 滿意 1130730406 楊世宏
## 9 很少 普通 普通 不滿意 不滿意 1130730416 黄子騏
## 10 完全沒有 普通 普通 普通 普通 1130730422 陳昕辰
## 11 完全沒有 普通 滿意 滿意 普通 1130730415羅勝鴻
## 12 完全沒有 普通 普通 普通 滿意 1130730406 楊世宏
## 13 有時 普通 普通 普通 普通 1130730406 楊世宏
## 14 完全沒有 不滿意 不滿意 普通 滿意 1130730422 陳昕辰
## 15 很少 普通 普通 滿意 普通 1130730415羅勝鴻
## 16 很少 滿意 滿意 普通 滿意 1130730411 楊享富
## 17 很少 普通 滿意 不滿意 不滿意 1130730407鄭富元
## 18 很少 滿意 滿意 滿意 滿意 1130730402洪銘材
## mate_money
## 1 1130730406 楊世宏
## 2 1130730404 陳芎宇
## 3 1130730401張藝馨
## 4 1130730402洪銘材
## 5 1130730406 楊世宏
## 6 1130730418 林秉玄
## 7 1130730406 楊世宏
## 8 1130730406 楊世宏
## 9 1130730415羅勝鴻
## 10 1130730422 陳昕辰
## 11 1130730417廖呈祐
## 12 1130730406 楊世宏
## 13 1130730406 楊世宏
## 14 1130730422 陳昕辰
## 15 1130730416 黄子騏
## 16 1130730401張藝馨
## 17 1130730407鄭富元
## 18 1130730402洪銘材
## cadet
## 1 懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己
## 2 能夠服從上級命令，卻又不失自己的想法，不會盲目的服從
## 3 我認為軍校生要勤奮自主，並且有靈活的思考方式。
## 4 應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯
## 5 重視團隊合作，有持續學習的企圖心，對自己的生活負責，且行事認真不貪圖方便
## 6 我認為軍校生應該具有處理事情的應變能力以及抗壓性
## 7 軍校我覺得要養成獨立思考的能力，並且觀察外界環境變化去做應對進退
## 8 忠誠僕實 用心致志 團結合作 不菸不嚼檳榔 不輕易飲酒 隨心所欲 不逾矩
## 9 外表嚴肅內心輕鬆 能收能放台面上跟台面下分的清楚可以讀懂氣氛
## 10 我認為軍校生應具備誠實，勇於承認錯誤並改進且對於自己不擅長的事務勇於學習
## 11 誠實榮譽守時守紀律會玩也懂得收心待人處事的態度和善捍衛國家堅守崗位
## 12 服從忍耐 刻苦耐勞 積極向學 勤奮向上 熱心助人
## 13 領袖才能和統御能力是必備的，我認為還需要具備同理心，知道底下官兵的需求
## 14 愛國，體力好，忍耐，服從，沈著，機警，勇敢，不怕死，不怕難，積極，時間管理
## 15 誠實並將自己該做的事做好不用他人提醒不用他人擔心
## 16 霸氣外露 注重細節 做事情要有條理 不要亂搞學弟妹
## 17 能夠安排利用時間 獨立思考的能力 高抗壓性 負責任 對自我的肯定
## 18 獨立自主，上進心，社交能力，成績可，體能好，認真負責，獨立思考，獨立批判能力
## lover
## 1 長頭髮、可愛型的、稍微粘人但也不要太黏，160-170之間
## 2 能夠了解我的，能夠體諒我的個性的，能夠聽我和陪我說話的
## 3 能夠互相理解、尊重彼此的喜好、協助對方完成目標、視彼此為重要他人。
## 4 我也沒什麼好描述的啦，條件又沒多好哪有資格要求東要求西，感覺對了就好反正也把不到
## 5 不過度挑食，生活不奢靡，單純善良，能夠對自己的生活負責，愛笑開朗
## 6 我的理想情人標準是身材勻稱 五官端正，特質是能夠彼此體諒
## 7 我只希望我們能互相理解，互相付出，不是只有單一方無限的付出，最後只淪為平淡以及..被發好人卡
## 8 生活平凡 思緒清晰 受過音樂或美術訓練 理解我的工作
## 9 不要比我高 可以一直陪伴我像我的右手一樣\n可以跟我一起幹話一起看動漫
## 10 高 身材精實但不壯 懂得體貼 懂得照顧人 可以容忍我的脾氣 彼此價值觀契合
## 11 幽默風趣值得信賴的會帶我出去遊山玩水偶爾會小吵架不容易吃醋待人處事的態度好
## 12 過往的伙食狀況勿太過豐盛 熱心助人 善待長者
## 13 希望她能一直愛著我，不要對我說謊，貼心能夠理解我的
## 14 有工作收入，年上，有錢，有共同興趣，講話很好笑
## 15 我的理想情人標準是溫柔體貼不會做不好的事不菸不酒
## 16 高於170 可愛 漂亮 不要太粘人 不要無理取鬧
## 17 有身高有顏值會開車會打球會煮飯會拍照會音樂 體貼溫柔浪漫幽默負責任情商高等等的男生
## 18 聊得來，看得舒服，個性和，自己喜歡，善良，喜歡小動物mid <- as.Date("2002-01-01")
mid ## [1] "2002-01-01"as.integer(mid) ## [1] 11688birth <- as.Date(data$birth)
as.integer(birth) ## [1] 11754 11660 11610 11825 11570 11433 11886 11637 11776 11800 11601 11624
## [13] 11708 11677 11909 11916 11772 11776for(i in birth){
if (i>mid){
print("年輕")
} else{
print("老")
}
}## [1] "年輕"
## [1] "老"
## [1] "老"
## [1] "年輕"
## [1] "老"
## [1] "老"
## [1] "年輕"
## [1] "老"
## [1] "年輕"
## [1] "年輕"
## [1] "老"
## [1] "老"
## [1] "年輕"
## [1] "老"
## [1] "年輕"
## [1] "年輕"
## [1] "年輕"
## [1] "年輕"data()
# 叫出women資料集(美國女性的平均身高、體重)
data(women)
# 檢視資料集
head(women)## height weight
## 1 58 115
## 2 59 117
## 3 60 120
## 4 61 123
## 5 62 126
## 6 63 129str(women)## 'data.frame': 15 obs. of 2 variables:
## $ height: num 58 59 60 61 62 63 64 65 66 67 ...
## $ weight: num 115 117 120 123 126 129 132 135 139 142 ...names(women)## [1] "height" "weight"nrow(women)## [1] 15tail(women)## height weight
## 10 67 142
## 11 68 146
## 12 69 150
## 13 70 154
## 14 71 159
## 15 72 164# 建立一個物件bmi，計算美國女性的bmi
bmi <- women$weight / (women$height / 100)^2
bmi## [1] 341.8549 336.1103 333.3333 330.5563 327.7836 325.0189 322.2656 319.5266
## [9] 319.1001 316.3288 315.7439 315.0599 314.2857 315.4136 316.3580# 1. 取bmi整數，且無條件刪去法
floor(bmi)## [1] 341 336 333 330 327 325 322 319 319 316 315 315 314 315 316# 2. 取bmi整數，且無條件進入法
ceiling(bmi)## [1] 342 337 334 331 328 326 323 320 320 317 316 316 315 316 317# 3. 取bmi至小數點第2位，且四捨五入
round(bmi, digits = 2)## [1] 341.85 336.11 333.33 330.56 327.78 325.02 322.27 319.53 319.10 316.33
## [11] 315.74 315.06 314.29 315.41 316.36# 4. 請將iris資料集的花瓣長度，取整數並四捨五入
data(iris)
names(iris)## [1] "Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species"round(iris$Petal.Length,digits=0)## [1] 1 1 1 2 1 2 1 2 1 2 2 2 1 1 1 2 1 1 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 1 2 1 1
## [38] 1 1 2 1 1 1 2 2 1 2 1 2 1 5 4 5 4 5 4 5 3 5 4 4 4 4 5 4 4 4 4 4 4 5 4 5 5
## [75] 4 4 5 5 4 4 4 4 4 5 4 4 5 4 4 4 4 5 4 3 4 4 4 4 3 4 6 5 6 6 6 7 4 6 6 6 5
## [112] 5 6 5 5 5 6 7 7 5 6 5 7 5 6 6 5 5 6 6 6 6 6 5 6 6 6 6 5 5 6 5 5 6 6 5 5 5
## [149] 5 5## 題組二 文字向量函數
# 已建立一個物件leadline為新聞標題、lead為新聞導言
headline <- "【鮭魚改名潮】「張鮭魚之夢」改不回來 李來希喊救孩子：大人高抬貴手"
lead <- c("台灣近日掀起「鮭魚之亂」","台中一位男大生為了壽司店優惠活動",
"把自己的名字改成「張鮭魚之夢」", "未料改完名後", "男大生發現悲劇已改了3次名",
"讓他崩潰直呼划不來", "對此","全國公務人員協會前理事長李來希感嘆",
"「價值觀錯亂下的羔羊」","希望主持政務的大人高抬貴手","讓他回復原狀")
headline## [1] "【鮭魚改名潮】「張鮭魚之夢」改不回來 李來希喊救孩子：大人高抬貴手"lead## [1] "台灣近日掀起「鮭魚之亂」" "台中一位男大生為了壽司店優惠活動"
## [3] "把自己的名字改成「張鮭魚之夢」" "未料改完名後"
## [5] "男大生發現悲劇已改了3次名" "讓他崩潰直呼划不來"
## [7] "對此" "全國公務人員協會前理事長李來希感嘆"
## [9] "「價值觀錯亂下的羔羊」" "希望主持政務的大人高抬貴手"
## [11] "讓他回復原狀"# 運用substr函數，擷取標題中的「張鮭魚之夢」5個字
data <- substr(headline, start = 8, stop = 14)
data## [1] "「張鮭魚之夢」"# 運用grep函數，搜尋導言中出現幾次鮭魚
data <- grep(lead, pattern = "鮭魚")
length(data)## [1] 2data## [1] 1 3# 請將導言中，出現鮭魚的句子篩選出來
lead[grep(lead, pattern="鮭魚")]## [1] "台灣近日掀起「鮭魚之亂」" "把自己的名字改成「張鮭魚之夢」"# 運用sub函數，將導言中的「男大生」替換為「軍校生」
data <- sub(lead, pattern="男大生", replacement = "軍校生")
data## [1] "台灣近日掀起「鮭魚之亂」" "台中一位軍校生為了壽司店優惠活動"
## [3] "把自己的名字改成「張鮭魚之夢」" "未料改完名後"
## [5] "軍校生發現悲劇已改了3次名" "讓他崩潰直呼划不來"
## [7] "對此" "全國公務人員協會前理事長李來希感嘆"
## [9] "「價值觀錯亂下的羔羊」" "希望主持政務的大人高抬貴手"
## [11] "讓他回復原狀"# 運用paste函數，將導言的第一句話和標題連結起來，連結的符號為「!!」
paste(lead[1],headline, sep="!!")## [1] "台灣近日掀起「鮭魚之亂」!!【鮭魚改名潮】「張鮭魚之夢」改不回來 李來希喊救孩子：大人高抬貴手"# 運用 paste0函數，將導言的第一句話和標題連結起來
paste0(lead[1],headline)## [1] "台灣近日掀起「鮭魚之亂」【鮭魚改名潮】「張鮭魚之夢」改不回來 李來希喊救孩子：大人高抬貴手"## 題組三 描述統計函數
# 運用unique函數，找出iris資料集有多少種不同的花萼長度
type <- unique(iris$Sepal.Length)
type## [1] 5.1 4.9 4.7 4.6 5.0 5.4 4.4 4.8 4.3 5.8 5.7 5.2 5.5 4.5 5.3 7.0 6.4 6.9 6.5
## [20] 6.3 6.6 5.9 6.0 6.1 5.6 6.7 6.2 6.8 7.1 7.6 7.3 7.2 7.7 7.4 7.9length(type)## [1] 35# 運用mean函數，算出iris花萼寬度的平均
mean(iris$Sepal.Width)## [1] 3.057333# 運用sd函數，算出iris花萼寬度的標準差
sd(iris$Sepal.Width)## [1] 0.4358663# 運用median函數，找出iris花萼寬度的中位數
median(iris$Sepal.Width)## [1] 3# 運用max, min, range函數，找出iris花萼寬度的最大值與最小值的範圍
max(iris$Sepal.Width)## [1] 4.4min(iris$Sepal.Width)## [1] 2range(iris$Sepal.Width)## [1] 2.0 4.4range(iris$Sepal.Width, na.rm = T) #na.rm = T代表排除一個遺漏值## [1] 2.0 4.4# 運用sum函數，將所有的花辮長度加總
sum(iris$Petal.Length)## [1] 563.7# ### 常見資料資料平台
# 政府資料開放平台:https://data.gov.tw/
# 臺北市資料大平臺:https://data.taipei/#/
# 內政資料開放平台:https://data.moi.gov.tw/MoiOD/default/Index.aspx
# ### 常見資料庫
# 學術調查研究資料庫:https://srda.sinica.edu.tw/index.php
# 傳播調查資料庫:http://www.crctaiwan.nctu.edu.tw/
### 題組一 csv檔資料輸入與輸出
# 請至政府資料開放平台下載「健保特約機構口罩剩餘數量明細清單」的csv檔
# 網址:https://data.gov.tw/dataset/116285
# 將輸入的csv檔案命名為maskdata
#install.packages("tidyverse")
library(readr)
maskdata <- read_csv("maskdata.numbers")## ! Multiple files in zip: reading ''Index/Document.iwa''##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## col_character()
## )## Warning: 64 parsing failures.
## row col expected actual file
## 2 embedded null 'maskdata.numbers'
## 3 embedded null 'maskdata.numbers'
## 4 embedded null 'maskdata.numbers'
## 5 -- 1 columns 2 columns 'maskdata.numbers'
## 6 embedded null 'maskdata.numbers'
## ... ... ......... ............. ..................
## See problems(...) for more details.# 或是直接檔案的存取網路位址
maskdata <- read_csv("https://data.nhi.gov.tw/Datasets/Download.ashx?rid=A21030000I-D50001-001&l=https://data.nhi.gov.tw/resource/mask/maskdata.csv")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## 醫事機構代碼 = col_character(),
## 醫事機構名稱 = col_character(),
## 醫事機構地址 = col_character(),
## 醫事機構電話 = col_character(),
## 成人口罩剩餘數 = col_double(),
## 兒童口罩剩餘數 = col_double(),
## 來源資料時間 = col_character()
## )# 檢視資料
#View(maskdata)
names(maskdata)## [1] "醫事機構代碼" "醫事機構名稱" "醫事機構地址" "醫事機構電話"
## [5] "成人口罩剩餘數" "兒童口罩剩餘數" "來源資料時間"nrow(maskdata)## [1] 5134summary(maskdata)## 醫事機構代碼 醫事機構名稱 醫事機構地址 醫事機構電話
## Length:5134 Length:5134 Length:5134 Length:5134
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## 成人口罩剩餘數 兒童口罩剩餘數 來源資料時間
## Min. : 0 Min. : 0 Length:5134
## 1st Qu.: 570 1st Qu.: 690 Class :character
## Median : 1240 Median : 1065 Mode :character
## Mean : 1532 Mean : 1028
## 3rd Qu.: 1960 3rd Qu.: 1380
## Max. :16000 Max. :20340# 2. 建一個機構名稱、地址、成人口罩、小孩口罩的新檔案，
# ，命名為mask1並輸出至目前的資料夾
# 先命名、並篩選需要的欄位
names(maskdata) <- c("code", "title",
"address","phone",
"adultmask", "childmask",
"time")
names(maskdata)## [1] "code" "title" "address" "phone" "adultmask" "childmask"
## [7] "time"mask1 <- maskdata[,c(2,3,5,6)]
#View(mask1)
# 3. 檢視成人口罩和兒童口罩數量的多寡?
range(mask1$adultmask)## [1] 0 16000table(mask1$adultmask)##
## 0 10 20 30 40 50 60 70 80 90 100 110 120
## 287 22 19 21 19 17 11 16 19 18 20 15 8
## 130 140 150 160 170 180 190 200 210 220 230 240 250
## 13 20 20 19 10 15 18 15 15 21 19 11 28
## 260 270 280 289 290 300 310 320 330 340 350 360 370
## 18 13 18 1 14 18 14 22 21 17 9 16 16
## 380 390 400 410 420 430 440 450 460 470 480 490 500
## 18 23 20 11 19 12 12 20 19 23 19 22 23
## 510 520 530 540 550 560 570 580 590 600 610 620 630
## 20 17 27 16 19 14 23 14 29 17 24 24 23
## 640 650 660 670 680 690 700 710 720 730 740 750 760
## 22 21 13 14 19 23 13 19 17 23 18 15 20
## 770 780 790 800 810 820 830 840 850 860 870 880 890
## 19 23 14 15 14 26 13 25 20 16 16 25 17
## 900 910 920 930 940 950 960 970 980 990 1000 1010 1020
## 22 16 27 23 17 11 20 21 23 22 17 13 15
## 1030 1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150
## 26 19 14 17 21 24 25 14 19 13 17 20 19
## 1160 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280
## 28 18 22 19 20 19 27 7 24 12 20 13 15
## 1290 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410
## 23 10 13 22 13 17 21 18 21 13 31 20 16
## 1420 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540
## 20 23 16 17 10 13 24 25 21 28 19 21 19
## 1550 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670
## 14 16 20 18 23 24 16 21 18 12 17 19 19
## 1680 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800
## 27 11 17 14 13 10 18 16 16 16 28 21 25
## 1810 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930
## 13 11 14 9 21 12 15 21 11 19 19 19 12
## 1940 1950 1960 1970 1980 1990 2000 2010 2020 2030 2040 2050 2060
## 20 22 20 19 14 27 48 17 7 13 10 15 14
## 2070 2080 2090 2100 2110 2120 2130 2140 2150 2160 2170 2180 2190
## 8 15 10 6 10 10 15 9 10 3 11 9 6
## 2200 2210 2220 2230 2240 2250 2260 2270 2280 2290 2300 2310 2320
## 4 7 7 10 3 4 5 4 4 9 8 5 4
## 2330 2340 2350 2360 2370 2380 2390 2400 2410 2420 2430 2440 2450
## 4 3 6 3 10 8 5 4 4 3 3 3 7
## 2460 2470 2480 2490 2500 2510 2520 2530 2540 2550 2560 2570 2580
## 4 7 5 2 3 4 2 5 5 1 4 5 8
## 2590 2600 2610 2620 2630 2640 2650 2660 2670 2680 2690 2700 2710
## 5 5 3 5 8 1 7 4 2 5 5 4 4
## 2720 2730 2740 2750 2760 2770 2780 2790 2800 2810 2820 2830 2840
## 2 5 3 3 2 4 5 4 6 7 2 3 3
## 2850 2860 2870 2880 2890 2900 2910 2920 2930 2940 2950 2960 2970
## 5 1 8 7 5 2 2 3 3 4 5 2 5
## 2980 2990 3000 3010 3020 3030 3040 3050 3060 3070 3080 3090 3100
## 4 4 3 3 2 3 3 4 2 2 2 8 5
## 3110 3120 3130 3140 3150 3160 3170 3180 3190 3200 3210 3220 3230
## 3 5 8 4 2 4 3 2 6 3 4 5 2
## 3240 3250 3260 3270 3280 3300 3310 3320 3330 3340 3350 3360 3370
## 3 3 5 2 2 6 6 3 2 1 1 2 4
## 3380 3390 3400 3410 3420 3430 3440 3450 3460 3470 3480 3490 3500
## 5 2 5 4 6 7 5 3 2 5 4 1 5
## 3510 3520 3530 3540 3550 3560 3570 3580 3590 3600 3610 3620 3630
## 3 2 1 3 3 2 6 5 5 3 4 3 2
## 3640 3650 3660 3670 3680 3700 3710 3720 3730 3740 3750 3760 3770
## 1 2 2 1 5 5 1 1 3 1 1 3 5
## 3780 3790 3800 3810 3820 3830 3840 3860 3870 3880 3890 3900 3920
## 4 1 3 3 3 1 4 4 8 4 2 1 4
## 3960 3980 3990 4000 4010 4020 4030 4040 4060 4070 4080 4090 4100
## 1 1 1 2 1 2 4 2 3 1 2 1 3
## 4110 4120 4140 4150 4160 4170 4180 4200 4230 4240 4250 4270 4280
## 2 2 2 1 1 1 1 2 2 2 4 2 1
## 4290 4300 4310 4320 4330 4340 4360 4370 4380 4390 4400 4420 4430
## 1 2 1 3 2 1 1 1 1 1 2 1 1
## 4450 4470 4490 4500 4510 4520 4530 4540 4550 4560 4570 4580 4590
## 1 4 1 1 2 1 1 1 1 3 2 1 2
## 4600 4620 4640 4660 4670 4680 4690 4700 4710 4740 4750 4800 4840
## 1 2 2 1 2 1 1 3 1 1 1 1 2
## 4850 4870 4880 4890 4900 4910 4920 4940 4970 4980 4990 5000 5010
## 2 2 1 2 1 3 2 2 2 3 1 1 3
## 5060 5070 5100 5110 5130 5140 5190 5200 5220 5250 5260 5290 5300
## 2 2 1 1 1 1 1 1 1 2 4 2 1
## 5310 5320 5330 5340 5360 5380 5390 5420 5430 5440 5450 5500 5510
## 1 2 2 2 2 1 2 2 1 2 1 2 1
## 5520 5530 5540 5550 5560 5570 5590 5610 5620 5660 5670 5680 5750
## 1 1 1 1 3 1 1 1 1 2 1 1 1
## 5760 5770 5800 5810 5820 5830 5860 5880 5890 5900 5910 5950 6000
## 1 2 1 2 1 1 1 2 3 1 1 1 2
## 6030 6050 6060 6070 6090 6110 6120 6140 6150 6170 6180 6190 6200
## 1 1 1 1 1 2 2 1 1 1 1 1 2
## 6220 6230 6250 6260 6270 6300 6320 6350 6380 6400 6430 6450 6480
## 1 1 1 2 1 1 1 1 1 2 2 1 1
## 6490 6500 6530 6550 6610 6620 6680 6690 6720 6730 6760 6820 6840
## 2 1 1 1 1 1 1 1 1 2 2 2 1
## 6880 6900 6920 6940 6960 6970 7010 7040 7070 7210 7230 7320 7340
## 1 1 1 2 1 3 1 1 1 1 2 1 1
## 7370 7410 7470 7480 7490 7530 7570 7630 7720 7820 7840 7850 7910
## 1 1 1 1 1 1 1 1 2 1 1 1 1
## 7980 8000 8060 8250 8380 8450 8530 8590 8640 8710 9030 9160 9190
## 1 4 1 1 1 1 1 1 1 1 1 1 1
## 9290 9660 10000 10560 10880 11780 12000 16000
## 1 1 2 1 1 1 1 1table(mask1$childmask)##
## 0 10 20 30 40 50 60 70 80 90 100 110 120
## 121 16 9 3 10 7 11 9 7 11 9 9 10
## 130 140 150 160 170 180 190 200 210 220 230 240 250
## 7 13 4 14 17 11 17 21 16 15 17 19 14
## 260 270 280 290 300 310 320 330 340 350 360 370 380
## 12 16 23 21 18 19 13 16 18 21 15 18 24
## 390 400 410 420 430 440 450 460 470 480 490 500 510
## 15 11 21 18 27 22 21 20 29 21 17 16 13
## 520 530 540 550 560 570 580 590 600 610 620 630 640
## 21 16 16 27 19 19 28 36 18 25 24 21 21
## 650 660 670 680 690 700 710 720 730 740 750 760 770
## 32 13 22 23 32 31 25 33 17 27 26 27 26
## 780 790 800 810 820 830 840 850 860 870 880 890 900
## 29 35 41 29 27 30 32 41 37 29 30 35 35
## 910 920 930 940 950 960 970 980 990 1000 1010 1020 1030
## 29 34 30 47 38 39 37 31 35 45 42 39 43
## 1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160
## 40 41 40 59 34 37 47 38 44 44 33 33 41
## 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290
## 37 45 42 40 58 38 47 41 28 51 40 47 45
## 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420
## 48 33 34 45 37 26 37 47 34 31 31 36 39
## 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550
## 40 28 24 30 34 35 37 18 26 34 31 27 41
## 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680
## 20 30 21 30 16 34 19 22 19 18 26 15 19
## 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810
## 18 13 19 15 19 17 12 19 20 17 21 9 8
## 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940
## 10 16 13 16 5 7 12 10 13 10 10 6 8
## 1950 1960 1970 1980 1990 2000 2010 2020 2040 2050 2060 2070 2080
## 5 7 4 7 3 6 3 3 2 1 3 2 2
## 2090 2100 2110 2120 2130 2140 2150 2160 2170 2200 2210 2230 2260
## 2 4 3 2 2 2 1 1 1 1 2 1 1
## 2280 2290 2340 2420 2450 2610 2640 2660 2920 2970 20340
## 1 1 1 1 1 1 2 1 1 1 1# 4. 超過5000個成人口罩的機構有哪些? 物件名稱為mask5000
mask5000 <- subset(maskdata, adultmask >5000)
#View(mask5000)
# 5. 將超過5000個成人口罩的機構輸出為csv檔，命名為mask5000
write.csv(mask5000, file = "mask5000.csv", row.names = FALSE)
### 題組二 txt檔資料輸入與輸出
## 一、當資料為表格型態(方法與csv方式相同)
# 請至政府資料開放平台下載「國軍臺中總醫院就醫收費標準表」的txt檔
# 網址:https://data.gov.tw/dataset/37783
# 1. 將輸入的txt檔案命名為hospital
library(readr)
hospital <- read_csv("國軍臺中總醫院就醫收費標準表.txt")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## 項目 = col_character(),
## 一般門診掛號費 = col_double(),
## 一般門診部分負擔 = col_double(),
## 急診掛號費 = col_double(),
## 急診部分負擔 = col_double()
## )hospital1 <- read_csv("https://www.mnd.gov.tw/newUpload/files/%e5%9c%8b%e8%bb%8d%e8%87%ba%e4%b8%ad%e7%b8%bd%e9%86%ab%e9%99%a2%e5%b0%b1%e9%86%ab%e6%94%b6%e8%b2%bb%e6%a8%99%e6%ba%96%e8%a1%a8.txt")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## 項目 = col_character(),
## 一般門診掛號費 = col_double(),
## 一般門診部分負擔 = col_double(),
## 急診掛號費 = col_double(),
## 急診部分負擔 = col_double()
## )#View(hospital)
# 2. 請將現役軍人、替代役、軍眷的收費標準輸出為txt檔
# 並命名為army
army <- hospital[8:10,]
#View(army)
write.csv(army, file = "army.txt", row.names = FALSE)
## 二、當資料為非表格型態
# 1. 下載youtube"2020國慶演說"影片的cc字幕，命名為ytword
# 影片網址:https://www.youtube.com/watch?v=87frdlm9ujo
# 利用Youtube 字幕下載器(https://toolbxs.com/zh-TW/downloader/youtube_subtitle)
ytword <- readLines("[Toolbxs]20201010 總統出席「中華民國中樞暨各界慶祝109年國慶大會」.txt",encoding = "UTF-8")
ytword## [1] "大會主席游錫堃院長"
## [2] ""
## [3] "現場各位貴賓"
## [4] ""
## [5] "電視機前和網路上的全體國人同胞"
## [6] ""
## [7] "大家早安"
## [8] ""
## [9] "大家好"
## [10] ""
## [11] "今天是中華民國109年的國慶日"
## [12] ""
## [13] "今年因為疫情"
## [14] ""
## [15] "慶典的規模縮小了"
## [16] ""
## [17] "但所有的國人同胞"
## [18] ""
## [19] "無論身在何處"
## [20] ""
## [21] "都發自內心"
## [22] ""
## [23] "慶賀中華民國台灣"
## [24] ""
## [25] "度過了重重挑戰的一年"
## [26] ""
## [27] "2020這一年"
## [28] ""
## [29] "在新型冠狀病毒威脅下"
## [30] ""
## [31] "無論對台灣或全世界"
## [32] ""
## [33] "都是驚濤駭浪的一年"
## [34] ""
## [35] "但是"
## [36] ""
## [37] "也因為這場全球性的危機"
## [38] ""
## [39] "才讓國際社會看到台灣「堅韌之島」的特質和能耐"
## [40] ""
## [41] "我們沒有封城"
## [42] ""
## [43] "沒有關閉學校"
## [44] ""
## [45] "也是世界上少數還能夠在管制措施下"
## [46] ""
## [47] "開打職棒"
## [48] ""
## [49] "舉辦大型藝文活動的國家"
## [50] ""
## [51] "我們更展現了傲人的國力"
## [52] ""
## [53] "將防疫物資送到世界各地"
## [54] ""
## [55] "從今年三月以來"
## [56] ""
## [57] "有超過三千三百篇國際媒體報導"
## [58] ""
## [59] "都在談論台灣的防疫表現"
## [60] ""
## [61] "台灣在國際上的面貌"
## [62] ""
## [63] "越來越清晰"
## [64] ""
## [65] "比過去任何時期都更加亮眼"
## [66] ""
## [67] "這樣的成就"
## [68] ""
## [69] "要歸功於全體台灣人民的團結 合作"
## [70] ""
## [71] "除了最辛苦的醫護和檢疫人員"
## [72] ""
## [73] "我們也要感謝"
## [74] ""
## [75] "製造業攜手投入防疫物資生產"
## [76] ""
## [77] "科技業開發APP"
## [78] ""
## [79] "藥師朋友"
## [80] ""
## [81] "超商員工協助發放口罩"
## [82] ""
## [83] "還有我們所有的民眾"
## [84] ""
## [85] "井然有序的配合"
## [86] ""
## [87] "各項防疫措施"
## [88] ""
## [89] "我們也看到"
## [90] ""
## [91] "海外歸來的國人"
## [92] ""
## [93] "依規定居家隔離 檢疫"
## [94] ""
## [95] "旅行業者提供防疫旅館"
## [96] ""
## [97] "租賃車業者提供防疫車隊"
## [98] ""
## [99] "餐廳娛樂場所落實實名制規定"
## [100] ""
## [101] "因為全國上下一心"
## [102] ""
## [103] "我們守住了疫情的防線"
## [104] ""
## [105] "讓台灣成為世界的模範生"
## [106] ""
## [107] "當日本的森喜朗前首相"
## [108] ""
## [109] "捷克的韋德齊參議長"
## [110] ""
## [111] "美國的阿札爾部長"
## [112] ""
## [113] "和柯拉克國務次卿"
## [114] ""
## [115] "相繼來訪"
## [116] ""
## [117] "表達他們對台灣的敬意的時候"
## [118] ""
## [119] "相信許許多多的國人"
## [120] ""
## [121] "都感到無比的振奮"
## [122] ""
## [123] "透過因應疫情的挑戰"
## [124] ""
## [125] "我們證明了國家在逆境中的生存能力"
## [126] ""
## [127] "建立了國民的自信"
## [128] ""
## [129] "更重要的是"
## [130] ""
## [131] "我們團結了"
## [132] ""
## [133] "因為我們深刻體會到守護家園的重要"
## [134] ""
## [135] "所以這一年"
## [136] ""
## [137] "確實是辛苦而險峻的一年"
## [138] ""
## [139] "但也是豐收的一年"
## [140] ""
## [141] "今天的大會中"
## [142] ""
## [143] "邀請到各行各業的防疫英雄"
## [144] ""
## [145] "來為我們領唱國歌"
## [146] ""
## [147] "其中有很多我們熟悉的故事"
## [148] ""
## [149] "像是賴碧蓮護理師"
## [150] ""
## [151] "臉上光榮的口罩壓痕"
## [152] ""
## [153] "或者是張莞爾護理師"
## [154] ""
## [155] "瞞著家人出任務"
## [156] ""
## [157] "陪伴血友病少年返台的感人事蹟"
## [158] ""
## [159] "還有更多無名英雄"
## [160] ""
## [161] "不曾被報導"
## [162] ""
## [163] "因為這一場戰役"
## [164] ""
## [165] "有太多人的投入"
## [166] ""
## [167] "有說不完的故事"
## [168] ""
## [169] "我要請現場的好朋友"
## [170] ""
## [171] "用最熱烈的掌聲"
## [172] ""
## [173] "再一次給我們的防疫英雄們滿滿的感謝"
## [174] ""
## [175] "謝謝他們為台灣所做的付出"
## [176] ""
## [177] "因為疫情控制得當"
## [178] ""
## [179] "台灣成為全球少數可以維持經濟正成長的國家"
## [180] ""
## [181] "我們也為疫情後的經濟發展"
## [182] ""
## [183] "超前部署"
## [184] ""
## [185] "「六大核心戰略產業」正在積極規劃推動"
## [186] ""
## [187] "前瞻基礎建設計畫"
## [188] ""
## [189] "也已經分期編列特別預算"
## [190] ""
## [191] "加速進行當中"
## [192] ""
## [193] "最讓我們感到振奮的"
## [194] ""
## [195] "是國人及企業"
## [196] ""
## [197] "對台灣經濟發展的信心更強了"
## [198] ""
## [199] "台灣資本長期以來外流的趨勢"
## [200] ""
## [201] "已經翻轉過來"
## [202] ""
## [203] "我們迎來幾十年來最大規模的資金回流潮"
## [204] ""
## [205] "台商返台投資"
## [206] ""
## [207] "已經超過新台幣一兆元"
## [208] ""
## [209] "還有數以千億元計的"
## [210] ""
## [211] "謝謝我們的台商朋友"
## [212] ""
## [213] "還有數以千億元計的海外資金"
## [214] ""
## [215] "正在陸續匯回"
## [216] ""
## [217] "許多外商及知名跨國企業"
## [218] ""
## [219] "也在加碼投資台灣"
## [220] ""
## [221] "這些"
## [222] ""
## [223] "都是現在進行式"
## [224] ""
## [225] "在國際經貿合作的領域中"
## [226] ""
## [227] "我們也有不少實質進展"
## [228] ""
## [229] "台灣和美國將進行高層經濟對話"
## [230] ""
## [231] "在全球供應鏈重組"
## [232] ""
## [233] "科技合作"
## [234] ""
## [235] "基礎建設等領域"
## [236] ""
## [237] "尋求未來合作空間"
## [238] ""
## [239] "上週"
## [240] ""
## [241] "台美雙方宣布"
## [242] ""
## [243] "已經完成簽署「台美基礎建設融資及市場建立合作架構」"
## [244] ""
## [245] "雙方將攜手投入美洲"
## [246] ""
## [247] "以及印太地區的基礎建設計畫"
## [248] ""
## [249] "台美經濟合作的深化"
## [250] ""
## [251] "已經進入到行動階段"
## [252] ""
## [253] "這也是我們在國際經貿合作上"
## [254] ""
## [255] "尋求全面性突破的開始。"
## [256] ""
## [257] "不過"
## [258] ""
## [259] "我也要提醒國人"
## [260] ""
## [261] "全球疫情還沒有結束"
## [262] ""
## [263] "疫情帶給各國在經濟 社會層面的複雜挑戰"
## [264] ""
## [265] "仍然很嚴峻"
## [266] ""
## [267] "展望未來"
## [268] ""
## [269] "還有更艱鉅的挑戰等著我們去克服"
## [270] ""
## [271] "疫情後世界經濟的復原"
## [272] ""
## [273] "人類生活型態的轉變"
## [274] ""
## [275] "全球以及區域貿易情勢的劇烈變化"
## [276] ""
## [277] "還有經濟秩序的重整"
## [278] ""
## [279] "每一項都考驗我們經濟的續航力"
## [280] ""
## [281] "以及整體的應變能力"
## [282] ""
## [283] "面對數十年來最大的內 外變局"
## [284] ""
## [285] "台灣會持續展現我們的韌性"
## [286] ""
## [287] "政府會掌好舵"
## [288] ""
## [289] "朝三個策略方向前進"
## [290] ""
## [291] "打造大家所期待的新台灣經濟"
## [292] ""
## [293] "首先"
## [294] ""
## [295] "我們要全力"
## [296] ""
## [297] "全方位投入供應鏈的重組"
## [298] ""
## [299] "現在"
## [300] ""
## [301] "全球供應鏈的快速解構及重組"
## [302] ""
## [303] "是一個不可逆轉的趨勢"
## [304] ""
## [305] "各地台商也正在朝向區隔市場"
## [306] ""
## [307] "轉移生產基地"
## [308] ""
## [309] "回台投資等方向"
## [310] ""
## [311] "加速調整"
## [312] ""
## [313] "我們已經在推動的「5+2產業創新」"
## [314] ""
## [315] "「六大核心戰略產業」"
## [316] ""
## [317] "兆元投資計畫"
## [318] ""
## [319] "「新南向政策」"
## [320] ""
## [321] "台美經濟合作"
## [322] ""
## [323] "參與區域經濟整合等等"
## [324] ""
## [325] "都和供應鏈重組息息相關"
## [326] ""
## [327] "我們會將這些相關的政策和計畫串聯起來"
## [328] ""
## [329] "並且整合政府和民間的資源"
## [330] ""
## [331] "以及跨部會的能量"
## [332] ""
## [333] "全力 全方位的投入"
## [334] ""
## [335] "讓台灣成為全球供應鏈不可或缺關鍵力量"
## [336] ""
## [337] "第二"
## [338] ""
## [339] "我們要打造台灣成為國際資本"
## [340] ""
## [341] "人才及數位技術匯聚的重鎮"
## [342] ""
## [343] "未來供應鏈的重組"
## [344] ""
## [345] "最關鍵的元素是資本 人才"
## [346] ""
## [347] "以及邁向數位經濟時代的核心技術"
## [348] ""
## [349] "我們將會在吸引國際資本跟人才的環境及法制上"
## [350] ""
## [351] "持續深化改革"
## [352] ""
## [353] "排除障礙"
## [354] ""
## [355] "同時"
## [356] ""
## [357] "也會透過國際交流"
## [358] ""
## [359] "產學合作"
## [360] ""
## [361] "以及雙語國家政策的努力"
## [362] ""
## [363] "積極培育國內產業人才"
## [364] ""
## [365] "另外一方面"
## [366] ""
## [367] "我們也會運用台灣在資通訊"
## [368] ""
## [369] "半導體"
## [370] ""
## [371] "物聯網"
## [372] ""
## [373] "人工智慧等優勢"
## [374] ""
## [375] "開發及掌握核心技術"
## [376] ""
## [377] "加速推動產業及經濟的數位轉型"
## [378] ""
## [379] "第三"
## [380] ""
## [381] "我們要全力落實經濟與社會的均衡發展"
## [382] ""
## [383] "疫情後的經濟"
## [384] ""
## [385] "產業發展"
## [386] ""
## [387] "可能會有失衡的風險"
## [388] ""
## [389] "資金供給大幅的增加"
## [390] ""
## [391] "也可能帶來後遺症"
## [392] ""
## [393] "所以"
## [394] ""
## [395] "未來政府會更加重視資源的合理分配"
## [396] ""
## [397] "照顧因為經濟轉型而受衝擊的弱勢族群"
## [398] ""
## [399] "加強促進青年就業"
## [400] ""
## [401] "引導資金進行最有效的利用"
## [402] ""
## [403] "讓台灣經濟再起的紅利"
## [404] ""
## [405] "可以讓全國的人民共享"
## [406] ""
## [407] "當然"
## [408] ""
## [409] "台灣經濟的前景"
## [410] ""
## [411] "是有賴於區域的和平穩定"
## [412] ""
## [413] "我們很清楚"
## [414] ""
## [415] "示弱退讓不會帶來和平"
## [416] ""
## [417] "只有自我準備充足"
## [418] ""
## [419] "憑藉著堅實的防衛決心和實力"
## [420] ""
## [421] "才能保障台灣的安全"
## [422] ""
## [423] "維護區域的和平"
## [424] ""
## [425] "精進國防實力"
## [426] ""
## [427] "降低戰爭風險"
## [428] ""
## [429] "這是當前我們國防政策的原則"
## [430] ""
## [431] "這段時間"
## [432] ""
## [433] "面對對岸機艦騷擾"
## [434] ""
## [435] "台海情勢雖然比較緊張"
## [436] ""
## [437] "但是我們的國軍"
## [438] ""
## [439] "都能夠即時掌握和因應"
## [440] ""
## [441] "達成防衛固守的任務"
## [442] ""
## [443] "這幾年來"
## [444] ""
## [445] "只要我有時間"
## [446] ""
## [447] "我就會前往部隊"
## [448] ""
## [449] "看看我們的國軍官兵"
## [450] ""
## [451] "從高山上的空軍雷達站"
## [452] ""
## [453] "到返航靠港的海軍艦隊"
## [454] ""
## [455] "從在陣地操練火砲的陸軍部隊"
## [456] ""
## [457] "到培養年輕軍士官的學校"
## [458] ""
## [459] "我的目的"
## [460] ""
## [461] "不僅是要對這些日夜輪班"
## [462] ""
## [463] "保家衛國的軍人"
## [464] ""
## [465] "說一聲謝謝"
## [466] ""
## [467] "也要讓我們的國人知道"
## [468] ""
## [469] "國軍是我們的家人"
## [470] ""
## [471] "也是國家主權"
## [472] ""
## [473] "自由民主最強的後盾"
## [474] ""
## [475] "在跟國軍官兵的互動中"
## [476] ""
## [477] "許多故事堅定了我的信心"
## [478] ""
## [479] "我還記得"
## [480] ""
## [481] "當我到第一線空軍部隊的時候"
## [482] ""
## [483] "警戒室裡"
## [484] ""
## [485] "隨時準備緊急出勤的飛官"
## [486] ""
## [487] "充滿信心地告訴我「務必將空防交給空軍」"
## [488] ""
## [489] "我也記得"
## [490] ""
## [491] "我在陸軍工訓中心"
## [492] ""
## [493] "看到我們女性軍官"
## [494] ""
## [495] "帶領著工兵同袍"
## [496] ""
## [497] "展現出「逢山開路 遇水架橋」的氣魄"
## [498] ""
## [499] "在海軍水下作業大隊"
## [500] ""
## [501] "則有穿戴重裝備的弟兄姊妹"
## [502] ""
## [503] "奮勇潛入海底"
## [504] ""
## [505] "排除障礙"
## [506] ""
## [507] "這就是中華民國國軍"
## [508] ""
## [509] "他們不分前線後勤"
## [510] ""
## [511] "不分男女"
## [512] ""
## [513] "都是我們的子弟"
## [514] ""
## [515] "都有同守護國家的信念"
## [516] ""
## [517] "這段時間以來"
## [518] ""
## [519] "也有國軍弟兄姊妹在執行任務的過程中"
## [520] ""
## [521] "為國受傷"
## [522] ""
## [523] "甚至殉職"
## [524] ""
## [525] "我們感念他們的付出"
## [526] ""
## [527] "並且以英勇盡責的國軍為榮"
## [528] ""
## [529] "身為三軍統帥"
## [530] ""
## [531] "國軍的未來"
## [532] ""
## [533] "未來的國軍"
## [534] ""
## [535] "就是我最心心念念的事情"
## [536] ""
## [537] "面對對岸的軍事擴張和挑釁"
## [538] ""
## [539] "我們會持續強化防衛戰力的現代化"
## [540] ""
## [541] "並且提升不對稱戰力"
## [542] ""
## [543] "在外購武器裝備的同時"
## [544] ""
## [545] "我們仍然堅持加速推動國防自主"
## [546] ""
## [547] "高教機國造"
## [548] ""
## [549] "潛艦國造"
## [550] ""
## [551] "已經有相當的成效"
## [552] ""
## [553] "我們將以雙軌並進的方式"
## [554] ""
## [555] "來強化我們的防衛實力"
## [556] ""
## [557] "不僅武器裝備性能正在提升"
## [558] ""
## [559] "國軍更需要有素質優秀的戰士"
## [560] ""
## [561] "除了提升志願從軍的官士兵的專業素養"
## [562] ""
## [563] "更要建立有效的後備制度"
## [564] ""
## [565] "來強化國軍的人力素質以及戰力"
## [566] ""
## [567] "這段時間以來"
## [568] ""
## [569] "相信很多被教育召集的後備軍人都覺得"
## [570] ""
## [571] "教召變得更加精實"
## [572] ""
## [573] "而在常後一體的原則下"
## [574] ""
## [575] "接下來"
## [576] ""
## [577] "後備動員制度的改革"
## [578] ""
## [579] "將會快速推動"
## [580] ""
## [581] "面對區域和平穩定受到威脅"
## [582] ""
## [583] "我們堅守「不畏戰 不求戰」的原則"
## [584] ""
## [585] "避免擦槍走火"
## [586] ""
## [587] "國防部也會適時發布共軍動態"
## [588] ""
## [589] "和周邊國家交換資訊"
## [590] ""
## [591] "強化安全夥伴角色"
## [592] ""
## [593] "也讓國人明瞭台海動態"
## [594] ""
## [595] "讓全民國防更加堅實"
## [596] ""
## [597] "這段時間"
## [598] ""
## [599] "我們都密切注意著區域安全情勢的變動"
## [600] ""
## [601] "從南海 東海主權爭議"
## [602] ""
## [603] "中印衝突"
## [604] ""
## [605] "到台海局勢的變動"
## [606] ""
## [607] "乃至於各國關切的港版國安法實施"
## [608] ""
## [609] "印太區域的民主 和平與繁榮"
## [610] ""
## [611] "正受到嚴峻的挑戰"
## [612] ""
## [613] "區域內的國家"
## [614] ""
## [615] "為了確保自身安全和民主體制"
## [616] ""
## [617] "不受到外在因素影響"
## [618] ""
## [619] "而展開了各種形式的合縱連橫"
## [620] ""
## [621] "已經導致這個區域"
## [622] ""
## [623] "發生前所未有的情勢變化"
## [624] ""
## [625] "我們要把變局的試煉"
## [626] ""
## [627] "轉變成歷史的機遇"
## [628] ""
## [629] "我們堅持主權以及守護民主價值的原則"
## [630] ""
## [631] "不會改變"
## [632] ""
## [633] "但在策略上"
## [634] ""
## [635] "也會保持彈性"
## [636] ""
## [637] "靈活應用"
## [638] ""
## [639] "情勢在改變"
## [640] ""
## [641] "只有超前部署"
## [642] ""
## [643] "才能掌握未來"
## [644] ""
## [645] "才不會在變局中隨波逐流"
## [646] ""
## [647] "甚至被別人決定了命運"
## [648] ""
## [649] "我們將積極參與未來的國際和區域新秩序的建立"
## [650] ""
## [651] "我們會秉持「價值同盟」的原則"
## [652] ""
## [653] "在國際社會廣結善緣"
## [654] ""
## [655] "並且跟理念相近和友我的國家"
## [656] ""
## [657] "持續提升夥伴關係"
## [658] ""
## [659] "我們也會更積極地參與區域及國際的多邊合作和對話"
## [660] ""
## [661] "維持和平"
## [662] ""
## [663] "促進繁榮發展"
## [664] ""
## [665] "這就是中華民國台灣"
## [666] ""
## [667] "在區域中最重要的價值"
## [668] ""
## [669] "我們要做良善力量的倡議者"
## [670] ""
## [671] "將進步及良善的價值"
## [672] ""
## [673] "推廣到全世界"
## [674] ""
## [675] "我也注意到"
## [676] ""
## [677] "對岸領導人最近在對聯合國的視訊演說中"
## [678] ""
## [679] "公開表示"
## [680] ""
## [681] "中國永遠不稱霸"
## [682] ""
## [683] "不擴張"
## [684] ""
## [685] "不謀求勢力範圍"
## [686] ""
## [687] "在區域國家"
## [688] ""
## [689] "乃至於全世界"
## [690] ""
## [691] "都在擔憂中國擴張霸權的此刻"
## [692] ""
## [693] "我們希望"
## [694] ""
## [695] "這是一個真正改變的開始"
## [696] ""
## [697] "尤其"
## [698] ""
## [699] "在全球高度關注印太及兩岸局勢變化的重要時刻"
## [700] ""
## [701] "北京如果能夠正視台灣的聲音"
## [702] ""
## [703] "改變處理兩岸關係的態度"
## [704] ""
## [705] "和台灣共同促成兩岸的和解及和平對話"
## [706] ""
## [707] "相信一定可以化解區域的緊張局勢"
## [708] ""
## [709] "面對兩岸關係"
## [710] ""
## [711] "我們不會冒進"
## [712] ""
## [713] "也會堅守原則"
## [714] ""
## [715] "維持兩岸關係的穩定"
## [716] ""
## [717] "是兩岸共同的利益"
## [718] ""
## [719] "我們有決心維持兩岸的穩定"
## [720] ""
## [721] "但這不是台灣可以單方面承擔的"
## [722] ""
## [723] "而是雙方共同的責任"
## [724] ""
## [725] "現階段兩岸當務之急"
## [726] ""
## [727] "是本於相互尊重"
## [728] ""
## [729] "善意理解的態度"
## [730] ""
## [731] "共同討論和平相處之道"
## [732] ""
## [733] "共存之方"
## [734] ""
## [735] "只要北京當局有心化解對立"
## [736] ""
## [737] "改善兩岸關係"
## [738] ""
## [739] "在符合對等尊嚴的原則下"
## [740] ""
## [741] "我們願意共同促成有意義的對話"
## [742] ""
## [743] "這就是台灣人民的主張"
## [744] ""
## [745] "也是朝野政黨的共識"
## [746] ""
## [747] "這段時間"
## [748] ""
## [749] "我們可以明顯感受"
## [750] ""
## [751] "台灣人民在對外關係以及國家安全的議題上"
## [752] ""
## [753] "彼此的距離正在拉近"
## [754] ""
## [755] "台灣人民都希望區域的和平繁榮"
## [756] ""
## [757] "能夠安定永續"
## [758] ""
## [759] "朝野政黨之間也是如此"
## [760] ""
## [761] "像是最近在立法院"
## [762] ""
## [763] "在野黨提出促進台美關係的議案"
## [764] ""
## [765] "獲得朝野黨團的支持"
## [766] ""
## [767] "無異議通過"
## [768] ""
## [769] "還有"
## [770] ""
## [771] "六都首長一致對外"
## [772] ""
## [773] "共同抗議"
## [774] ""
## [775] "成功更正了國際組織矮化台灣的做法"
## [776] ""
## [777] "這些都是跨黨派合作"
## [778] ""
## [779] "團結表達立場的表現"
## [780] ""
## [781] "我想透過這些例子"
## [782] ""
## [783] "呼籲並且請國內各個政黨"
## [784] ""
## [785] "一起攜手努力"
## [786] ""
## [787] "對內"
## [788] ""
## [789] "互相競爭"
## [790] ""
## [791] "立場針鋒相對"
## [792] ""
## [793] "是民主日常"
## [794] ""
## [795] "不過 為了國家的生存發展"
## [796] ""
## [797] "為了民主自由的價值"
## [798] ""
## [799] "對外"
## [800] ""
## [801] "我們應該團結努力"
## [802] ""
## [803] "攜手帶領國家度過挑戰"
## [804] ""
## [805] "就如同過去七十一年來"
## [806] ""
## [807] "台灣經歷的一切"
## [808] ""
## [809] "困境磨練出我們的堅韌"
## [810] ""
## [811] "挑戰激發我們的志氣"
## [812] ""
## [813] "一場疫情"
## [814] ""
## [815] "可以凝聚出台灣人民團結的意識"
## [816] ""
## [817] "給我們繼續前進的勇氣"
## [818] ""
## [819] "我們守住疫情防線"
## [820] ""
## [821] "發展經濟戰略"
## [822] ""
## [823] "穩定區域情勢"
## [824] ""
## [825] "捍衛台灣安全"
## [826] ""
## [827] "為的是什麼"
## [828] ""
## [829] "就是要把一個壯大的國家"
## [830] ""
## [831] "留給台灣的下一代"
## [832] ""
## [833] "今年的金曲獎"
## [834] ""
## [835] "我們也看到了年輕世代蓬勃的創造力和生命力"
## [836] ""
## [837] "他們用各種曲風"
## [838] ""
## [839] "自信地唱出自己的母語"
## [840] ""
## [841] "呈現出對各種議題的價值觀"
## [842] ""
## [843] "尤其是《kinakaian母親的舌頭》這張專輯"
## [844] ""
## [845] "獲得了「年度專輯獎」的大獎"
## [846] ""
## [847] "這些年輕的創作者"
## [848] ""
## [849] "雖然風格各自不同"
## [850] ""
## [851] "但都能夠在舞台上發光發亮"
## [852] ""
## [853] "也為台灣的多元文化"
## [854] ""
## [855] "做出最好的詮釋"
## [856] ""
## [857] "而支撐起這一切的"
## [858] ""
## [859] "就是我們民主 自由的環境"
## [860] ""
## [861] "我們現在打拚的一切"
## [862] ""
## [863] "都是為了下一代"
## [864] ""
## [865] "讓世世代代的台灣人"
## [866] ""
## [867] "可以在創作上展現自信"
## [868] ""
## [869] "也能對土地的文化和價值感到光榮"
## [870] ""
## [871] "並且勇敢的走向世界"
## [872] ""
## [873] "在中華民國國慶這一天"
## [874] ""
## [875] "我們也一起許下願望"
## [876] ""
## [877] "願二十年後的台灣人"
## [878] ""
## [879] "回想 2020 年的時候"
## [880] ""
## [881] "會想起正是在這一年"
## [882] ""
## [883] "因為我們在時代中把握機遇"
## [884] ""
## [885] "在變局中勇敢前進"
## [886] ""
## [887] "克服了挑戰"
## [888] ""
## [889] "擺脫了枷鎖"
## [890] ""
## [891] "讓他們有真正以自己的意志"
## [892] ""
## [893] "選擇未來的機會"
## [894] ""
## [895] "從現在起"
## [896] ""
## [897] "就讓我們團結彼此"
## [898] ""
## [899] "一步一步"
## [900] ""
## [901] "「有路，咱沿路唱歌；無路，咱蹽溪過嶺」"
## [902] ""
## [903] "一起朝有光的地方前進"
## [904] ""
## [905] "中華民國生日快樂"
## [906] ""
## [907] "謝謝大家"
## [908] ""# 2. 請問演講中分別提及中華民國、台灣幾次?
data <- grep(ytword, pattern = "中華民國")
length(data)## [1] 6data## [1] 11 23 507 665 873 905data <- grep(ytword, pattern = "台灣")
length(data)## [1] 37data## [1] 23 31 39 59 61 69 105 117 175 179 197 199 219 229 285 291 335 339 367
## [20] 403 409 421 665 701 705 721 743 751 755 775 807 815 825 831 853 865 877# 3. 請問演講中如何談中華民國、台灣?
ytword[grep(ytword, pattern = "中華民國")]## [1] "今天是中華民國109年的國慶日" "慶賀中華民國台灣"
## [3] "這就是中華民國國軍" "這就是中華民國台灣"
## [5] "在中華民國國慶這一天" "中華民國生日快樂"ytword[grep(ytword, pattern = "台灣")]## [1] "慶賀中華民國台灣"
## [2] "無論對台灣或全世界"
## [3] "才讓國際社會看到台灣「堅韌之島」的特質和能耐"
## [4] "都在談論台灣的防疫表現"
## [5] "台灣在國際上的面貌"
## [6] "要歸功於全體台灣人民的團結 合作"
## [7] "讓台灣成為世界的模範生"
## [8] "表達他們對台灣的敬意的時候"
## [9] "謝謝他們為台灣所做的付出"
## [10] "台灣成為全球少數可以維持經濟正成長的國家"
## [11] "對台灣經濟發展的信心更強了"
## [12] "台灣資本長期以來外流的趨勢"
## [13] "也在加碼投資台灣"
## [14] "台灣和美國將進行高層經濟對話"
## [15] "台灣會持續展現我們的韌性"
## [16] "打造大家所期待的新台灣經濟"
## [17] "讓台灣成為全球供應鏈不可或缺關鍵力量"
## [18] "我們要打造台灣成為國際資本"
## [19] "我們也會運用台灣在資通訊"
## [20] "讓台灣經濟再起的紅利"
## [21] "台灣經濟的前景"
## [22] "才能保障台灣的安全"
## [23] "這就是中華民國台灣"
## [24] "北京如果能夠正視台灣的聲音"
## [25] "和台灣共同促成兩岸的和解及和平對話"
## [26] "但這不是台灣可以單方面承擔的"
## [27] "這就是台灣人民的主張"
## [28] "台灣人民在對外關係以及國家安全的議題上"
## [29] "台灣人民都希望區域的和平繁榮"
## [30] "成功更正了國際組織矮化台灣的做法"
## [31] "台灣經歷的一切"
## [32] "可以凝聚出台灣人民團結的意識"
## [33] "捍衛台灣安全"
## [34] "留給台灣的下一代"
## [35] "也為台灣的多元文化"
## [36] "讓世世代代的台灣人"
## [37] "願二十年後的台灣人"# 4. 請將提及中華民國、台灣的句子輸出為txt檔，檔名為roctw
roc <- ytword[grep(ytword, pattern = "中華民國")]
tw <- ytword[grep(ytword, pattern = "台灣")]
roctw <- paste(roc, tw)
roctw## [1] "今天是中華民國109年的國慶日 慶賀中華民國台灣"
## [2] "慶賀中華民國台灣 無論對台灣或全世界"
## [3] "這就是中華民國國軍 才讓國際社會看到台灣「堅韌之島」的特質和能耐"
## [4] "這就是中華民國台灣 都在談論台灣的防疫表現"
## [5] "在中華民國國慶這一天 台灣在國際上的面貌"
## [6] "中華民國生日快樂 要歸功於全體台灣人民的團結 合作"
## [7] "今天是中華民國109年的國慶日 讓台灣成為世界的模範生"
## [8] "慶賀中華民國台灣 表達他們對台灣的敬意的時候"
## [9] "這就是中華民國國軍 謝謝他們為台灣所做的付出"
## [10] "這就是中華民國台灣 台灣成為全球少數可以維持經濟正成長的國家"
## [11] "在中華民國國慶這一天 對台灣經濟發展的信心更強了"
## [12] "中華民國生日快樂 台灣資本長期以來外流的趨勢"
## [13] "今天是中華民國109年的國慶日 也在加碼投資台灣"
## [14] "慶賀中華民國台灣 台灣和美國將進行高層經濟對話"
## [15] "這就是中華民國國軍 台灣會持續展現我們的韌性"
## [16] "這就是中華民國台灣 打造大家所期待的新台灣經濟"
## [17] "在中華民國國慶這一天 讓台灣成為全球供應鏈不可或缺關鍵力量"
## [18] "中華民國生日快樂 我們要打造台灣成為國際資本"
## [19] "今天是中華民國109年的國慶日 我們也會運用台灣在資通訊"
## [20] "慶賀中華民國台灣 讓台灣經濟再起的紅利"
## [21] "這就是中華民國國軍 台灣經濟的前景"
## [22] "這就是中華民國台灣 才能保障台灣的安全"
## [23] "在中華民國國慶這一天 這就是中華民國台灣"
## [24] "中華民國生日快樂 北京如果能夠正視台灣的聲音"
## [25] "今天是中華民國109年的國慶日 和台灣共同促成兩岸的和解及和平對話"
## [26] "慶賀中華民國台灣 但這不是台灣可以單方面承擔的"
## [27] "這就是中華民國國軍 這就是台灣人民的主張"
## [28] "這就是中華民國台灣 台灣人民在對外關係以及國家安全的議題上"
## [29] "在中華民國國慶這一天 台灣人民都希望區域的和平繁榮"
## [30] "中華民國生日快樂 成功更正了國際組織矮化台灣的做法"
## [31] "今天是中華民國109年的國慶日 台灣經歷的一切"
## [32] "慶賀中華民國台灣 可以凝聚出台灣人民團結的意識"
## [33] "這就是中華民國國軍 捍衛台灣安全"
## [34] "這就是中華民國台灣 留給台灣的下一代"
## [35] "在中華民國國慶這一天 也為台灣的多元文化"
## [36] "中華民國生日快樂 讓世世代代的台灣人"
## [37] "今天是中華民國109年的國慶日 願二十年後的台灣人"write.csv(roctw, file = "roctw.txt", row.names = FALSE)
### 題組三 sav檔(spss的檔案)資料輸入與輸出
# 請至台灣傳播資料庫下載「2019年調查」的sav檔
# 網址:https://data.gov.tw/dataset/116285
# 1. 將輸入的sav檔案命名為tcs2019
# install.packages("sjlabelled")
# 2. 檢視資料
# 當資料較大時，建議使用sjPlot套件
#安裝sjPlot套件家族
# 上網檢視cran檔: https://cran.r-project.org/web/packages/sjPlot/sjPlot.pdf
# install.packages("sjPlot")
# 3. 篩選出變數:性別(a1)、追劇上癮(g5.8,g5.9,g5.14)、
# 電玩上癮(j2.1,j2.2,j2.3)，另存為sav檔，並命名為com
# 介紹好用的套件rio
# https://cran.r-project.org/web/packages/rio/rio.pdf
# 參考https://blog.gtwang.org/r/rio-package-import-export-convert-data-files-tutorial/
# install.packages("rio") # install_formats()
### 題組四 JSON檔資料輸入與輸出
# 請至政府資料開放平台下載「年度國內主要經濟指標」的json檔
# 網址:https://data.gov.tw/dataset/130489
# 1. 將輸入的json檔案變成資料框，並命名為eco
# 參考https://blog.gtwang.org/r/jsonlite-json-format-parser-generator-tutorial/
# https://cran.r-project.org/web/packages/jsonlite/jsonlite.pdf
# install.packages("jsonlite")
# 2. 篩選第1-5,16-17欄，輸出為json檔，命名為eco1
## 課本的方法容易有錯誤碼、中文字為亂碼
# data1 <- read.table("service.csv", header = TRUE, sep = ",")
# View(data1) #全部中文字是亂碼
# data2 <-read.csv("service.csv",header = TRUE, encoding = "UTF-8")
# View(data2) #欄位名稱為亂碼
# data3 <-read.csv("http://www.mnd.gov.tw/NewUpload/202102/憲兵指揮部國軍官兵營外急難服務中心設置地點一覽表_1100219_011059.csv")
# View(data3) #欄位名稱為亂碼
# str(data3)
# # # R讀取中文檔案產生亂碼等錯誤問題 http://rwepa.blogspot.com/2017/09/ansifileencoding.html
# # 此檔案可成功輸入: https://data.gov.tw/dataset/136470
# data2 <-read.csv("service.csv",header = TRUE, encoding = "UTF-8")
# View(data2) #欄位名稱為亂碼