LDA
LDA
主題：缺水、下雨
環境設定
看一下資料的分佈：一二月的資料明顯較少，三四月較多，五月還沒結束尚不明顯。
metadata <- fread("water.csv",encoding = "UTF-8")
metadata %>%
mutate(artDate = as.Date(artDate)) %>%
group_by(artDate) %>%
summarise(count = n())%>%
ggplot(aes(artDate,count))+
geom_line(color="red")+
geom_point()
資料前處理：
斷詞與token的計算
jieba_tokenizer = worker()
news_tokenizer <- function(t) {
lapply(t, function(x) {
if(nchar(x)>1){
tokens <- segment(x, jieba_tokenizer)# 去掉字串長度爲1的詞彙
tokens <- tokens[nchar(tokens)>1]
return(tokens)
}
})
}
tokens <- metadata %>%
unnest_tokens(word, sentence, token=news_tokenizer) %>%
filter((!str_detect(word, regex("[0-9a-zA-Z]"))) | str_detect(word, regex("[Aa][Zz]"))) %>%
count(artUrl, word) %>%
rename(count=n)
tokens %>% head(20)## artUrl word count
## 1: https://news.ebc.net.tw/news/article/243541 一大早 1
## 2: https://news.ebc.net.tw/news/article/243541 九點 1
## 3: https://news.ebc.net.tw/news/article/243541 人潮 1
## 4: https://news.ebc.net.tw/news/article/243541 下午 1
## 5: https://news.ebc.net.tw/news/article/243541 元旦 1
## 6: https://news.ebc.net.tw/news/article/243541 公園 1
## 7: https://news.ebc.net.tw/news/article/243541 六大 1
## 8: https://news.ebc.net.tw/news/article/243541 出現 1
## 9: https://news.ebc.net.tw/news/article/243541 出發 1
## 10: https://news.ebc.net.tw/news/article/243541 出遊 1
## 11: https://news.ebc.net.tw/news/article/243541 民眾 2
## 12: https://news.ebc.net.tw/news/article/243541 地雷 1
## 13: https://news.ebc.net.tw/news/article/243541 地熱 1
## 14: https://news.ebc.net.tw/news/article/243541 早上 1
## 15: https://news.ebc.net.tw/news/article/243541 車流 1
## 16: https://news.ebc.net.tw/news/article/243541 呼籲 1
## 17: https://news.ebc.net.tw/news/article/243541 宜蘭 1
## 18: https://news.ebc.net.tw/news/article/243541 宣布 2
## 19: https://news.ebc.net.tw/news/article/243541 高公局 1
## 20: https://news.ebc.net.tw/news/article/243541 啟動 1轉換格式：DTM
dtm <-tokens %>% cast_dtm(artUrl, word, count)
dtm## <<DocumentTermMatrix (documents: 1691, terms: 35871)>>
## Non-/sparse entries: 227768/60430093
## Sparsity : 100%
## Maximal term length: 8
## Weighting : term frequency (tf)inspect(dtm[1:10,1:10])## <<DocumentTermMatrix (documents: 10, terms: 10)>>
## Non-/sparse entries: 20/80
## Sparsity : 80%
## Maximal term length: 3
## Weighting : term frequency (tf)
## Sample :
## Terms
## Docs 一大早 九點 人潮 下午 元旦 公園
## https://news.ebc.net.tw/news/article/243541 1 1 1 1 1 1
## https://news.ebc.net.tw/news/article/243562 0 0 0 0 0 0
## https://news.ebc.net.tw/news/article/243594 0 0 0 0 0 0
## https://news.ebc.net.tw/news/article/243615 0 0 0 0 0 0
## https://news.ebc.net.tw/news/article/243661 1 0 2 0 0 0
## https://news.ebc.net.tw/news/article/243678 0 0 0 0 0 5
## https://news.ebc.net.tw/news/article/243707 0 0 0 0 0 0
## https://news.ebc.net.tw/news/article/243730 0 0 0 0 0 0
## https://news.ebc.net.tw/news/article/243875 0 0 0 0 0 0
## https://news.ebc.net.tw/news/article/243887 0 0 0 0 1 0
## Terms
## Docs 六大 出現 出發 出遊
## https://news.ebc.net.tw/news/article/243541 1 1 1 1
## https://news.ebc.net.tw/news/article/243562 0 1 0 0
## https://news.ebc.net.tw/news/article/243594 0 0 0 0
## https://news.ebc.net.tw/news/article/243615 0 0 0 0
## https://news.ebc.net.tw/news/article/243661 0 1 0 1
## https://news.ebc.net.tw/news/article/243678 0 0 0 0
## https://news.ebc.net.tw/news/article/243707 0 0 0 0
## https://news.ebc.net.tw/news/article/243730 0 3 0 0
## https://news.ebc.net.tw/news/article/243875 0 1 0 0
## https://news.ebc.net.tw/news/article/243887 0 0 0 2建立主題模型
lda <- LDA(dtm, k = 2, control = list(seed = 2021))
lda <- LDA(dtm, k = 2, control = list(seed = 2021,alpha = 2,delta=0.1),method = "Gibbs") #調整alpha即delta
#load("ldas_result.rdata")
#lda = ldas[[2]]建立phi矩陣
topics_words <- tidy(lda, matrix = "beta") # 注意，在tidy function裡面要使用"beta"來取出Phi矩陣。
colnames(topics_words) <- c("topic", "term", "phi")
topics_words## # A tibble: 71,742 x 3
## topic term phi
## <int> <chr> <dbl>
## 1 1 一大早 0.0000319
## 2 2 一大早 0.000000806
## 3 1 九點 0.00000943
## 4 2 九點 0.000000806
## 5 1 人潮 0.000252
## 6 2 人潮 0.000000806
## 7 1 下午 0.000481
## 8 2 下午 0.00135
## 9 1 元旦 0.0000184
## 10 2 元旦 0.000000806
## # ... with 71,732 more rows尋找主題代表字
topics_words %>%
group_by(topic) %>%
top_n(10, phi) %>%
ungroup() %>%
mutate(top_words = reorder_within(term,phi,topic)) %>%
ggplot(aes(x = top_words, y = phi, fill = as.factor(topic))) +
geom_col(show.legend = FALSE) +
facet_wrap(~ topic, scales = "free") +
coord_flip() +
scale_x_reordered()
## 尋找最佳的主題 ### 先建立更多種模型
ldas = c()
topics = c(2,4,6,10,15)
for(topic in topics){
start_time <- Sys.time()
lda <- LDA(dtm, k = topic, control = list(seed = 2021))
ldas =c(ldas,lda)
print(paste(topic ,paste("topic(s) and use time is ", Sys.time() -start_time)))
save(ldas,file = "ldas_result.rdata") # 將模型輸出成檔案
}## [1] "2 topic(s) and use time is 13.8010489940643"
## [1] "4 topic(s) and use time is 28.7302250862122"
## [1] "6 topic(s) and use time is 1.03756731748581"
## [1] "10 topic(s) and use time is 3.35997895002365"
## [1] "15 topic(s) and use time is 5.42728525002797"load("ldas_result.rdata")利用perplexity來找到最佳的主題數
topics = c(2,4,6,10,15)
data_frame(k = topics, perplex = map_dbl(ldas, topicmodels::perplexity)) %>%
ggplot(aes(k, perplex)) +
geom_point() +
geom_line() +
labs(title = "Evaluating LDA topic models",
subtitle = "Optimal number of topics (smaller is better)",
x = "Number of topics",
y = "Perplexity")## Warning: `data_frame()` was deprecated in tibble 1.1.0.
## Please use `tibble()` instead.
決定選擇『六』個主題數
產生LDAvis結果
topicmodels_json_ldavis <- function(fitted, doc_term){
require(LDAvis)
require(slam)
###以下function 用來解決，主題數多會出現NA的問題
### 參考 https://github.com/cpsievert/LDAvis/commit/c7234d71168b1e946a361bc00593bc5c4bf8e57e
ls_LDA = function (phi){
jensenShannon <- function(x, y) {
m <- 0.5 * (x + y)
lhs <- ifelse(x == 0, 0, x * (log(x) - log(m+1e-16)))
rhs <- ifelse(y == 0, 0, y * (log(y) - log(m+1e-16)))
0.5 * sum(lhs) + 0.5 * sum(rhs)
}
dist.mat <- proxy::dist(x = phi, method = jensenShannon)
pca.fit <- stats::cmdscale(dist.mat, k = 2)
data.frame(x = pca.fit[, 1], y = pca.fit[, 2])
}
# Find required quantities
phi <- as.matrix(posterior(fitted)$terms)
theta <- as.matrix(posterior(fitted)$topics)
vocab <- colnames(phi)
term_freq <- slam::col_sums(doc_term)
# Convert to json
json_lda <- LDAvis::createJSON(phi = phi, theta = theta,
vocab = vocab,
doc.length = as.vector(table(doc_term$i)),
term.frequency = term_freq, mds.method = ls_LDA)
return(json_lda)
}LDA分析
選定六個主題數的模型
the_lda = ldas[[3]]topics_words <- tidy(the_lda, matrix = "beta") # 注意，在tidy function裡面要使用"beta"來取出Phi矩陣。
colnames(topics_words) <- c("topic", "term", "phi")
topics_words %>% arrange(desc(phi)) %>% head(10)## # A tibble: 10 x 3
## topic term phi
## <int> <chr> <dbl>
## 1 2 地區 0.0224
## 2 2 局部 0.0189
## 3 2 短暫 0.0184
## 4 2 東半 0.0182
## 5 2 北部 0.0180
## 6 2 天氣 0.0163
## 7 5 台灣 0.0159
## 8 2 降雨 0.0144
## 9 1 水庫 0.0138
## 10 2 影響 0.0134terms依照各主題的phi值由大到小排序
topics_words %>%
group_by(topic) %>%
top_n(10, phi) %>%
ungroup() %>%
ggplot(aes(x = reorder_within(term,phi,topic), y = phi, fill = as.factor(topic))) +
geom_col(show.legend = FALSE) +
facet_wrap(~ topic, scales = "free") +
coord_flip() +
scale_x_reordered()
去掉重複的字
removed_word = c("表示","地區","目前","可以")
topics_words %>%
filter(!term %in% removed_word) %>%
group_by(topic) %>%
top_n(10, phi) %>%
ungroup() %>%
ggplot(aes(x = reorder_within(term,phi,topic), y = phi, fill = as.factor(topic))) +
geom_col(show.legend = FALSE) +
facet_wrap(~ topic, scales = "free") +
coord_flip() +
scale_x_reordered()
### 為主題命名
topics_name = c("水庫","地區","人民","運勢","下雨","其他")tmResult <- posterior(the_lda)
doc_pro <- tmResult$topics
document_topics <- doc_pro[metadata$artUrl,]
document_topics_df =data.frame(document_topics)
colnames(document_topics_df) = topics_name
rownames(document_topics_df) = NULL
news_topic = cbind(metadata,document_topics_df)查看特定主題文章
news_topic %>%
arrange(desc(`水庫`)) %>%head(10) ## artTitle
## 1: 【獨家】不得已！高雄人喝的水取自屏東「屎尿河」 台水：檢驗合格
## 2: 【抗旱作戰】中部水庫持續嚴峻 新竹是否紅燈限水後天開會討論
## 3: 「耗水費」開徵卻限縮用水大戶 環團怒批效果大打折扣
## 4: 立委質疑農業用水佔7成過高 農委會主委：能涵養地下水
## 5: 中火偷開3號機 環團抗議中央自打臉「空污缺水幫凶」
## 6: 【抗旱作戰】高雄今起限水！ 大戶節約目標曝光 辦不到將鉛封
## 7: 【日排核廢水】環團轟違人權及國際公約！恐遭抵制 連日漁業聯合會也反對
## 8: 【抗旱作戰】苗栗、台中80.4萬戶今首批限水 臨時供水站App終於有了
## 9: 水情嚴竣卻只配發1台緊急淨水器 盧秀燕向中央喊話
## 10: 教部限水令開第一槍 8縣市大學泳池減供20%！49校受影響
## artDate artTime
## 1: 2021/04/09 21:26:20
## 2: 2021/04/14 18:13:22
## 3: 2021/03/19 12:16:13
## 4: 2021/03/22 12:14:44
## 5: 2021/04/08 13:59:53
## 6: 2021/04/01 11:07:19
## 7: 2021/04/13 11:43:58
## 8: 2021/04/06 20:09:41
## 9: 2021/03/15 20:31:34
## 10: 2021/03/12 18:13:46
## artUrl
## 1: https://tw.appledaily.com/life/20210409/Y2CWPCJA5RBZ7OO27FDIPWSGMI/
## 2: https://tw.appledaily.com/life/20210414/4DSNW2EOTBHPRCCW3ZIVRJX4LI/
## 3: https://tw.appledaily.com/life/20210319/5YZKG5L5XJEIPIYUJPIGVQBWMI/
## 4: https://tw.appledaily.com/life/20210322/5BVPGI3YLZBTDIMXN6ZQJAF76U/
## 5: https://tw.appledaily.com/life/20210408/BT4ADCP4P5DTTCZCMFDCOC3YDU/
## 6: https://tw.appledaily.com/life/20210401/WDOP2ZO2KRHSRESL4J44YFAZVM/
## 7: https://tw.appledaily.com/life/20210413/C6ACPFPFAJHZDHDOJK7NVNK7OM/
## 8: https://tw.appledaily.com/life/20210406/D26EKD5FKFE2XPM5UFVQQUUNYY/
## 9: https://tw.appledaily.com/life/20210315/WYWJ7F4R7FH6BPFPZF6GCMFQDY/
## 10: https://tw.appledaily.com/life/20210312/YNOZNQY2VFHHVOMGJF575SN6GU/
## sentence
## 1: （新增：動新聞）南部水情嚴峻，環團口中被畜牧業廢水污染的「屎尿河」、屏東東港溪，也成為高雄市民的民生用水來源。引東港溪水的鳳山水庫，從原供應高雄民生用水2萬噸提高到5萬噸，但地球公民基金會執行長李根政表示，東港溪飽受養豬廢水的污染，「拿被養豬廢水污染的水，處理後再給人喝」，雖最後都是合格自來水，但道理上說不過去，政府應該改善東港溪污染，引用乾淨的水給高雄人喝。對高雄引養豬廢水供民生用水，高市長陳其邁今（9日）上午出席議會定期會開幕前受訪時說，自來水水質有一定標準，市府也持續監測自來水水質，目前為止整個水質監測數據都還在正常範圍裡面。他說，長期整個供水涉及中央跟高屏溪河域所屬的高屏兩縣市合作，希望這波疫情結束後跟中央、屏東縣府來共同合作來解決長期供水問題。水情吃緊，高雄市府上周已成立抗旱工作小組，並因應旱象，鳳山水庫供應民生用水量從2萬噸提升到5萬噸，但李根政表示，鳳山水庫的水源─東港溪水質很差，因此，以前主要都是供應工業用水，後來政府有投資設備去處理與過濾水，所以才能做為民生用水，基本上是不得已時候，才會拿出來用。李根政說，東港溪整條河川就是中度到重度污染，主要污染源來自養豬廢水，有著豬糞與豬尿，雖鳳山水庫經過濾後，再供應出來都是合格的自來水，不合格政府不會拿來用，但問題是得經層層過濾後才能拿來喝，《蘋果新聞網》反問，「那你覺得這樣可以的嗎?」李根政回，飲用水只要安全就可以，但問題是這樣不合理。李根政說，政府應趕快改善東港溪污染，否則就是引用東港溪的髒水，政府再花錢投資淨水設備，變得符合民生標準的水，當然人民喝的還是符合民生安全的水，只是這非治本之道，應該要從源頭就用乾淨的水來處理，不該捨本逐末。自來水公司七區管理處指出，大高雄每日用水量約150萬噸，高屏堰原本單日取水100萬噸，近日僅能取用50幾萬噸，其餘不足水源由伏流水、地下水支應約40萬噸，阿公店、鳳山與澄清湖三水庫調度支應。高雄市長陳其邁3月中視察鳳山淨水廠時曾提及，因水情燈號轉黃，將增加從東港溪引流至鳳山水庫作為民生用水，自來水公司七區管理處指出，東港溪的水量比高屏溪穩定，每日可抽水30萬噸支援鳳山水庫，其中5萬噸可處理成民生用水供應，其餘是工業用水。自來水公司七區管理處表示，高屏溪高濁度或枯水期間，水量穩定的東港溪可作為備用水源之用；不過，東港溪原水水質氨氮等含量超過飲用水水源水質標準，因此鳳山給水廠過去每日供水30萬噸，全數為工業用水，而為因應特殊抗旱時期，高雄自3月水情黃燈後，就特別使用原水前處理設備改善水質，降低原水氨氮含量符合原水水質標準，再經過淨水處理，以達到民生用水標準。自來水公司七區管理處強調，目前供應的民生用水並不是將東港溪原水直接提供使用，而是多一道原水前處理工程，讓水質符合飲用水標準，並以高屏溪的水和東港溪一部份的水作混合才供應，「民眾用到的也不全然是東港溪的水，只是佔一小部分，來補一些原水量的不足。」至於從東港溪引流至鳳山水庫的5萬噸民生用水供應高雄那些區域？自來水公司七區管理處表示，鳳山給水廠供應民生跟工業用水，管線從小港地區開始往北延伸，但整個高雄系統不只鳳山給水廠，還包括拷潭給水廠、坪頂給水廠等共同供應，「因為管線都連在一起，現在沒有辦法去界定供水給哪個區域！」做為高雄備援飲用水源的鳳山水庫，水源來自環團口中被畜牧業廢水污染的「屎尿河」、東港溪，部分高雄市民已被迫使用豬糞尿液過濾後的自來水，自來水公司七區管理處說，水情不佳，中央成立旱災應變中心，因為水源不夠，因此必須多元取水，鳳山水庫引流東港溪的原水，只有在抗旱的特殊時期才會作少量混合，正常時間民生用水不會使用。自來水公司七區管理處強調，所有水源都會嚴格把關，民生飲用水最後到用戶端，都會經過政府規定的水質檢驗，並不會因特殊抗旱時間就放寬標準，且環保局也會做末端的水質檢驗，鳳山水庫目前提供的民生用水都經過合格檢驗，請民眾放心使用。針對如何幫高雄市民的民生用水把關？高市環保局表示，局裡的土壤及水污染防治科每月都會到台灣自來水股份有限公司第七管理處，對其所屬翁公園給水廠、拷潭給水廠、澄清湖給水廠、鳳山給水廠、 坪頂給水廠、大崗山給水廠(北嶺加壓站、路竹淨水場、嶺口淨水廠)進行採樣水質檢驗，檢驗項目包括PH值、氨氣、濁度、硫酸鹽、砷、鋅等，在輸送到輸配水管線前都必須符合飲用水水質標準，若不合格環保局將開罰。除了給水廠的定期檢驗外，環保局也會在民眾的管末、清水出口取樣檢驗做兩邊把關，市民可以放心使用，若對自家飲用水仍有疑慮，可向環保局申請「市民飲用水免費檢測」，檢驗項目包括氫離子濃度 指數(pH值)、氯鹽、總硬度、導電度、硝酸鹽氮、亞硝酸鹽氮計 6 項，但每戶每次受理一個樣品且送樣頻率以每半年一次為原則。國民黨高市議員黃紹庭表示，東港溪的汙染源頭來自養豬廢水，鳳山水庫在抗旱時期引流東港溪水，雖然市民喝下肚的是過濾後乾淨的水，但難免讓人心裡覺得毛毛的「我們喝的是豬糞尿過濾後的水」，他認為，勿將源頭有汙染的原水用於民生用水，「不要讓高雄市民覺得我們是次等公民」！黃紹庭說，高雄沒有大型的水庫蓄水，且高雄的水質差，導致高雄人要買水喝，尤其是旱象時更加凸顯，高雄要發展產業，水是很重要的因素，盼高雄市長陳其邁要跟中央好好解決高雄長期的民生、工業用水問題。東港溪中游萬丹段大排水溝，早年被民眾拍到畜牧排遺的屎結塊浮現水流表面，被地方戲稱屎流河。《蘋果》今天再前往，仍可看到部分疑似屎尿排遺的小結塊。至於下游段到東港取水站間的水流，可說都髒污凝滯狀態，水面也都呈污帶暗綠色澤，近東港取水處，河面上飄流許多布袋蓮，代表該溪段優氧化嚴重。今午高市府水利局也回應說明，強調鳳山水庫水源主要取自東港溪，先經原水前處理場處理後才導入，原先只供應工業用水的鳳山水庫水質已大為改善，符合飲用水水源水質標準，可做為大高雄地區穩定的民生備用水源之一，但大高雄地區主要水源仍以高屏溪為主。水利局指出，原水前處理場於2017年完工，經費4.28億元，使用國內工研院自行研發擁有專利權的BioNET生物擔體，有效提供微生物更多附著、增殖的空間與環境，經由前處理降低氨氮濃度水質改善後，再經鳳山水庫淨水場處理，檢驗符合民生飲用標準，請市民安心。屏東縣政府表示，東港溪是中央管河川，但縣府近年持續對畜牧業者進行突襲稽查，去年稽查了１千多件次，開罰了400多萬元，從環保署的監測網站可看出東港溪水質改善成果，從2012年起的嚴重污染到目前中度污染。此外，縣府輔導畜牧業者加強動物屎尿資源再利用，在新園甘棠、內埔等增設淨水廠設施，去年還補助了畜牧業者加強廢水處理改善設施。屏東縣府指出，東港溪污染目前大部分污染來自沿線畜牧養殖業，若真要徹底改善水質，中央是否能比照早年的高屏溪離牧政策，以補貼等方式將畜牧業都遷走，可能較一勞永逸，但這是項大工程。（地方中心吳慧芬、曾珮瑛、周昭平、陳宏銘／高雄-屏東連線報導）
## 2: 台中、苗栗地區106萬戶，自上周二(4/6)起實施紅燈「供五停二」分區供水措施，目前進入第2周。水利署今(4/14)表示盤點本島18座主要水庫，除了北部3座水庫，中部及南部水庫都接近或低於「營運嚴重下限水位或有效蓄水量」，尤其供應台中地區的德基水庫已低於「營運較低有效蓄水量」。至於水情岌岌可危的新竹是否成為下一波紅燈限水地區，後天(4/16)旱災中央災害應變中心將開會決定。全台水情不佳，4月6日起台中、苗栗地區106萬戶實施紅燈「供五停二」分區供水措施，4月1日起高雄地區水情燈號由減壓供水黃燈轉為減量供水橙燈，連江地區由水情提醒綠燈轉為減壓供水黃燈。統計目前全台的水情燈號，台中、苗栗地區為紅燈，新竹、嘉義、台南及高雄共4縣市，水情燈號為「橙燈」。水利署解釋，全台各水庫的狀況不同，有的是在河川主流興建大壩的「在槽水庫」，包括翡翠、石門及曾文等水庫；有的是主壩不建設在河川的主槽，而選擇於離主槽不遠的小支流上的「離槽水庫」。另每個水庫的庫容量不同，因此水利署評估水庫的水情是否嚴峻，是根據不同水庫設定不同的「營運較低水位／有效蓄水量」及「營運嚴重下限水位／有效蓄水量」來評估，而不是單用蓄水率高低。水利署舉例，庫容量大的水庫，即便蓄水率僅剩10%，但有效蓄水量有可能仍很足夠；若以寶山水庫今天有效蓄水量為92.9萬噸水，除以今天的單日出水量3.4萬噸，得出該水庫只能支撐27天，但實際上水庫每天的出水量不同，即便沒下雨仍有入流量，加上新竹海淡廠每天可供水1.3萬噸水、17座抗旱水井每天供水2.5萬噸水，頭前溪每天可取水9萬噸，桃竹幹管每天供應22萬噸水等，上述各項供水都納入計算且可減少寶山水庫的出水量，因此單用「某一天的出水量」去計算水庫可支撐幾天，並不準確。<U+2666>德基、鯉魚潭水庫告急 接近或低於「營運嚴重下限水位」水利署表示，今盤點中部及南部水庫幾乎都接近或低於「營運嚴重下限水位」，尤其供應台中地區的德基、鯉魚潭水庫，德基水庫今天的有效蓄水量787.3萬噸水，已遠低於「營運較低有效蓄水量」1388.28萬噸水的標準，鯉魚潭水庫目前的水位257.55公尺，只比「營運嚴重下限水位」254.65公尺的標準，僅多出2.9公尺。另外供應苗栗地區的永和山水庫今天水位是55.53公尺，已經遠低於「營運較低水位」70.4公尺的標準。水利署說，中部地區水情持續嚴峻，本周進入紅燈「供五停二」分區供水措施第2周，後天(4/16)旱災中央災害應變中心開會將討論分區供水實施至今的成效，並討論未來加大抗旱水井的供水量。至於外界擔心「供五停二」分區供水要改為更嚴格的「供二停二」，水利署表示目前尚無此規劃。水利署表示，新竹地區的水情，目前雖有新竹海淡廠、抗旱水井以及頭前溪取水等，增加供水量，但水情仍吃緊，因此未來是否再加強節水措施的力道，是否成為下一波紅燈限水地區，後天(4/16)旱災中央災害應變中心也將開會討論並決定。至於南部地區水情，水利署盤點供水給南部地區的曾文烏山頭水庫、南化水庫共3座水庫，蓄水量總計還有1.1億噸水量，其中曾文烏山頭水庫的有效蓄水量共9018萬噸水，高於「營運嚴重下限有效蓄水量」8700萬噸水，評估3座水庫1.1億噸有效蓄水量，台南及高雄地區可勉為支撐到5月底甚至6月，今天高屏溪川流量雖僅4cms，但高屏溪目前伏流水每天可取水20萬噸水。水利署表示，雖然近日有颱風形成，但對國內旱災水情無幫助，昨晚各地降雨，不但雨量非常少且下雨時間很短，均對旱象無解，後天旱災中央災害應變中心開會，將聽取氣象局對於下一波4月26日的降雨狀況預估，滾動式檢討各地水情燈號。（許麗珍／台北報導）
## 3: 全台面臨有史以來最嚴峻乾旱，行政院昨(3/18)表示，擬對每個月用水1萬噸以上的1817戶大廠徵收「耗水費」。台灣乾淨水行動聯盟等環團今(3/19)不滿政府於2015年原本規劃針對石化、基本金屬、造紙、紡織與電子業者等每月用量1000度的5856用水戶開徵耗水費，如今卻縮水變成月用1萬度以上，新的耗水費規劃明顯限縮了耗水費帶來的成效。水利署官員僅回應，耗水費今年底會公布草案。3月22日世界水資源日前夕，台灣水資源保育聯盟串連多個關心水資源的環保團體，今天於北、中、南同步召開「2021世界水資源日：珍惜水資源，拯救缺水危機」記者會。北部場由台灣水資源保育聯盟、台灣乾淨水行動聯盟、主婦聯盟環境保護基金會以及立委陳椒華、邱顯智共同舉辦。陳椒華表示，上次調整水價在1994年，距今已20多年，台灣在全球水費負擔率排名倒數第2名，水費負擔明顯偏低；另外水利法雖已在2016年通過向用水超過一定水量的用水人徵收耗水費，強化水資源有效及永續利用，但經濟部至今遲未開徵，行政院昨表示擬對每個月用水1萬噸以上的1817戶大廠徵收「耗水費」，但這和經濟部2015年原本規劃針對石化、基本金屬、造紙、紡織與電子業者等每月用量1000度的5856用水戶開徵耗水費，仍有很大差距，今年新的規劃明顯限縮了耗水費帶來的成效。她呼籲行政院應同時規劃包括月用1萬度以下、1000度以上耗水戶的開徵時間表以及附徵比例規劃，協助業者提早做好過渡期的準備。台灣水資源保育聯盟理事長蔡志宏、台灣水資源保育聯盟主任粘麗玉則表示，水庫集水區的保育刻不容緩，應速設置水質水量保護區，例如許多在糟式的水庫，包括石門水庫、德基水庫、霧社水庫、曾文水庫、白河水庫的水質水量保護區，都曾遭受濫墾濫開發，至今仍未有明顯改善。一旦遇到豪大雨及風災土石流，水庫大量淤積，蓄水量大量減少；許多離槽式水庫的供水水壩集水區也應設置水質水量保護區，包括<U+9CA4>魚潭水庫的士林堰，日月潭的武界壩，湖山水庫的桶頭堰，寶山第二水庫的上坪堰。<U+2666>水資源聯盟呼籲 政府應對地下水做有效管理台灣水資源保育聯盟另表示，地下水年年入不敷出，應開源節流，並防地層下陷。聯盟指出，台灣中南部年年超抽地下水15億噸以上，超過7座石門水庫的有效容量，使中南部地下水位逐年下降，地層下陷面積日益擴大，連高鐵的安全都遭受威脅，政府對地下水應該做更有效管理，不應隨意掏空救命水。台灣水資源保育聯盟表示，若政府做好節水及廢水回收，可以不怕缺水，也不必休耕，除了工業用水加強回收之外，台灣現在汙水處理廠每天排放廢水高達285萬噸，等於1000萬人一天的用水量，若能效法以色列或台積電經二級或三<U+7EA7>處理後回收8成，至少可供應800萬人民生用水，此外台灣每公頃農田的用水量約為以色列的4倍，台灣農業仍有很大的節水空間。此外台灣乾淨水行動聯盟則是針對飲用水的品質問題表示，過去工業廢水常常直接排入灌溉渠道，易造成農地重金屬污染，以彰化縣及桃園市危害範圍最大。新竹縣市則是工業瘵水排入飲用溪流中，造成重金屬及化學品污染的疑慮，呼籲中央政府忙著水資源調度之際，應落實禁止事業廢污水混入飲用水取水口上游，以專管排放廢污水或零排放，另呼籲新竹縣民眾響應「新竹縣喝好水公投提案募集」，8月時記得投下喝好水公投贊成票。今出席的水利署官員回覆表示，地下水有保育管理計畫已在各地執行，未來希望做到地下水減抽、水補注達到平衡，另外水庫清淤已在進行，未來希望能達到「近零淤積」，也就是水庫的進泥量和出泥達到平衡，耗水費部分今年底會公布草案。農田水利署官員則表示會鼓勵農民旱作，把水田改成旱田減少用水量。（許麗珍／台北報導）
## 4: 近日水情緊繃，尤其中南部更形嚴峻，立委質疑台灣漏水率近1成4，尤其灌溉圳路每年漏水率更達30％。比例實在過高，讓珍貴水資源白白浪費，加上農業用水佔7成，似有重新分配檢討必要，農委會主委陳吉仲回應，很多灌溉圳路並非用水泥所蓋，且農業用水有涵養地下水用途，無法單純從帳面數字看出來。立法院經濟委員會今邀農委會、經濟部報告水情處置，部分立委也質疑台灣漏水率過高問題，立委蔡壁如稱，蓋水庫不如修水管，去年光漏水就漏掉2.5座石門水庫，但光像日本東京，每年汰換管線經費就高達200至300億元，水價也是台灣三倍，讓漏水率僅3％，但台灣每年汰換管線經費僅70至80億元，漏水率高達13.9%，有必要加強。蔡更提到，上述漏水率還是自來水管，漏水量達4.4億噸，而農業灌溉圳路每年漏水率達30％，漏水量更達30億公噸。蔡也質疑，現在農業用水水權佔7成，主張重新盤點，降至一般工業國家水準5成，農工各自負起節水責任，未來缺水不再向農業調水。立委何欣純也質疑，台中市、南投縣漏水率達16.83％，在六都中台中漏水率最高，讓珍貴水資源白白浪費。立委鄭運鵬也指台灣農業用水占71％，工業用水10％，尤其水稻用水量就佔農業用水54.7％，佔台灣水資源分配38.8％，超過生活用水和工業總和，不過GDP佔比僅0.2％，應獎勵休耕，並長年提撥水稻停灌休耕補償金。<U+2666>汰換管線經費從70億增加到80億元不過立委陳瓊櫻也代替農委會替農民喊冤，表示每次缺水就停灌，並稱農業用水佔了整體水資源7成，但實際上灌溉用水絕大多數都來自河川水，將缺水責任歸咎農民並不公平。農委會稱，農業灌溉用水來自水庫僅10％，其他逾66%都是透過河川水。陳吉仲回應，很多灌溉圳路並非水泥建造，且農業用水有自然回歸土地、涵養地下水作用，很難如此計算。經濟部部長王美花也稱，已要求台水檢討，汰換管線經費已從70億增加到80億元，也請了國外顧問專家，會先在台中地區進行，將投入三年20億元經費。立委邱議瑩質疑，現經濟部也規劃設置海水淡化廠，但海水淡化產水每噸成本達20到30元，較現在自來水每噸10元，增加二到三倍，成本該由誰來吸收？王美花也表示，現規劃新的海淡廠將專供產業使用，讓產業能確保枯水期也能確保水量，（增加成本）也全由產業吸收，尤其大型海淡廠要先確保用戶是誰，再來設置。鎮<U+2666>停灌高風險水資源競用區 實施大區輪作制度為了提升灌溉效率，減緩供水壓力，農委會從今年1期作起，推出稻作4選3，鼓勵稻農在4個期作中，至少一期作辦理轉作或生產環境維護措施，每年可調減2萬稻作面積，如果農民仍種四期稻，將沒法申報種稻交公糧及領取稻作直接給付。農委會也針對停灌高風險水資源競用區，實施大區輪作制度，鼓勵稻作其中一期轉作和做雜糧，今年會完成現地調查及規劃，明年在桃園地區推動。同時農委會也加強水稻收入保險，今年二期作實施政策型水稻收入保險，所有稻農都有天災救助轉換的基本險保障，也能依照意願參加收入保障任意險，保障農民收入。針對近日水情吃緊，農委會表示，過去平均每年會有3.5次颱風侵台，但去年是自1964年以來首次前10個月全無颱風，導致各水庫全面見底，現公告一期作停灌區域為7萬4千公頃，包含桃園石門的石門水庫灌區、新竹頭前溪灌區、苗栗明德水庫灌區、台中大安溪及大甲溪灌區、嘉南曾文及烏山頭水庫灌區等，維持供灌面積為23萬6千公頃。（朱正庭/台北報導）
## 5: 中火近日重啟三號燃煤機組，雖遭台中市府開罰，但台電堅持是依法調度不為所動，引發環團不滿，台灣健康空氣行動聯盟今天上午在議會前廣場為台鐵受難者及空污受害者默哀，並表演行動劇抗議。理事長葉光芃分析，目前遭遇最大的缺水危機，係與環境破壞地球反撲有關，中央宣稱台灣不缺電，卻又要重啟三號機是自我打臉，要求環保署長張子敬下台負最大的政治責任。要健康婆婆媽媽台中團石毓菁表示，這次重啟3號燃煤機組之前，中火早已悄悄增煤，今年元月初至4月5日，比較去年同期中部乾旱不雨，空氣中有害污染物無法洗淨，空品頻失控，中火用煤量不減反增，她抨擊這是國家增煤，罔顧廣大中部住民的健康！彰化縣環境保護聯盟總幹事施月英表示，台中火力發電廠是中部最大的燃煤空汙源，緊鄰的彰化縣就超過半年時間在它的下風處，居民健康影響首當其衝。蔡政府上台說把燃煤發電量減少，但是我們從能源局的能源統計月報的《煤炭供給與消費》顯示總供給量若108年與107年相比，由66,513,183公噸增加819,080公噸(81.9萬公噸)，若以民國98年59,055,051公噸比108年67,332,263公噸，則增加8,277,212公噸(827.7萬公噸)，同時也產出約165.5萬公噸煤灰。她質問：「這些燃煤量都增加了，空污改善在哪裡？」葉光芃也說，上週政府宣佈電價六連凍，全面執政的民進黨等於向全世界宣告台灣不缺電。但中火重啟3號燃煤機組，無異在預告要重返高碳排高污染的增煤方向。他認為，這是台電能源轉型大挫敗，專責減碳減空污的環保署長張子敬，曾在長達12年期間，以副署長兼任台電常務董事，應該負起最大政治責任!石毓菁則質疑，中火增煤的官方說法之一，是3月前全台用電持續成長，因此需要重啟3號燃煤機組，但她提問相關能源部門：「中央於3/27宣布電價六連凍漲的時候，豈不知道全國用電量正在增加，應及時調整（高）電價，以增加節電誘因？目前工業用電占台中市電力的六成，不調漲工業電價來節電，反而重啟中火3號燃煤機組，豈不殺雞取卵 ?」她怒批，這意味了水情不佳之際，電力部門不思用電需求端的管理，盡是討好工業用戶?環團更憂心的是，待中火1號燃煤機組歲修完畢，今夏用電大增時，中火10部燃煤機組莫非又將火力全開？施月英也指出，台電嚴重虧損，電價卻凍漲，去年有報導指出台電資本額3300億元，總負債卻高達1兆8043億元，累計虧損617億元。她同樣不解政府為何還連續凍漲電價，不敢針對高耗電產業調漲電價甚至還給予補貼，讓中部人飽受空污之苦？此外，中市府對台電重罰之際，環保署也在媒體上放話將撤銷市府對台電處分。葉光芃表示，中市去年撤銷中火2號3號燃煤機組許可證，環保署一度介入撤銷地方相關處分，形同護航大型固定污染源，成了打壓地方減煤權的幫兇。如今中火3號燃煤機組重啟爭議，環保署「縱火」故態復萌，又要甘為經濟部門打手，葉光芃不解，難道環保署將再度自我矮化為經濟部環保局，出賣其環境保護天職？怒批「中火啟動3號機組的增煤作法違背反空污的在地民意，縱火護航的環保署長張子敬應下台！」（地方中心黃任膺／台中報導）發稿時間1234
## 6: (新增:陳其邁主持旱災應變中心首次會議)今年春雨偏少，高屏溪流量低於歷年同期4成，近日雖有降雨，但旱象仍無法舒緩。因應水情變化，旱災中央應變中心決議，自今天（4/1）起高雄地區轉為減量供水橙燈。自來水全日減壓供水，並針對未達節水目標用戶優先進行鉛封。高雄市政府也成立旱災應變中心，包括淨水廠增加深水井抽水量，及增加伏流水供水量，另全市151個抗旱水井、南化水庫原水的聯通調度也會正式啟用等，積極供給民生跟工業用水。高屏堰流量昨天下探每秒4立方公尺，再度創下歷史新低，取水量大減為47.4萬噸，再創歷史新低；高雄市今起減量、減壓供水，高市府成立旱災應變中心，由市長陳其邁親自主持首次會議，他呼籲民眾節約用水，也重申「將針對未達節水目標用戶優先進行鉛封」。陳其邁強調，中長期規劃上，水源整備必須著眼都市發展的需求。除了在進行中的水利建設與再生水廠，市府也會與鄰近包括台南、屏東等縣市協調合作，研究如何更有效率整合南部的水資源。高雄市水利局表示，依中央氣象局最新降雨預報，未來1季降雨很可能持續偏少，為確保達成節水目標、維持穩定供水，高雄地區進入橙燈之對應措施為每月用水超過1千度之非工業用水戶節水10%、工業用水戶節水7%、游泳池、洗車、三溫暖、水療業者及其他不急需之用水節水10%，醫療業者不在此限，另自來水全日減壓供水，並針對未達節水目標用戶優先進行鉛封。高雄市水利局指出，高市每日用水量150萬噸，黃燈減壓供水後，為139.5萬噸，節水約7%，而為因應今起用水大戶減量供水、民生用戶全日減壓供水再節水3%，水公司將加強管線末端、高地用戶應變，並預先規劃259個加水站、439個大型加水桶，以備不時之需，並新增小港臨海工業區3處載水點，提升每日供水達5000噸。因應實施全日減壓供水，自來水公司將加強監控高地、管末地區供水情形，如造成用戶用水不便，可撥1910免付費電話洽詢。另隨水情日漸嚴峻，節水措施將逐漸提升，為避免造成不便，市府已規劃載水點供應，計有屏東二代加工出口區、屏南工業區與鳳山水資源中心等3處。因應限水政策，運動發展局管理的公立游泳池4月1日起，關閉旗津池、三民池、鼓山池、右昌池、甲仙池、東門池共6池，開放國際池、左營池、新興池及楠梓池共4池，泳池採加藥及水中吸塵器維持水質。運動發展局也已張貼公告，呼籲民眾節約用水、簡易淋浴，共體時艱，配合節水。另委外泳池部分，鳳山游泳池採不補新水，增加水質過濾頻率，以維持水質，前鎮游泳池則自今天起原每日開放2場次，調整為每日僅開放下午1場次，大寮游泳池僅開放上午場次，大社游泳池則暫停開放。民營泳池部分，運發局加強宣導其配合政府限水措施以節水共體時艱，並配合查核不定時派員現場瞭解及督導。（地方中心曾珮瑛／高雄報導）
## 7: 針對日本政府今（4/13）決議將福島第一核電廠核污水於2年後排入太平洋，綠色和平今早也對此嚴正譴責，痛批此舉已傷害日本及鄰近地區的人權，日本政府也違反國際公約，極可能遭到抵制。此外，根據綠色和平在日本的民調顯示，超過半數的福島居民與日本大眾皆反對核污水排入太平洋，日本漁業聯合會也不斷表達反對。我國原能會今早也對日方這項決定緊急表態「我國政府及民間團體均反對日方這作法，對此決議感到遺憾！」且若日政府不顧鄰國反對，仍採海洋排放方式，我國希望日政府須量測台灣附近的公海海域內的海水及海生物的放射性活度變化，且須將分析結果儘速提供給原能會。今日熱門：【獨家/掃性大調查】1成3台人炒飯次數降 武肺另類貢獻！近7%減少約炮國際綠色和平執行總監珍妮佛．摩根（Jennifer Morgan）表示，21世紀的海洋正面臨諸多威脅與挑戰，日本政府決定把核污水排入太平洋不僅是暴行，更違反聯合國國際海洋法公約(UNCLOS)，未來的幾個月內日本將受到強烈抵制。綠色和平東亞分部氣候與能源專案主任鈴木（Kazue Suzuki）批評，日本政府再次罔顧日本人民安全，不僅低估輻射污染的風險，且忽視其他存儲核污水的空間及降低輻射的技術，以最便宜行事的方式將核污水倒入太平洋。根據綠色和平在日本的民調顯示，超過半數的福島居民與日本大眾皆反對核污水排入太平洋，日本漁業聯合會也不斷表達反對。此外，聯合國人權特別報告員在去年6月及今年3月兩次警告日本政府，核污水排入海洋將侵犯日本公民、韓國及台灣等鄰近區域人權，並呼籲日本政府相關排放決定應留待新冠肺炎危機結束、且經足夠的國際諮詢後再行決定。自2012年起，綠色和平持續反對福島核污水排放計畫，透過向聯合國相關組織提交研究報告、與其他NGO舉辦福島居民座談會，並蒐集18萬份連署書向政府展現反對聲音。今年3月，綠色和平在發表《福島第一核電廠除役建議書》，其中也包含減少核污水增加的替代方案。綠色和平將持續以日本開始，在東亞地區及全球串連，阻止核污水排入太平洋。綠色和平表示，該組織未對福島核災帶來的核廢水進行檢測，但之前輻射調查團隊於2011年3月26日抵達福島，10年內進行32次調查，最近一次在2020年底的資料顯示，當地清除輻射工作的效果非常有限，且近85%須清除輻射地區(指土壤，或特別除污地區）仍未進行清除工作，因此擔心福島的核廢水也有類似問題。綠色和平補充說明，在範圍廣達840平方公里的特別除污地區內，日本政府宣稱可徹底完成除污工作，但綠色和平仍在該區域內測得放射物質銫（Cs），例如在福島飯館村一戶民宅外，就測得超過日本政府所稱的除污安全值。（施春美／台北報導）今日推薦：【台鐵出軌】撞裂7根肋骨！逃生想拉菜籃車遭勸退 倖存阿嬤：救難員是對的大家都看：【母親節車票】《蘋果》實測雙鐵還有空位 台鐵：座位售罄才開賣站票
## 8: 國內水情嚴峻，今天(4/6)起苗栗及台中地區實施「供五停二」紅燈分區供水措施。今天首當其衝的是台中市的停水分區甲區77萬戶，以及苗栗停水分區甲區3.4萬戶，總計80.4萬戶從今天凌時0分停水至明晚24時。台水公司表示，已於苗栗地區設置65處、台中地區設置347處、北彰化地區設置45處臨時供水站，派水車機動隨時補水，另今起提供「台水臨時供水站」App供民眾下載，可即時掌握各供水站即時水位狀況，黃色燈號代表「補水中」，灰色燈號表示「供水日無提供服務」。台灣正面臨73年來、史上最嚴峻乾旱，經濟部旱災中央災害應變中心3月24日宣布，今天開始台中及苗栗由減量供水橙燈轉為分區供水紅燈，實施「供五停二」分區供水措施。台中及苗栗地區總計106萬用水戶，各分為甲區、乙區兩個分區供水區，苗栗分區供水甲區3.4萬戶，乙區3萬戶；台中分區供水甲區77萬戶，乙區23萬戶。台水公司表示，「供五停二」措施，甲區每周二凌時0分停水至周三晚間24時，乙區則是每周四凌時0分停水至周五晚間24時，也就是說台中及苗栗地區甲區約80.4萬戶，自今天凌時0分開始首批停水2天。台水公司3月25日上午公布「苗栗台中北彰化臨時供水清單」，當時總計苗、中、北彰化共436個臨時供水點，台水公司並公布「臨時供水清單」資訊，《蘋果新聞網》獨家報導該清單只有地址，遭民眾抱怨資訊太少，恐讓停水地區民眾「現場枯等水車等到死」或拎著水桶滿大街找水車很不便民，希望比照公車到站系統設置水車即時動態資訊，台水公司之後陸續在「臨時供水清單」增加負責單位及聯絡電話，今天公布已增至457個取水點，並提供「台水臨時供水站」App供民眾查詢水車即時動態狀況。民眾除可至台水公司網頁查詢各臨時供水站位置、連絡人電話及水量狀況外，「台水臨時供水站」App包括Android與IOS版本均已上線，民眾可使用「供水站」、「供5停2」等關鍵字搜尋下載安裝，隨時掌握鄰近臨時供水站水量狀況。各供水站水位狀況如為「綠色燈號」表示「正常」、若為「黃色燈號」表示「補水中」；另如該供水站為供水日，則顯示「灰色燈號」表示「供水日無提供服務」。水利署則表示，今天分區供水首日，該署協調國防部分批整備調派消防水車，支援協助醫療院所、學校載水工作，優先提供台中分區供水地區醫療院所及學校補水作業，另外水利署於清明連假期間完成最後整備工作，包含自來水取水點佈置，優先協助醫療院所、社福機構及學校（含團膳）等單位增設儲水設備，水利署長賴建信今也特別前往台中市太平區麗園公園取水點，暸解國防部支援水車載運流程。台水公司除持續派人巡檢提供最新供水站狀況，倘民眾發現現場無水，亦請協助撥打各供水站聯絡電話或客服專線1910，以儘速補水；另民眾有其他關於分區供水範圍或停水時間等疑問都可撥打1910免付費電話洽詢，或進入台水公司網站「抗旱專區」以及台水粉絲專業查詢。（許麗珍／台北報導）
## 9: 台中市政府與經濟部水利署今(15)日一同在東區帝國糖廠展開旱災整備演練，現場除出動移動式緊急淨水設備(Qwater)，也派遣水車演練醫療院所緊急供水作業，全力面對缺水衝擊。市長盧秀燕表示，市府除加強節水宣導，也已協調工業用水大戶減量用水，考量水情嚴峻，盼中央增援台中更多淨水設備，並協調游泳池、三溫暖等業者減量用水，一同度過旱情難關。台中市政府運動局宣佈3月22日起，20座公立游泳池將縮短每日開放時間、必要時每週自行選擇1至2日閉館、場館內淋浴間暫停開放；水情一旦轉為紅燈將暫時閉館，作為緊急備用水源。台中市政府今天會同經濟部水利署、工研院、自來水公司等單位舉行旱災整備演練，由市長盧秀燕擔任指揮官，以進入第三階段分區供水為情境，演練高地地區緊急送水、建置臨時取水站、水車支援醫療院所緊急供水、出動緊急淨水設備進行地下水淨水、民眾取水等作業。盧秀燕宣示：「做最壞的打算、最好的準備！」她說，今年水情為台灣半世紀來最嚴重，中部鯉魚潭水庫蓄水量不到15%、德基水庫不到10%，未來若進一步限水，勢必衝擊市民生活及各行各業，考量中部水情比北部嚴峻，卻僅獲中央分配一部Qwater，每日生產15噸用水，不足應付100多萬噸的民生用水需求，盼中央調整預算部署更多淨水設備；另針對游泳池、三溫暖、遊樂園等非民生用水及非工業用水行業，也盼中央協調減量用水，研擬相關補償機制，協助業者度過難關。經濟部水利署長賴建信指出，Qwater可依照水情狀況移動，因應民眾用水需求，只要地方提出需求，中央將全力協助；他也肯定市府因應水情提前進行綿密規劃，將持續與市府合作部署，共同抗旱。經發局表示，今日演練內容多元，包括實施分區供水時，針對管線末端或地勢較高地區，可能發生供水、儲水量不足等問題，加強與自來水公司緊密聯繫，全力為民生提供必要水源；各醫院若發生儲水不足現象，台中市旱災災害應變中心將請消防局在不影響救災下緊急支援供水，保障醫院用水。而水利局目前提供6處水資源回收中心水源，每日出水量分別約為10.6萬噸，都發局也彙整72處新建建築工地地下水，均可提供市民取水。市民可透過台中市政府抗旱專區( https://www.economic.taichung.gov.tw/1627020/Nodelist )查看取水地點，至居家鄰近地點取用，可作為植栽澆灌、居家清潔、洗車等次級用水使用。而且，台中地區地下礫石層多，地下水源資源豐富，為不浪費新建建築工地地下水資源，都發局除要求廠商設置取水閥，選擇符合自來水取水品質的地下水資源，搭配經濟部水利署的移動式緊急淨水設備(Qwater)進行水質淨化，增加飲用水，產水量為一天15噸，每天約可供給7500人飲用；另為維護飲用品質，環保局將加強水質抽檢，讓民眾安心使用。（地方中心黃任膺／台中報導）
## 10: (新增：台水公司說法）春雨來不及解渴，中南部地區正面臨73年來最嚴峻乾旱，為此水利署已進行「紅燈備戰」演練，規劃台中在內等水情吃緊線是實施紅燈「供5停2」，而教育部已於3月初函知黃、橙燈縣市轄內大學和部屬機構，要求學校配合水情燈號和對應措施，橙色燈號縣市大學游泳池應減供20%，並優先規劃游泳課調整方案，而燈號若轉為紅燈，校方應停止游泳課。根據水利署資訊，近期新竹縣市、苗栗縣、台中市、彰化縣北部、嘉義縣市、台南市水情已亮起橙色燈號，游泳池以及三溫暖業者、洗車業等水量需減供20%，上述縣市預計將有49所大專校院受影響。水情同樣影響高等教育。教育部表示，已於3月初發函至水情燈號為黃、橙燈地區的大專校院和部屬機關，請單位配合水利署水情燈號意義和相對應措施，調整學校用用水方式。教育部體育署學校體育組副組長蔡忠益接受《蘋果》電訪時說明，依照水利署規定，橙色燈號地區大專校院游泳池也必須減供20%。另外，教育部也指出，依照「學校旱災災害應變工作流程」只要縣市進入黃燈或橙燈限水階段，學校就應「優先規劃」體育課游泳教學替代方案；若水情進入紅燈前限水準備階段，學校則應「確認」游泳教學課程替代或調整方案；進入紅燈限水階段時，學校就應依規畫方案調整課程。蔡忠益說，教育部並未規定學校何時須將游泳池完全關閉，只是因應課程調整，泳池設施也必須做出對應規劃，若因水情必須實施游泳課替代方案，照理來說泳池就必須關閉。但學校還須持續維護泳池設施，考量到池體維護，即便泳池暫時關閉也不一定會將水全數排漏，可視學校維護方式處理。水情橙色燈號地區、台中市國立中興大學表示，學校目前已停止非必要供水，如停止澆灌、噴灌等措施，擬定游泳教學替代方案並減供游泳池用水。若真進入紅燈限水前，校內將會成立旱災災害應變小組並訂定旱災應變SOP，包括規劃教職員衛生安全因應方案，同時規劃校內宿舍儲水計畫。中興大學說明，只要台中市進入紅燈限水階段，就會執行體育課調整方案，並且暫停開放校內游泳池。台灣自來水公司表示，水情燈號「橙燈」的地區，減量供水措施包括停止供水、減量供水兩部分，其中減量供水，是指游泳池、洗車、三溫暖、水療業者、及其他不急需的用水，減供20%，以學校為例，每所學校都有一個水表的總表，會針對水表總表進行管控，以該單位去年8月的用水量為基準，水表總表減少供水量20%，至於學校游泳池要怎麼因應，例如減供20%用水量之後，學校游泳池一周減少開放1至2天，或是游泳水位下降，都由學校自行決定，台水公司只負責管控水表總量。（許維寧、許麗珍／台北報導）
## 水庫 地區 人民 運勢 下雨 其他
## 1: 0.9998485 3.029104e-05 3.029104e-05 3.029104e-05 3.029104e-05 3.029104e-05
## 2: 0.9997054 5.891301e-05 5.891301e-05 5.891301e-05 5.891301e-05 5.891301e-05
## 3: 0.9997036 5.927358e-05 5.927358e-05 5.927358e-05 5.927358e-05 5.927358e-05
## 4: 0.9996729 6.541212e-05 6.541212e-05 6.541212e-05 6.541212e-05 6.541212e-05
## 5: 0.9996458 7.083424e-05 7.083424e-05 7.083424e-05 7.083424e-05 7.083424e-05
## 6: 0.9996361 7.278621e-05 7.278621e-05 7.278621e-05 7.278621e-05 7.278621e-05
## 7: 0.9996352 7.296901e-05 7.296901e-05 7.296901e-05 7.296901e-05 7.296901e-05
## 8: 0.9996315 7.370948e-05 7.370948e-05 7.370948e-05 7.370948e-05 7.370948e-05
## 9: 0.9996238 7.523645e-05 7.523645e-05 7.523645e-05 7.523645e-05 7.523645e-05
## 10: 0.9996228 7.543178e-05 7.543178e-05 7.543178e-05 7.543178e-05 7.543178e-05了解主題的時間變化：
明顯可以發現議題是隨著時間往後漸漸熱議的，對應現實來說，缺水的狀況是越往後越嚴峻。五月還沒有結束，所以可能還不準（但 至少和一月、二月差不多了），不過也有可能是因為最近大家都在討論其他事情，可以再觀察。
news_topic %>%
mutate(artDate = as.Date(artDate)) %>%
group_by(artDate = format(artDate,'%Y%m')) %>%
summarise_if(is.numeric, sum, na.rm = TRUE) %>%
melt(id.vars = "artDate")%>%
ggplot( aes(x=artDate, y=value, fill=variable)) +
geom_bar(stat = "identity") + ylab("value") +
scale_fill_manual(values=mycolors[c(1,5,8,12,16,20)])+
theme(axis.text.x = element_text(angle = 90, hjust = 1))## Warning in melt(., id.vars = "artDate"): The melt generic in data.table has been
## passed a tbl_df and will attempt to redirect to the relevant reshape2 method;
## please note that reshape2 is deprecated, and this redirection is now deprecated
## as well. To continue using melt methods from reshape2 while both libraries are
## attached, e.g. melt.list, you can prepend the namespace like reshape2::melt(.).
## In the next version, this warning will become an error.
### 去掉較少的月份
news_topic %>%
mutate(artDate = as.Date(artDate)) %>%
filter( !format(artDate,'%Y%m') %in% c(202101,202102))%>%
group_by(artDate = format(artDate,'%Y%m')) %>%
summarise_if(is.numeric, sum, na.rm = TRUE) %>%
melt(id.vars = "artDate")%>%
ggplot( aes(x=artDate, y=value, fill=variable)) +
geom_bar(stat = "identity") + ylab("value") +
scale_fill_manual(values=mycolors[c(1,5,8,12,16,20)])+
theme(axis.text.x = element_text(angle = 90, hjust = 1))## Warning in melt(., id.vars = "artDate"): The melt generic in data.table has been
## passed a tbl_df and will attempt to redirect to the relevant reshape2 method;
## please note that reshape2 is deprecated, and this redirection is now deprecated
## as well. To continue using melt methods from reshape2 while both libraries are
## attached, e.g. melt.list, you can prepend the namespace like reshape2::melt(.).
## In the next version, this warning will become an error.
### 各個議題隨著時間的變化： 比較特別的是，水庫主題在五月目前是佔比較少數的。
news_topic %>%
mutate(artDate = as.Date(artDate)) %>%
filter( !format(artDate,'%Y%m') %in% c(202101,202102))%>%
group_by(artDate = format(artDate,'%Y%m')) %>%
summarise_if(is.numeric, sum, na.rm = TRUE) %>%
melt(id.vars = "artDate")%>%
group_by(artDate)%>%
mutate(total_value =sum(value))%>%
ggplot( aes(x=artDate, y=value/total_value, fill=variable)) +
geom_bar(stat = "identity") + ylab("proportion") +
scale_fill_manual(values=mycolors[c(1,5,8,12,16,20)])+
theme(axis.text.x = element_text(angle = 90, hjust = 1))## Warning in melt(., id.vars = "artDate"): The melt generic in data.table has been
## passed a tbl_df and will attempt to redirect to the relevant reshape2 method;
## please note that reshape2 is deprecated, and this redirection is now deprecated
## as well. To continue using melt methods from reshape2 while both libraries are
## attached, e.g. melt.list, you can prepend the namespace like reshape2::melt(.).
## In the next version, this warning will become an error.