# 周次：w10
# 任務：資料輸入與輸出
# 姓名：沈威至
# 日期：2021年04月16日# 政府資料開放平台: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.csv")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## 醫事機構代碼 = col_character(),
## 醫事機構名稱 = col_character(),
## 醫事機構地址 = col_character(),
## 醫事機構電話 = col_character(),
## 成人口罩剩餘數 = col_double(),
## 兒童口罩剩餘數 = col_double(),
## 來源資料時間 = col_character()
## )# 或是直接檔案的存取網路位址
# 檢視資料
# View(maskdata)
#Named(maskdata)
#norw(maskdata)
#summary(maskdata)
# 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
## 203 22 7 21 10 9 10 11 13 17 7 12 7
## 130 140 150 160 170 180 190 200 210 220 230 240 250
## 12 13 19 11 16 8 19 13 6 20 18 12 14
## 260 270 280 290 300 310 320 330 340 350 360 370 380
## 22 13 17 14 12 26 10 13 20 13 10 22 21
## 390 400 410 420 430 440 450 460 470 480 490 500 510
## 15 14 15 23 17 21 11 10 18 10 23 14 20
## 520 530 540 550 560 570 580 590 600 610 620 630 640
## 19 23 24 12 21 18 18 24 11 23 19 16 24
## 650 660 670 680 690 700 710 720 730 740 750 760 770
## 20 17 19 24 22 24 22 21 21 21 15 24 17
## 780 790 800 810 820 830 840 850 860 870 880 890 900
## 27 20 19 18 18 17 27 18 11 19 20 24 22
## 910 920 930 940 950 960 970 980 990 1000 1010 1020 1030
## 14 22 13 17 17 14 15 11 14 21 19 12 20
## 1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160
## 13 19 15 23 25 14 14 14 20 19 17 12 13
## 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290
## 17 26 11 19 20 16 19 18 12 23 15 22 23
## 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420
## 17 17 18 17 23 20 17 18 19 17 16 29 23
## 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550
## 18 27 15 26 14 16 17 13 26 16 17 17 14
## 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680
## 16 20 13 18 19 19 15 8 21 22 20 16 17
## 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810
## 10 19 28 19 15 13 24 26 17 22 22 19 20
## 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940
## 24 17 14 22 18 27 28 26 26 24 31 23 34
## 1950 1960 1970 1980 1990 2000 2010 2020 2030 2040 2050 2060 2070
## 26 24 22 28 42 64 20 21 15 15 19 8 14
## 2080 2090 2100 2110 2120 2130 2140 2150 2160 2170 2180 2190 2200
## 17 21 20 12 8 7 17 15 18 5 12 12 8
## 2210 2220 2230 2240 2250 2260 2270 2280 2289 2290 2300 2310 2320
## 10 4 10 10 12 6 6 5 1 8 6 14 7
## 2330 2340 2350 2360 2370 2380 2390 2400 2410 2420 2430 2440 2450
## 7 10 6 5 5 3 4 5 8 6 7 5 4
## 2460 2470 2480 2490 2500 2510 2520 2530 2540 2550 2560 2570 2580
## 4 2 6 3 5 6 8 3 3 7 4 6 4
## 2590 2600 2610 2620 2630 2640 2650 2660 2670 2680 2690 2700 2710
## 6 5 4 2 7 6 5 8 2 3 2 5 3
## 2720 2730 2740 2750 2760 2770 2780 2790 2800 2810 2820 2830 2850
## 3 4 5 2 1 4 1 2 8 6 2 4 6
## 2860 2870 2880 2890 2900 2910 2920 2930 2940 2950 2960 2970 2980
## 3 4 5 3 4 3 5 4 6 6 8 6 3
## 2990 3000 3010 3020 3030 3040 3050 3060 3070 3080 3090 3100 3110
## 4 3 1 3 2 3 5 4 5 5 5 3 3
## 3120 3130 3140 3150 3160 3170 3180 3190 3210 3220 3230 3240 3250
## 4 3 2 5 1 6 3 2 2 8 3 1 4
## 3260 3270 3280 3290 3300 3310 3320 3340 3350 3360 3370 3380 3390
## 7 3 6 1 6 6 2 5 3 2 3 1 5
## 3400 3410 3420 3430 3440 3450 3470 3480 3490 3500 3510 3520 3530
## 6 3 2 3 2 2 1 1 1 6 2 3 4
## 3540 3550 3560 3570 3580 3590 3600 3610 3620 3630 3640 3650 3660
## 1 1 3 4 2 1 1 7 1 2 2 3 3
## 3670 3680 3690 3700 3730 3740 3750 3760 3770 3790 3800 3810 3820
## 2 2 2 5 2 1 2 1 4 2 3 3 1
## 3830 3850 3860 3870 3880 3890 3900 3910 3920 3940 3950 3960 3970
## 1 1 4 1 2 3 1 1 1 2 1 1 2
## 3980 3990 4000 4010 4020 4030 4040 4060 4070 4090 4120 4140 4150
## 1 1 1 1 3 1 1 2 2 2 2 2 2
## 4160 4170 4180 4200 4220 4230 4240 4250 4260 4270 4280 4290 4300
## 2 1 1 2 1 1 1 1 2 2 2 1 1
## 4310 4320 4330 4350 4400 4410 4440 4450 4470 4480 4490 4520 4530
## 2 2 5 1 1 1 2 2 2 1 1 1 4
## 4540 4550 4560 4570 4590 4620 4660 4680 4740 4750 4790 4810 4820
## 1 2 2 2 4 2 4 2 2 1 2 1 2
## 4840 4850 4860 4870 4880 4890 4910 4920 4930 4940 4960 4970 4990
## 2 2 1 2 1 2 2 3 2 3 1 2 1
## 5010 5040 5050 5080 5100 5130 5140 5150 5190 5220 5240 5260 5280
## 1 2 1 1 1 1 2 1 1 1 1 4 2
## 5290 5300 5310 5320 5340 5350 5360 5370 5380 5390 5400 5410 5420
## 2 2 2 1 1 1 1 1 2 1 2 1 1
## 5430 5440 5460 5470 5480 5520 5560 5590 5610 5660 5680 5700 5730
## 1 2 1 2 2 1 2 1 2 2 1 1 2
## 5770 5800 5830 5840 5860 5880 5890 5900 5910 5950 5980 6000 6030
## 2 3 1 1 2 2 2 1 1 1 1 2 2
## 6040 6060 6090 6100 6110 6120 6140 6150 6160 6170 6200 6220 6230
## 2 1 1 1 1 1 1 1 1 2 1 1 1
## 6240 6260 6290 6320 6340 6360 6370 6400 6410 6420 6430 6450 6470
## 1 2 1 1 1 1 1 1 1 1 1 1 1
## 6480 6500 6520 6550 6600 6610 6620 6670 6690 6720 6730 6750 6820
## 1 1 1 2 1 1 1 1 1 1 2 1 1
## 6830 6860 6900 6910 6940 6950 6960 6970 7040 7070 7210 7220 7230
## 1 1 1 2 2 1 1 2 1 1 1 1 1
## 7320 7340 7350 7410 7470 7480 7490 7570 7630 7650 7720 7820 7840
## 1 1 1 1 1 1 2 1 1 1 1 1 1
## 7850 7860 7900 7980 8000 8250 8380 8450 8510 8580 8620 8710 9030
## 1 1 1 1 4 1 1 1 1 1 1 1 1
## 9100 9160 9290 9660 10000 10520 10790 11730 12000 16000
## 1 1 1 1 2 1 1 1 1 1table(mask1$childmask)##
## 0 10 20 30 40 50 60 70 80 90 100 110 120
## 131 14 16 6 8 9 8 10 15 8 10 14 9
## 130 140 150 160 170 180 190 200 210 220 230 240 250
## 9 13 15 22 19 13 12 20 16 14 17 23 12
## 260 270 280 290 300 310 320 330 340 350 360 370 380
## 27 22 19 15 12 13 16 15 24 17 16 20 26
## 390 400 410 420 430 440 450 460 470 480 490 500 510
## 24 14 27 21 19 20 28 21 16 16 18 18 20
## 520 530 540 550 560 570 580 590 600 610 620 630 640
## 14 25 12 35 22 22 23 24 28 25 23 20 21
## 650 660 670 680 690 700 710 720 730 740 750 760 770
## 25 34 27 28 33 22 21 28 22 29 30 40 35
## 780 790 800 810 820 830 840 850 860 870 880 890 900
## 24 23 39 26 25 37 36 35 28 24 33 28 35
## 910 920 930 940 950 960 970 980 990 1000 1010 1020 1030
## 35 32 34 40 27 43 44 44 29 42 43 38 41
## 1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160
## 39 44 50 37 41 37 35 34 32 34 39 38 43
## 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290
## 38 43 51 43 48 41 34 44 25 46 37 43 40
## 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420
## 29 39 43 34 32 45 39 32 30 29 33 35 40
## 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550
## 35 24 26 32 31 27 40 27 30 25 38 31 27
## 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680
## 27 19 29 27 25 29 18 31 16 24 17 23 20
## 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810
## 6 15 25 16 16 13 18 23 10 21 16 10 12
## 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940
## 10 11 14 15 4 12 11 10 12 9 6 5 9
## 1950 1960 1970 1980 1990 2000 2010 2020 2050 2060 2070 2080 2100
## 6 7 2 7 2 7 2 4 2 2 3 3 4
## 2110 2120 2130 2140 2150 2160 2170 2200 2210 2230 2260 2290 2340
## 4 2 1 2 1 1 1 1 2 1 2 1 1
## 2420 2440 2610 2640 2660 2920 2970 20320
## 1 1 1 2 1 1 1 1# 4. 超過5000個成人口罩的機構有哪些? 物件名稱為mask5000
mask5000 <- subset(maskdata,adultmask>5000)
# 5. 將超過5000個成人口罩的機構輸出為csv檔，命名為mask5000
write.csv(mask5000, file = "mask5000.csv", row.names = F)
### 題組二 txt檔資料輸入與輸出
## 一、當資料為表格型態(方法與csv方式相同)
# 請至政府資料開放平台下載「國軍臺中總醫院就醫收費標準表」的txt檔
# 網址:https://data.gov.tw/dataset/37783
# 1. 將輸入的txt檔案命名為hospital
library(reader)## Loading required package: NCmisc##
## Attaching package: 'reader'## The following objects are masked from 'package:NCmisc':
##
## cat.path, get.ext, rmv.exthospital <- 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?fbclid=IwAR0tXPF-e6R17FNzIK5QBU1yDJN2fSVz-ac6Dg0Ri99e-nMpCuQLJlfdMCs")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## 項目 = col_character(),
## 一般門診掛號費 = col_double(),
## 一般門診部分負擔 = col_double(),
## 急診掛號費 = col_double(),
## 急診部分負擔 = col_double()
## )# 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("2020國慶大會.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. 請問演講中分別提及中華民國、台灣幾次?
grep(ytword, pattern = "中華民國")## [1] 11 23 507 665 873 905length(grep(ytword, pattern = "台灣"))## [1] 37# 3. 請問演講中如何談中華民國、台灣?
# 4. 請將提及中華民國、台灣的句子輸出為txt檔，檔名為roctw
### 題組三 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