※ 引述《corel (可羅)》之銘言： : : ctrl + y 可以刪除一整行，請將不需要的內容刪除 : 文章分類提示: : - 問題: 當你想要問問題時，請使用這個類別 : - 分享: 當你看到別人的心得時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性 : ) : - 情報: 當你看到消息時，請使用這個類別。版主鼓勵你幫版友歸納重點(選擇性) : - 心得: 當你自己想要分享經驗時，請使用這個類別。 : - 討論: 當你自己已經有答案，但是也想聽聽版友意見時 : : [問題類型]: : : 意見調查(我對R 有個很棒的想法，想問問大家的意見) : 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) : 效能諮詢(我想讓R 跑更快) : 經驗諮詢(我想用R 連接某些資料庫，請問大家的經驗) : : [軟體熟悉度]: : 請把以下不需要的部份刪除 : 新手(沒寫過程式，R 是我的第一次) : 入門(寫過其他程式，只是對語法不熟悉) : 使用者(已經有用R 做過不少作品) : 開發者(有撰寫R 的套件經驗) : [問題敘述]: : 請簡略描述你所要做的事情，或是這個程式的目的 : 想要畫圖 : [程式範例]: : http://ideone.com/fuQFUL : [結果圖]: : 不是我想要的 : http://imgur.com/0NQW53E : 原本設想其實應該比較接近 : http://imgur.com/0u5N2k9 : 或是折線圖 : 謝謝 你輸入的x被當成了整數，所以畫出來會不如你所想是正常的 請轉成時間之後再使用 x<-c(201401,201402, 201403, 201404, 201405, 201406, 201407, 201408, 201409, 201410, 201411,201412, 201501, 201502, 201503, 201504, 201505, 201506, 201507, 201508, 201509, 201510, 201511, 201512, 201601, 201602, 201603, 201604) library(fasttime) x_time <- fastPOSIXct(paste0(paste0(substring(x, 1, 4), "/", substring(x, 5, 6)), "/01 00:00:00")) - as.difftime(8, units = "hours") # ct是格林威治標準時間，轉過去的時間點，在台灣時區(GMT+8)剛好會多8小時 # 所以做一個簡單的修正減去八小時(其實不做也沒差，圖看不出來八小時的差異) y<-c(16.8, 16.5 ,18.9, 22.5, 25.2 ,28.0 ,30.5 ,30.2, 29.7 ,24.7 ,22.3, 16.5, 16.7, 17.3, 18.9, 22.7, 26.1 ,30.0 ,30.0 ,28.6 ,27.4, 25.2 ,23.5 ,18.9, 16.2, 15.5, 17.5 ,24.0) plot(x_time,y,type="o", lwd=2, col=2, xlab="年月", ylab="氣溫") -- R資料整理套件系列文： magrittr #1LhSWhpH (R_Language) http://tinyurl.com/j3ql84c data.table #1LhW7Tvj (R_Language) http://tinyurl.com/hr77hrn dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/jtg4hau dplyr(下) #1Lhw8b-s (R_Language) tidyr #1Liqls1R (R_Language) http://tinyurl.com/jq3o2g3 --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.218.152.118 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1462191813.A.FDF.html ※ 編輯: celestialgod (180.218.152.118), 05/02/2016 20:27:52