口罩的溫情

經武漢肺炎後  在生活中發生一些不同

就是走到那都要帶口罩  量體溫  保持社交距離

你說有多大的改變  也還好.......但就是有種說不出的不方便

上星期四去台北精誠談一個車隊派遣的案子

想當然爾是坐高鐵到台北並且是最早的前兩班

於是就到左營高鐵站並坐電梯到二樓購買

就在上樓的一瞬間  發現忘記戴口罩  不禁說了一聲忘記戴口罩

因為高鐵全程都須配戴口罩  要不進去時也會將您攔下

若是再趕回家  就趕不上高鐵  到精誠的時間也會遲到

此時旁邊有位國中女生  應該是搭台鐵的學生  不慌不忙從書包中拿起口罩給我  說送你

當下的我  不知用何種語言跟她說聲感謝  而她哪種淡然  也不會做了件好事  而覺得高興

在她的臉上顯示一切都那麼平凡  部會幫助了人  感到高興  這種感覺令我有一種  

像金剛經所說不住相布施  也就是說幫助他人不求任何的回報  也不須他人的推崇

這一切的善舉顯得如此之自然  在這邊也衷心祝福這位女同學  學業進步快樂

真的很感謝她.........................

R語言基本統計與繪圖

昨日睡覺時思考  論文的資料分析如何做

想著提案尚未通過  無法發問卷  也無法得到問卷資料

那是不是等回收問卷時  又是一個痛苦的開始  指導教授盯得緊

想著想著  乾脆用Execl亂數模擬問卷的答題分數

試著用R跑基本分析、信度分析、效度分析、滿足假說檢定、假說檢定等資料

才用問卷基本分析用R跑  就搞得我雞毛鴨血  當然基本分析是很簡單用Execl跑絕對沒問題

但是我就不要用Execl跑  因為後面用Exec跑是很困難  乾脆先用R簡單跑一遍

但就是不容易在R的環境會用table指令進行數量統計  做完數量統計必須轉換dataframe

才能使用ggplot  考!誰知道啊!  試了半天  問了無數的google大神  才知道

上述就是從table轉換成dataframe才可進行繪圖，原本沒有gender.df變數，直接使用as.data.frame(gender)，

第二行為驗證是否為dataframe怎麼試都是fales  搞到後面都懷疑人生  在無心之下前面加個變數給它

ㄟ  竟然就可以了   真的是.......................無言...................................................

終於可以繪圖了  我要的也很簡單就是男生/女生田問卷的數量  如下圖

但是就是奇的怪.......................

怎麼簡單  簡直在侮辱我的智商  結果搞得半天  我又開始懷疑人生  問了無數的google大神

原來ggplot的長條圖原來有兩指令其一為geom_bar和geom_col，使用geom_bar

所產生的結果Y軸都是密度並不是數量，什麼是密度就是0到1，必須將參數進行設定

結果我使用geom_col它必須明確設定X軸及Y軸，而geom_bar只須設定X軸，Y軸由系統自動跑出

最後我使用geom_col

最後我要的統計圖樣子如下

就怎麼簡單  卻可以搞那麼久  說起來都是淚啊...............

很多事情看起來很簡單  沒做都不知道  所以在程式講的實作是有道理的.

程式123

寫程式是這樣  首先要有熱情

沒熱情一個標點就可以搞死你

寫程式是這樣  寫出來成就感爆棚

寫不出來挫折感遍佈全身  讓你晚上睡不著

不服氣嗎？  行！沒問題你可以一直挑戰

此時你就像無限迴圈如此這般的試下去

抬頭時已經凌晨了……

寫程式是這樣  新東西超多

都想學最後什麼多不會  變成半桶水響叮噹

寫程式是這樣  邏輯與語法格外重要

但出了社會成為職業組  最缺就是時間

就上code吧！  囫圇吞棗 知其然不知所以然

最後……茫茫然不知所以然

這些都是程式123  該如何解決及面對？

下集待續………………

野性的呼喚

今天了一齣電影  在媒體氾濫的今天

YT  免費電影看到飽的今日

到後面要老實看完一齣電影  真的很難!

