# 周次：w11
# 任務：csv檔資料輸入與輸出
# 姓名：許安恬
# 日期：2021年4月16日
### 題組一 csv檔資料輸入與輸出
# 請至政府資料開放平台下載「健保特約機構口罩剩餘數量明細清單」的csv檔
# 網址:https://data.gov.tw/dataset/116285
# 將輸入的csv檔案命名為maskdata
# install.packages( "tidyverse" )
library(readr)
maskdata <- read_csv("maskdata.csv")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## .default = col_character(),
## 年度 = col_double(),
## 失業率 = col_double(),
## `基本工資（元）-月薪` = col_double(),
## `基本工資（元）-時薪` = col_double()
## )
## ℹ Use `spec()` for the full column specifications.# 或是直接檔案的存取網路位址
library(readr)
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)
# 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
## 193 16 6 14 6 5 3 6 5 6 3 5 6
## 130 140 150 160 180 190 200 210 220 230 240 250 260
## 10 5 9 10 7 2 5 7 4 9 3 6 12
## 270 280 290 300 310 320 330 340 350 360 370 380 390
## 8 11 9 7 10 9 8 10 7 16 6 12 12
## 400 410 420 430 440 450 460 470 480 490 500 510 520
## 11 8 13 14 8 9 10 12 9 14 18 13 13
## 530 540 550 560 570 580 590 600 610 620 630 640 650
## 14 14 18 17 10 11 12 10 12 17 17 12 10
## 660 670 680 690 700 710 720 730 740 750 760 770 780
## 13 8 13 18 15 11 11 11 14 13 18 12 17
## 790 800 810 820 830 840 850 860 870 880 890 900 910
## 23 10 11 13 19 14 14 21 13 21 18 22 18
## 920 930 940 950 960 970 980 990 1000 1010 1020 1030 1040
## 15 23 21 13 16 16 13 19 18 12 15 17 17
## 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160 1170
## 20 20 22 25 15 18 16 15 25 16 19 22 16
## 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290 1300
## 19 17 13 24 23 18 27 21 16 14 25 14 15
## 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420 1430
## 19 17 18 18 16 17 21 16 19 18 25 31 18
## 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550 1560
## 19 22 21 20 25 20 28 16 24 13 22 22 22
## 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680 1690
## 16 17 19 31 16 27 24 14 26 14 24 13 26
## 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810 1820
## 16 19 23 18 12 23 25 15 18 24 23 22 19
## 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940 1950
## 17 21 12 22 20 15 16 15 23 28 17 22 25
## 1960 1970 1980 1990 2000 2010 2020 2030 2040 2050 2060 2070 2080
## 20 25 19 20 36 26 16 22 20 30 23 20 23
## 2090 2100 2110 2120 2130 2140 2150 2160 2170 2180 2190 2200 2210
## 27 21 15 19 19 17 16 20 13 16 25 14 17
## 2220 2230 2240 2250 2260 2270 2280 2289 2290 2300 2310 2320 2330
## 15 10 10 19 10 15 15 1 20 14 8 17 12
## 2340 2350 2360 2370 2380 2390 2400 2410 2420 2430 2440 2450 2460
## 12 19 7 16 17 8 12 11 14 15 8 8 12
## 2470 2480 2490 2500 2510 2520 2530 2540 2550 2560 2570 2580 2590
## 9 10 15 11 9 10 11 9 12 14 12 4 10
## 2600 2610 2620 2630 2640 2650 2660 2670 2680 2690 2700 2710 2720
## 6 5 7 9 10 9 8 13 1 9 9 7 7
## 2730 2740 2750 2760 2770 2780 2790 2800 2810 2820 2830 2840 2850
## 6 9 5 4 13 5 6 8 5 3 7 8 6
## 2860 2870 2880 2890 2900 2910 2920 2930 2940 2950 2960 2970 2980
## 3 9 7 10 6 7 4 7 4 5 3 8 4
## 2990 3000 3010 3020 3030 3040 3050 3060 3070 3080 3090 3100 3110
## 4 9 3 3 6 4 2 11 4 2 3 4 4
## 3120 3130 3140 3150 3160 3170 3180 3190 3200 3210 3220 3230 3240
## 2 4 4 5 4 3 4 3 1 4 4 5 9
## 3250 3260 3270 3280 3290 3300 3310 3320 3330 3340 3350 3360 3370
## 2 5 4 3 3 3 2 2 5 8 3 2 1
## 3380 3390 3400 3410 3420 3430 3440 3450 3460 3470 3480 3490 3500
## 7 4 1 5 3 4 1 5 3 5 2 3 4
## 3510 3520 3530 3540 3550 3560 3570 3580 3590 3600 3610 3620 3630
## 2 1 3 3 1 4 4 3 2 1 5 1 2
## 3640 3650 3660 3670 3700 3710 3720 3730 3740 3750 3780 3790 3800
## 5 1 1 2 4 1 3 3 4 2 4 4 4
## 3810 3820 3830 3840 3850 3860 3870 3880 3890 3900 3910 3920 3930
## 2 4 2 3 4 1 1 3 7 4 1 3 5
## 3940 3950 3960 3980 3990 4000 4010 4020 4030 4050 4060 4070 4080
## 1 3 1 5 4 2 2 3 3 1 2 6 1
## 4090 4100 4110 4120 4130 4140 4150 4170 4180 4190 4200 4210 4220
## 1 3 4 2 3 2 3 1 2 2 1 1 1
## 4230 4240 4250 4260 4270 4280 4290 4310 4320 4330 4340 4370 4380
## 3 1 2 1 3 1 2 2 1 3 1 1 1
## 4390 4400 4410 4420 4430 4470 4480 4500 4520 4530 4540 4550 4560
## 3 2 1 2 3 1 1 2 3 1 2 2 4
## 4590 4600 4680 4690 4700 4710 4720 4730 4760 4790 4800 4810 4830
## 3 2 4 2 1 1 2 1 2 2 1 1 1
## 4840 4850 4860 4870 4880 4890 4940 5000 5020 5050 5060 5080 5090
## 1 1 2 1 1 3 1 2 1 1 2 1 2
## 5100 5110 5170 5180 5190 5200 5210 5220 5230 5240 5260 5270 5280
## 2 2 1 3 2 1 1 1 3 1 2 2 1
## 5310 5320 5340 5350 5370 5390 5440 5450 5460 5500 5520 5530 5560
## 1 1 1 1 1 1 1 1 1 1 1 1 2
## 5570 5600 5610 5620 5650 5660 5670 5690 5700 5720 5730 5760 5770
## 1 1 1 2 1 1 1 1 1 1 1 1 1
## 5800 5820 5870 5890 5900 5910 5920 5950 5970 5990 6000 6020 6030
## 2 1 1 4 1 1 1 1 1 1 3 2 1
## 6050 6070 6100 6120 6130 6140 6150 6200 6210 6250 6270 6280 6290
## 1 1 1 1 2 1 1 1 1 1 2 1 1
## 6300 6320 6350 6360 6390 6440 6450 6460 6480 6500 6530 6550 6570
## 1 1 1 1 1 1 1 1 1 1 1 1 1
## 6590 6620 6630 6650 6660 6690 6760 6800 6810 6880 6940 6950 6960
## 1 1 2 1 1 1 1 1 3 1 2 1 1
## 6970 7070 7130 7190 7220 7310 7340 7410 7450 7470 7480 7570 7600
## 2 1 2 1 2 1 1 1 1 1 1 1 1
## 7630 7720 7820 7840 7850 7960 7980 8000 8080 8250 8380 8450 8460
## 3 1 1 1 1 1 1 3 1 1 1 1 1
## 8540 8560 8610 9020 9160 9280 9640 10000 10290 10330 11680 12000 16000
## 1 1 1 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
## 112 14 9 3 6 2 5 5 9 9 1 4 7
## 130 140 150 160 170 180 190 200 210 220 230 240 250
## 3 7 4 12 8 9 8 11 6 12 9 10 9
## 260 270 280 290 300 310 320 330 340 350 360 370 380
## 11 10 9 10 8 11 11 8 12 18 14 18 22
## 390 400 410 420 430 440 450 460 470 480 490 500 510
## 22 14 15 17 24 17 13 26 20 21 32 20 22
## 520 530 540 550 560 570 580 590 600 610 620 630 640
## 26 33 26 19 24 32 38 27 25 41 30 32 33
## 650 660 670 680 690 700 710 720 730 740 750 760 770
## 38 30 29 41 37 43 40 38 36 35 29 37 32
## 780 790 800 810 820 830 840 850 860 870 880 890 900
## 31 37 39 34 29 34 31 24 40 35 43 21 36
## 910 920 930 940 950 960 970 980 990 1000 1010 1020 1030
## 39 33 27 37 36 31 39 37 49 33 42 35 40
## 1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160
## 43 42 41 28 43 35 40 47 53 53 39 44 41
## 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290
## 45 35 43 55 46 36 45 42 44 31 45 43 47
## 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420
## 44 30 43 34 42 37 36 30 38 41 29 41 23
## 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540 1550
## 32 28 32 35 32 23 35 28 28 30 33 32 24
## 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680
## 25 21 25 20 17 17 20 19 26 11 21 15 29
## 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810
## 15 12 20 10 21 18 13 13 12 16 17 11 11
## 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940
## 10 12 11 13 8 7 9 8 6 8 5 8 9
## 1950 1960 1970 1980 1990 2000 2010 2020 2030 2040 2050 2060 2070
## 5 3 5 7 5 7 2 2 5 1 3 3 2
## 2080 2100 2110 2120 2130 2140 2150 2170 2180 2190 2220 2230 2240
## 4 2 4 3 2 2 1 3 1 1 1 1 1
## 2260 2270 2290 2340 2370 2520 2560 2600 2610 2910 2970 20320
## 1 1 1 1 1 1 1 1 1 1 1 1# 4. 超過5000個成人口罩的機構有哪些? 物件名稱為mask5000
mask5000 <- subset(maskdata,adultmask>5000)
#View(mask5000)
# 5. 將超過5000個成人口罩的機構輸出為csv檔，命名為mask5000
write.csv(mask5000,fileEncoding = "mask5000.csv",row.names = F)## "code","title","address","phone","adultmask","childmask","time"
## "2311030012","基隆市暖暖區衛生所","基隆市暖暖區暖暖街２８１巷９８號","(02)24572630",6970,1890,"2021/04/23 08:59:26"
## "2311050014","基隆市中山區衛生所","基隆市中山區中山二路１５號","(02)24229860",6530,600,"2021/04/23 08:59:26"
## "2311070016","基隆市信義區衛生所","基隆市信義區信一路６９號","(02)24221633",6360,1960,"2021/04/23 08:59:26"
## "2331080018","新北市鶯歌區衛生所","新北市鶯歌區文化路３８９號","(02)26702304",5110,260,"2021/04/23 08:59:26"
## "2331100015","新北市淡水區衛生所","新北市淡水區中山路１５８號","(02)26215620",5530,1580,"2021/04/23 08:59:26"
## "2331160011","新北市泰山區衛生所","新北市泰山區全興路２１２號３樓","(02)22962858",5270,1570,"2021/04/23 08:59:26"
## "2332030012","桃園市大溪區衛生所","桃園市大溪區仁愛路１號","(03)3882401",7220,1510,"2021/04/23 08:59:26"
## "2332040018","桃園市楊梅區衛生所","桃園市楊梅區校前路４０９號","(03)4750151",5020,1470,"2021/04/23 08:59:26"
## "2332060010","桃園市大園區衛生所","桃園市大園區田心里中正西路１９號","(03)3862024",11680,430,"2021/04/23 08:59:26"
## "2332090018","桃園市龍潭區衛生所","桃園市龍潭區中正路２１０號１至２樓","(03)4792033",8080,950,"2021/04/23 08:59:26"
## "2332100019","桃園市平鎮區衛生所","桃園市平鎮區新富里１鄰振興路１號","(03)4576624",8610,1270,"2021/04/23 08:59:26"
## "2332120011","桃園市觀音區衛生所","桃園市觀音區觀新路５８號","(03)4732031",10290,210,"2021/04/23 08:59:26"
## "2333010014","新竹縣關西鎮衛生所","新竹縣關西鎮中山路２０７號","(03)5872454",6270,380,"2021/04/23 08:59:26"
## "2334030010","宜蘭縣蘇澳鎮衛生所","宜蘭縣蘇澳鎮志成路６０號","(03)9962185",7630,700,"2021/04/23 08:59:26"
## "2334060018","宜蘭縣壯圍鄉衛生所","宜蘭縣壯圍鄉中央路２段２９０號","(03)9385503",5060,500,"2021/04/23 08:59:26"
## "2334070014","宜蘭縣員山鄉衛生所","宜蘭縣員山鄉復興路２號","(03)9221575",6130,1910,"2021/04/23 08:59:26"
## "2335040010","苗栗縣竹南鎮衛生所","苗栗縣竹南鎮大營路２０９號","(037)470152",7130,1830,"2021/04/23 08:59:26"
## "2335130019","苗栗縣三義鄉衛生所","苗栗縣三義鄉復興路45號","(037)872014",6020,750,"2021/04/23 08:59:26"
## "2336010016","臺中市豐原區衛生所","臺中市豐原區西勢里中興路１３６號","(04)25261170",5560,580,"2021/04/23 08:59:26"
## "2336020012","臺中市東勢區衛生所","臺中市東勢區中寧里豐勢路４９０號","(04)25873872",6030,650,"2021/04/23 08:59:26"
## "2336110011","臺中市新社區衛生所","臺中市新社區新社里興社街４段１號","(04)25811704",6630,640,"2021/04/23 08:59:26"
## "2336130013","臺中市外埔區衛生所","臺中市外埔區甲后路三段１０６２號","(04)26833208",6210,640,"2021/04/23 08:59:26"
## "2337070016","彰化縣田中鎮衛生所","彰化縣田中鎮西路里斗中路一段２２２號","(04)8742053",5200,690,"2021/04/23 08:59:26"
## "2337080012","彰化縣二林鎮衛生所","彰化縣二林鎮豐田里斗苑路四段６８９號","(04)8960035",5230,1820,"2021/04/23 08:59:26"
## "2337100019","彰化縣伸港鄉衛生所","彰化縣伸港鄉大同村中興路２段１９７號","(04)7982034",6100,1850,"2021/04/23 08:59:26"
## "2337140013","彰化縣芬園鄉衛生所","彰化縣芬園鄉社口村公園１街１１號","(049)2522904",5190,500,"2021/04/23 08:59:26"
## "2337160015","彰化縣埔鹽鄉衛生所","彰化縣埔鹽鄉好修村員鹿路二段５８號","(04)8653596",5870,1930,"2021/04/23 08:59:26"
## "2337170011","彰化縣埔心鄉衛生所","彰化縣埔心鄉義民村員鹿路２段３４０號","(04)8294611",5060,1850,"2021/04/23 08:59:26"
## "2337200014","彰化縣二水鄉衛生所","彰化縣二水鄉二水村過圳路１９號","(04)8791077",5620,750,"2021/04/23 08:59:26"
## "2337250014","彰化縣竹塘鄉衛生所","彰化縣竹塘鄉竹塘村竹林路１段３０４號","(04)8972009",9640,1920,"2021/04/23 08:59:26"
## "2337260010","彰化縣溪州鄉衛生所","彰化縣溪州鄉尾厝村溪下路５７０號","(04)8895023",5220,520,"2021/04/23 08:59:26"
## "2338040012","南投縣竹山鎮衛生所","南投縣竹山鎮公所路１２６號","(049)2642026",6000,1820,"2021/04/23 08:59:26"
## "2338100013","南投縣國姓鄉衛生所","南投縣國姓鄉國姓村民族街４２號","(049)2721009",5700,1940,"2021/04/23 08:59:26"
## "2339050012","雲林縣土庫鎮衛生所","雲林縣土庫鎮忠正里中山路２５４號","(05)6622638",6550,650,"2021/04/23 08:59:26"
## "2339060018","北港鎮衛生所","雲林縣北港鎮北辰路３號","(05)7832103",5730,1770,"2021/04/23 08:59:26"
## "2339100017","雲林縣林內鄉衛生所","雲林縣林內鄉新興路５４號","(05)5892273",5950,1730,"2021/04/23 08:59:26"
## "2339120019","雲林縣崙背鄉衛生所","雲林縣崙背鄉南陽村南光路３４號","(05)6962009",6460,1870,"2021/04/23 08:59:26"
## "2339180015","雲林縣四湖鄉衛生所","雲林縣四湖鄉施湖村中山西路１１８號","(05)7872890",6960,1910,"2021/04/23 08:59:26"
## "2340050019","嘉義縣溪口鄉衛生所","嘉義縣溪口鄉溪北村二鄰中山路１號","(05)2691046",6570,1670,"2021/04/23 08:59:26"
## "2341010019","臺南市新營區衛生所","臺南市新營區大宏里三民路７２號","(06)6329421",5090,1520,"2021/04/23 08:59:26"
## "2341020015","臺南市鹽水區衛生所","臺南市鹽水區武廟路１號","(06)6521041",5690,1980,"2021/04/23 08:59:26"
## "2341030011","臺南市白河區衛生所","臺南市白河區永安里國光路５號","(06)6852014",5970,1890,"2021/04/23 08:59:26"
## "2341090017","臺南市柳營區衛生所","臺南市柳營區士林里５４之５號","(06)6220464",5890,2910,"2021/04/23 08:59:26"
## "2341100018","臺南市後壁區衛生所","臺南市後壁區後壁里３號","(06)6872624",6950,1780,"2021/04/23 08:59:26"
## "2341150018","臺南市大內區衛生所","臺南市大內區大內里２號","(06)5761044",5520,510,"2021/04/23 08:59:26"
## "2341200013","台南市新市區衛生所","臺南市新市區新市里中興街１２號","(06)5992504",5990,490,"2021/04/23 08:59:26"
## "2341260019","臺南市左鎮區衛生所","臺南市左鎮區中正里１７２之１５號","(06)5731114",6280,640,"2021/04/23 08:59:26"
## "2342040011","高雄市美濃區衛生所","高雄市美濃區美中路２４６號","(07)6812064",5890,680,"2021/04/23 08:59:26"
## "2342220019","高雄市甲仙區衛生所","高雄市甲仙區和安里中山路５２號","(07)6751029",7980,800,"2021/04/23 08:59:26"
## "2390030030","金門縣金湖鎮衛生所","金門縣金湖鎮正義里成功７號之１","(082)336662",6660,1270,"2021/04/23 08:59:26"
## "2391030026","連江縣莒光鄉東莒衛生所","連江縣莒光鄉大坪村３０－１號","(083)689038",5670,600,"2021/04/23 08:59:26"
## "5901024927","高特敦南藥局","臺北市大安區信義路４段１１５號","(092)0318305",6450,1950,"2021/04/23 08:59:26"
## "5901091973","延平新聖安藥局","臺北市大同區延平北路３段３５號","(02)25923399",6350,1990,"2021/04/23 08:59:26"
## "5901102444","啟美藥師藥局","臺北市中山區錦州街２８２號","(02)25178032",5440,1810,"2021/04/23 08:59:26"
## "5901103629","十二願藥局","臺北市中山區林森北路３０９號","25311223",6760,1770,"2021/04/23 08:59:26"
## "5901112351","康信藥局","臺北市內湖區民權東路６段２９６巷２９號","(02)26342088",10000,1000,"2021/04/23 08:59:26"
## "5901152837","文昌大藥局","臺北市士林區文昌路７２號","(02)28376196",6940,1780,"2021/04/23 08:59:26"
## "5903050256","大安心藥局","臺中市沙鹿區星河路１２－１號１樓","26620082",5080,1820,"2021/04/23 08:59:26"
## "5903200461","合康藥局","臺中市大里區中投西路３段２２３號１樓","(04)24078383",6810,690,"2021/04/23 08:59:26"
## "5903280487","康詮藥師藥局","臺中市南屯區大墩路７３２號","(04)23286688",5240,1580,"2021/04/23 08:59:26"
## "5903291015","西德藥局","臺中市北屯區太順路８０號１樓","24366711",5340,1410,"2021/04/23 08:59:26"
## "5905050156","延興藥局","臺南市佳里區鎮山里延平路７６號１樓","(06)7238544",6690,1290,"2021/04/23 08:59:26"
## "5905060081","新化景惠藥局","臺南市新化區護國里中山路１８５號","(06)5909659",7340,1800,"2021/04/23 08:59:26"
## "5905060125","美麗安藥局","臺南市新化區護國里中山路１５０－１號１樓","(06)5909509",7820,800,"2021/04/23 08:59:26"
## "5905210027","愛心藥師藥局","臺南市安定區港南里港口１４７號","(06)5935104",6620,1460,"2021/04/23 08:59:26"
## "5905270112","昱欣藥局","臺南市仁德區中正路２段１１８１號１樓","(06)2798970",5760,620,"2021/04/23 08:59:26"
## "5905310157","信仁藥局","臺南市永康區中華西街１４９號","(06)2337755",7190,630,"2021/04/23 08:59:26"
## "5905310988","小東藥局","臺南市永康區小東路５７３號１樓","(06)3127169",6650,1740,"2021/04/23 08:59:26"
## "5905350017","健盟藥局","臺南市北區北安路一段２０６號１樓","(06)2523988",5890,720,"2021/04/23 08:59:26"
## "5905350517","健盟藥局","臺南市北區北安路一段２０６號１樓","(06)2523988",5890,720,"2021/04/23 08:59:26"
## "5907030134","旗山啄木鳥藥局","高雄市旗山區中華路１０５０號","(07)6625728",5280,680,"2021/04/23 08:59:26"
## "5907360459","聯合藥局","高雄市前鎮區一心一路２８１號１樓","(07)3391535",8380,800,"2021/04/23 08:59:26"
## "5907380059","百鴻中西大藥局","高雄市小港區康莊路１１５號","(07)8024141",7960,1970,"2021/04/23 08:59:26"
## "5911011290","家康大藥局","基隆市中正區義一路７２號１樓","(02)24212412",6390,580,"2021/04/23 08:59:26"
## "5911041921","祥新藥局","基隆市仁愛區忠一路２０號１樓","(02)24265551",6130,1930,"2021/04/23 08:59:26"
## "5912040197","芳鄰藥局","新竹市北區光田里水田街１５７號","(03)5314948",5800,520,"2021/04/23 08:59:26"
## "5917030128","太信藥局","臺中市西區三民路一段９５－１號１樓","(04)23718318",6050,630,"2021/04/23 08:59:26"
## "5922012721","仁藥集藥局","嘉義市東區太平里新生路５３９號","(05)2755533",5370,570,"2021/04/23 08:59:26"
## "5922020796","佑安藥局","嘉義市西區民權路４２３號１樓","(05)2278298",7310,1350,"2021/04/23 08:59:26"
## "5931010342","宏達大藥局","新北市板橋區莒光路１７號","(02)22572345",8000,800,"2021/04/23 08:59:26"
## "5931014635","健全藥局","新北市板橋區實踐路１２５號１樓","(02)89533330",6200,1590,"2021/04/23 08:59:26"
## "5931016531","利安藥師藥局","新北市板橋區南雅西路２段１１７號及１１９號１樓","(02)29666951",5260,290,"2021/04/23 08:59:26"
## "5931016540","新海藥局","新北市板橋區新海路１２２號１、２樓","(02)22500190",12000,1200,"2021/04/23 08:59:26"
## "5931016595","宥康婦幼健保藥局","新北市板橋區仁化街３０號１樓","(02)82528162",7570,760,"2021/04/23 08:59:26"
## "5931016719","王林藥局","新北市板橋區忠孝路２４巷１５號（１樓）","(02)29636775",10330,430,"2021/04/23 08:59:26"
## "5931016915","微笑藥局","新北市板橋區中正路２１１號","(02)29655811",5650,1370,"2021/04/23 08:59:26"
## "5931017181","順儷民權藥局","新北市板橋區民權路２３４號１樓","(02)29609555",7410,1930,"2021/04/23 08:59:26"
## "5931020991","久洲藥局","新北市三重區長元街５１－９號","(02)29783515",6440,620,"2021/04/23 08:59:26"
## "5931022806","聯鑫藥師藥局","新北市三重區正義北路２６９號","(02)89829880",6000,2000,"2021/04/23 08:59:26"
## "5931025727","仁美藥局","新北市三重區慈愛街５１號１、２樓","(02)22805150",6940,2610,"2021/04/23 08:59:26"
## "5931040082","中和光田藥局","新北市中和區連城路４８號","(02)22459602",5900,1670,"2021/04/23 08:59:26"
## "5931042728","上元藥局","新北市中和區景平路１６０號２樓","(02)29408050",5320,630,"2021/04/23 08:59:26"
## "5931044679","以法蓮藥局","新北市中和區中興街１５４號１樓","(02)22438983",5310,570,"2021/04/23 08:59:26"
## "5931060619","蘇藥局","新北市新莊區中平路６巷３７號","(02)29917818",5270,1600,"2021/04/23 08:59:26"
## "5931067216","鍵豐藥局","新北市新莊區中和街１５８號１樓","(02)29917452",5610,1780,"2021/04/23 08:59:26"
## "5931068991","新莊健業藥局","新北市新莊區昌平街３７號１樓至２樓","(02)22798808",5100,1320,"2021/04/23 08:59:26"
## "5931069505","陽光連鎖藥局","新北市新莊區中信街４０號１樓","(02)22774300",5460,350,"2021/04/23 08:59:26"
## "5931069765","健業藥妝藥局","新北市新莊區中和街１３０號１樓","(02)22796279",8560,1800,"2021/04/23 08:59:26"
## "5931069792","宏泰藥局","新北市新莊區自信街３７號１樓","(02)29964649",7600,1930,"2021/04/23 08:59:26"
## "5931070044","正宜藥局","新北市樹林區佳園路１段３９號","(02)26805678",5570,190,"2021/04/23 08:59:26"
## "5931072217","樹林健業藥局","新北市樹林區東華街８９號１樓","(02)86851736",7220,2030,"2021/04/23 08:59:26"
## "5931091972","三峽大昌藥局","新北市三峽區民生街５６號１樓","(02)26711560",5450,1320,"2021/04/23 08:59:26"
## "5931112850","躍獅大同藥局","新北市汐止區新興路７號１樓","(02)26418399",8000,1980,"2021/04/23 08:59:26"
## "5931132307","廣昇健保藥師藥局","新北市土城區明德路１段５３號","(02)22638300",5170,1780,"2021/04/23 08:59:26"
## "593201A015","悅民藥局","桃園市桃園區中山東路１１９－１號","(03)3350452",5820,1560,"2021/04/23 08:59:26"
## "5932023656","思琁藥師藥局","桃園市中壢區中北路二段４３０號","(03)4162189",8540,2080,"2021/04/23 08:59:26"
## "593202B732","愛康藥師藥局","桃園市中壢區龍岡路一段２３０號１樓","(03)4285907",5210,600,"2021/04/23 08:59:26"
## "5932043354","佳品藥局","桃園市楊梅區大成路１０４號１樓","(03)4752927",6250,1790,"2021/04/23 08:59:26"
## "5932052540","南竹健保藥局","桃園市蘆竹區南竹路一段７６號１樓","(03)3526182",6630,520,"2021/04/23 08:59:26"
## "5932062046","家宏藥局","桃園市大園區祰林里三民路二段４６６號","(03)3838866",8000,2000,"2021/04/23 08:59:26"
## "5932070253","高田藥師藥局","桃園市龜山區山鶯路７６號","(03)3336363",8250,730,"2021/04/23 08:59:26"
## "5932077298","家和藥局","桃園市龜山區建國東路９７號","(03)3196416",5500,500,"2021/04/23 08:59:26"
## "5932083965","安平藥局","桃園市八德區興豐路６５２號１樓","(03)3732071",5050,830,"2021/04/23 08:59:26"
## "5932084515","第二店廣福藥局","桃園市八德區廣福路９１號","(03)3660848",5560,1630,"2021/04/23 08:59:26"
## "5932100989","南勢長青藥師藥局","桃園市平鎮區中豐路南勢二段５３１號","(03)4030060",10000,1000,"2021/04/23 08:59:26"
## "5933010064","明德藥局","新竹縣關西鎮中山路１８號","(03)5874335",5190,1330,"2021/04/23 08:59:26"
## "5933031796","春天藥局","新竹縣竹東鎮長春路二段９５號","(03)5967995",6500,640,"2021/04/23 08:59:26"
## "5934010228","中一藥局","宜蘭縣宜蘭市慈安路４１－３號","(03)9385962",6300,1750,"2021/04/23 08:59:26"
## "5934010282","厚生藥局","宜蘭縣宜蘭市復興路２２號","(03)9322166",6590,700,"2021/04/23 08:59:26"
## "5934012062","鴻馨藥師健保藥局","宜蘭縣宜蘭市康樂路１３９號","(03)9333408",9020,710,"2021/04/23 08:59:26"
## "5934030051","正蘇西西藥局","宜蘭縣蘇澳鎮中山路一段４７號","(03)9965380",7130,1660,"2021/04/23 08:59:26"
## "5935010222","正欣藥局","苗栗縣苗栗市清華里褔星街６０號","(037)264502",5800,1800,"2021/04/23 08:59:26"
## "5935040079","德安藥局","苗栗縣竹南鎮光復路４０號","(037)479933",7630,1790,"2021/04/23 08:59:26"
## "5935041469","順春藥局","苗栗縣竹南鎮延平路２７號之１２","(037)552068",6320,1940,"2021/04/23 08:59:26"
## "5935051705","博士生活藥局","苗栗縣頭份市中華路１０４５號","(037)598915",5720,1920,"2021/04/23 08:59:26"
## "5935051732","祐康藥局","苗栗縣頭份市自強路３７號","(037)663079",6120,910,"2021/04/23 08:59:26"
## "5935091254","上恩藥局","苗栗縣公館鄉大同路１８０號","(037)234008",5180,0,"2021/04/23 08:59:26"
## "5936102961","江內藥局","臺中市大雅區雅潭路三段５９６號","(04)25652671",6800,1860,"2021/04/23 08:59:26"
## "5936160070","彰益藥局","臺中市大肚區沙田路三段５６４號","(04)26991255",5260,2110,"2021/04/23 08:59:26"
## "593620B138","聯生中西健保藥局","臺中市大里區現岱路１５８巷１１號","(04)24834058",6020,330,"2021/04/23 08:59:26"
## "5937010668","祥全藥局","彰化縣彰化市永安街４４號","(04)7223078",6000,0,"2021/04/23 08:59:26"
## "5937031470","弘佳藥局","彰化縣和美鎮仁愛里道周路５５６號","(04)7576611",7840,1990,"2021/04/23 08:59:26"
## "5937051669","家怡藥局","彰化縣員林市中山南路１２號","(04)8393252",5180,700,"2021/04/23 08:59:26"
## "5937052059","華衛藥局","彰化縣員林市惠來里南昌路９６號","(04)8397503",6480,730,"2021/04/23 08:59:26"
## "5937181215","邱利調劑藥局","彰化縣永靖鄉瑚璉路３０８號","(04)8235509",7720,700,"2021/04/23 08:59:26"
## "5937251123","上明藥局","彰化縣竹塘鄉竹塘村竹塘街６６號","(04)8970600",9160,2110,"2021/04/23 08:59:26"
## "5938021772","集成藥局","南投縣埔里鎮南興街２７０號","(049)2992837",5770,1500,"2021/04/23 08:59:26"
## "5938030100","環球大藥局","南投縣草屯鎮中正路７５３號","(049)2356485",6810,380,"2021/04/23 08:59:26"
## "5939012179","保健藥局","雲林縣斗六市梅林路２８３號","(05)5576037",7470,1710,"2021/04/23 08:59:26"
## "5939012339","永光藥局","雲林縣斗六市中山路９號","(05)5379939",7480,1730,"2021/04/23 08:59:26"
## "5939041750","上祐藥局","雲林縣西螺鎮西興南路３４２號","(05)5883753",5910,620,"2021/04/23 08:59:26"
## "5939060255","家庭藥局","雲林縣北港鎮文化路１０１號","(05)7826739",5660,1740,"2021/04/23 08:59:26"
## "5939061743","貝比藥局","雲林縣北港鎮民享路３３－２號","(05)7824626",5180,490,"2021/04/23 08:59:26"
## "5939061789","樂芯藥局","雲林縣北港鎮文化路１６６號","(05)7820005",8460,2060,"2021/04/23 08:59:26"
## "5939071276","慈生藥局","雲林縣古坑鄉麻園村平和２２號","(05)5828222",6070,1790,"2021/04/23 08:59:26"
## "5939131473","立昇藥局","雲林縣麥寮鄉華興路９１號","(05)6933066",5230,1570,"2021/04/23 08:59:26"
## "5940041515","福樂藥局","嘉義縣民雄鄉福樂村建國路三段２５６號","(05)2130802",7070,1060,"2021/04/23 08:59:26"
## "5940041560","永安藥局","嘉義縣民雄鄉民族路４９號","(05)2268517",6150,1900,"2021/04/23 08:59:26"
## "5940051075","濟安藥局","嘉義縣溪口鄉溪東村民生街５４號","(05)2696078",16000,1600,"2021/04/23 08:59:26"
## "5940140031","泰安藥局","嘉義縣竹崎鄉內埔村元興路１０６號","(05)2542758",7850,1910,"2021/04/23 08:59:26"
## "5941010096","新崇安藥局新營店","臺南市新營區延平里復興路９１號","6333302",6140,1880,"2021/04/23 08:59:26"
## "5941010309","鴻達藥局","臺南市新營區民生里復興路１２４號","(06)6358837",5620,1560,"2021/04/23 08:59:26"
## "5941030114","協宏藥局","臺南市白河區竹門里９８之３號","(06)6852961",6880,1860,"2021/04/23 08:59:26"
## "5941040067","永福藥局","臺南市麻豆區仁愛路７號","(06)5723329",5600,1730,"2021/04/23 08:59:26"
## "5941051266","佑佑藥局","臺南市佳里區安西里文化路２４８號","(06)7214426",5230,1150,"2021/04/23 08:59:26"
## "5941051462","星興藥局","臺南市佳里區延平路４０３號","(06)7236993",6270,1580,"2021/04/23 08:59:26"
## "5941181054","年豐藥局","臺南市將軍區忠興里２９－２號","(06)7946247",8450,1610,"2021/04/23 08:59:26"
## "5941291180","安麗兒藥局關廟店","臺南市關廟區中山路２段５０號","(06)5951952",9280,2140,"2021/04/23 08:59:26"
## "5941312184","大灣藥局","臺南市永康區大灣里民族路２９８號","(06)2728774",6970,1230,"2021/04/23 08:59:26"
## "5942020130","建成藥局","高雄市岡山區台上里大仁路９７號","(07)6210458",5110,1720,"2021/04/23 08:59:26"
## "5942030056","賜安藥局","高雄市旗山區大德里中山路１１號","(07)6612057",5350,1500,"2021/04/23 08:59:26"
## "5942220032","文殊堂藥局","高雄市甲仙區西安里文化路２２號","(07)6752176",6290,730,"2021/04/23 08:59:26"
## "5942221173","永富藥局","高雄市甲仙區和安街３０號","(07)6754383",6810,370,"2021/04/23 08:59:26"
## "5943010192","立眾藥局","屏東縣屏東市勝利路１９０－４號","(08)7665443",7450,760,"2021/04/23 08:59:26"
## "5943020232","健惠藥局","屏東縣潮州鎮大同路４９號","(08)7894797",7630,1940,"2021/04/23 08:59:26"
## "5943031762","冠德藥局","屏東縣東港鎮朝隆路８６號１樓","(08)8351179",5090,0,"2021/04/23 08:59:26"
## "5943140015","新健安藥局","屏東縣竹田鄉竹田村自強路６６－３號","(08)7710789",5390,1710,"2021/04/23 08:59:26"
## "5945012970","東大藥局","花蓮縣花蓮市富吉路４號","(03)8463231",5920,940,"2021/04/23 08:59:26"
## "5946012116","永盛藥局","臺東縣臺東市中山路２６７之１號","(089)345767",5100,1290,"2021/04/23 08:59:26"### 題組二 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()
## )hospital <- 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. 請問演講中分別提及中華民國、台灣幾次?
grep(ytword,pattern = "中華民國")## [1] 11 23 507 665 873 905length(grep(ytword,pattern = "台灣"))## [1] 37