2019年8月3日 星期六

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")

大功告成!




2019年8月2日 星期五

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)類似的函數。搭配 %>% 運算子一起使用,能夠讓我們整理資料的能力獲得一個層次的提升!

2019年7月14日 星期日

R深度學習套件完整安裝

昨天自我膨脹  以為在R的深度學習相關套件安裝完成
今天不過開內建資料集就無法載入........
還要學習甚麼....當然我不是高手  在資料科學的領域算是一位新手

也知道python與R的戰爭,但keras支援R後,兩者之間戰爭又拉回中央
我接觸是R理所當然就用R ,當然我不是高手無法論戰兩套哪一個好?
只是單純學習時間考量而以.........

但在深度學習中其實都往python靠攏,在R光安裝深度學習的套件資源就不如python
甚至在R安裝套件的說明都是局部的沒有一個完整的說明,所以很令人挫折...

深度學習在R中有兩個套件很重要就是kerasTensorFlow
經過一番爬文及測試後發現以下過程,希望對大家有所幫助

  1. 首先安裝Anaconda軟體
  2. 下載Rtools
  3. 在R安裝keras
一、安裝Anaconda網址以下
依你的作業系統需求進行下載
在安裝時要注意  在next下一步過程看到 Add Anaconda to my path.....
只要看到PATH字樣就勾起來,很多人都是這個選項未選擇導致無法正常運作
這句話的意思將Anaconda的路徑加入至你的環境變數

二、安裝Rtools網址以下


一樣看到PATH字樣就勾起來

三、在R裝Anaconda這邊稍微較複雜,建議依順序執行
install.packages("devtools")
install.packages("R6")
install.packages("curl")
devtools::install_github("rstudio/keras")

在安裝R6出現重新啟動RStudio,按YES好幾次...最後我也不知道怎麼安裝好的
若是有人知道歡迎留言告知,接下來先載入keras,在安裝kers for cpu如下

library(keras)
install_keras()#for cpu一般來講都沒問題,這邊會安裝很久


安裝完成後驗證是否正確安裝,輸入以下指令

model <- keras_model_sequential()
model %>%
  layer_dense(units = 256,activation = 'relu',input_shape = c(784)) %>%
  layer_dropout(rate = 0.4) %>%
  layer_dense(units = 128,activation = 'relu') %>%
  layer_dropout(rate = 0.3) %>%
  layer_dense(units = 10,activation = 'softmax')
summary(model)





R mxnet 深度學習套件無法安裝_解決了!

R  mxnet 深度學習套件無法安裝

目前一般mxnet R套件在網路都是顯示以下安裝程式

install.packages("drat", repos="https://cran.rstudio.com")
drat:::addRepo("dmlc")
install.packages("mxnet")

但是試了半天找完可以Google的網站,也沒法解決!
最後以下程式就OK!但R的版本要3.5.x才可以,3.6.x還未支援

cran <- getOption("repos")
cran["dmlc"] <- "https://apache-mxnet.s3-accelerate.dualstack.amazonaws.com/R/CRAN/"
options(repos = cran)
install.packages("mxnet")

2019年1月22日 星期二

人生第一把機械鍵盤 青軸 支援藍芽

用了一輩子薄膜鍵盤  第一次用機械鍵盤

感覺一個字爽

每天在公司用完電腦後  回到家後都不想用電腦

無奈想不開自己跑去進修  回到家後還得繼續使用鍵盤

因為之前回到家後很少用電腦   所以鍵盤和滑鼠都使用得很兩光

搞到兩隻手的食指都怪怪的  沒有電腦時都會一直按摩我的食指

別人看到都以為我昨天  幹了甚麼壞事  導致食指疼痛

為了排除別人異樣眼光  就給他催下去  沒想到機械鍵盤還挺貴的







無現金支付的反思!

  **購物經歷** - 作者花費大量時間尋找立燈,最終在IKEA購買了一個649元的立燈 - 在IKEA附近停車場遇到只接受無現金支付的情況,被迫註冊並使用Line Pay **無現金支付的觀察** - 作者認為Line Pay作為前端介面,有助於提高停車場付費效率 - 作者預...