電影不是按下快轉  或是節奏有點慢

立馬就不看.............

但今日老實地看完一齣點影  沒按下快轉

這齣電影為野性的呼喚.........

其實這部電影有點我在小學讀的一本書  白牙

講述一條家犬脫離人類  逐漸找到動物的原始本能

其實這部電影就改編這部小說  電影內容我都大概知道後面會發生甚麼事

但我卻被人類與動物之間的情感深深吸引  最後找到內心最原始的渴望

這過程還是深深吸引我.........想想我們在社會  被這些規矩所限制

何嘗不是也要找到自己內心的自由

刺客教條---黑旗 對人生的寓意

黑旗這遊戲於2014年發行至今四年了!

這次過年無聊買了二手玩一下竟然就破關

當然只有主線劇情...

之前所玩是埃齊歐合籍，我只能說真的很難操作

關卡也很難破...但我也玩完...

而黑旗之前就有聽說但評價不好...所以拖至今日才開始玩

玩完後黑旗比埃齊歐還好操作，關卡也沒有比埃齊歐變態

一個玩起來順暢....

並且當主線走完之後內心竟然有些不捨.......

我想故事有給人們一些啟發.....

肯威在故事裏就想功成名就....

想擁有一隻屬於自己的船

想擁有更多的財富

想擁有更多的名聲

想在世俗的人的眼光中被人看得起

在現實的世界裏他不斷追求屬於自己的光環

 勇往直前  無所畏懼  拋家棄子  出賣朋友

只要能達成目標有何不可......

想想.....這不是我們現代人的寫照嗎?

當肯威達成所有的目標時.....好友死去...老婆死去

當他回到所想的目標的原點上...慕然回首你真的得到了嗎?

這個故事給我很深的啟發....雖然沒有像肯威有如此大的理想

從年輕到現在  自己覺得要做出不一樣的理想  回首.....

自己真的有得到嗎.....我想這個答案只有自己知道

R語言之日常_ggplot2：geom_histogram用於連續資料；geom_bar()用於離散資料

最近都學習R  當然參閱很多的範例  有些範例已經較舊  照著做東西出不來

像直方圖較舊範例使用geom_histogram使用後出現下列錯誤訊息
Error: StatBin requires a continuous x variable: the x variable is discrete. Perhaps you want stat="count"?

意思說"需要一個連續變數，而你目前的變數是離散資料"  甚麼是連續?  甚麼是離散

a<-c(1:5)(連續資料)

b <- c("tom","john","joe")(離散資料)

可是看很多的範例  左看右看  都沒問題

原因是較舊的R版本使用geom_histogram可支援連續資料和離散資料，但新的版本將兩者採用不同的指令

目前我的R版本是分別是R Studio Version 1.2.1335；R 3.5.2

若是你的資料使用離散必須使用geom_bar才可以

以下為ggplot2局部程式

ggplot(train,aes(x=Pclass,fill=factor(Survived)))+

  geom_bar(width=0.5)+

  xlab("Pclass")+

  ylab("Total Count")+

  labs(fill="Survived")

大功告成!

R語言之日常_使用rbind出現Error in match.names(clabs, names(xi)) : names do not match previous names

今天重拾R 語言使用rbind指令
在簡單不過，竟出現
Error in match.names(clabs, names(xi)) : names do not match previous names

我的語法 data.combined <- rbind(train, test.survived)

將train資料與test.survived資料倆資料合併，左看右看都不知道哪有錯!

上網google說要用matrix矩陣才可，辜且一試語法如下
data.combined  <- rbind(train,matrix(test.survived))
出現以下錯誤
Error in rbind(deparse.level, ...) :
  numbers of columns of arguments do not match

之後使用dplyr套件，語法如下
library(dplyr)
data.combined <- bind_rows(train, test.survived)
雖出現一些警告訊息，基本上對資料的合併是沒問題的

而dplyr()套件，相較於R原生的資料處理語法，dplyr() 套件中融入很多概念與結構化查詢語言（Structured Query Language，SQL）類似的函數。搭配 %>% 運算子一起使用，能夠讓我們整理資料的能力獲得一個層次的提升！