PTT數位生活區 / R_Language

[問題] facet_grid factor 多圖佈局內部資料錯置

看板R_Language作者 (固執又暴燥)時間7年前 (2018/05/09 15:06), 7年前編輯推噓1(1推 0噓 17→)
留言18則, 2人參與, 7年前最新討論串1/1
[問題類型]: 程式諮詢 [軟體熟悉度]: 使用者(已經有用R 做過不少作品) [問題敘述]: 我有個data.frame 資料前處理已經做好了 因為檔案有點大 我無法重現一個假數據 所以附上檔案連結 https://drive.google.com/file/d/13HvtUvdp6pEqgSyz2K051dvYVeoRHEyb/view?usp=sharing 再附上短網址 https://goo.gl/WMPYMw 這裡面是 台灣的網格資料 有溫度t2m 雨量rainf 和病例數 （溫度 雨量 有做7天移動平均 所以年頭6天無值） 網格 切的方面為 S1.N86 由南到北分為1到86格 W1.E41 由西到東分為1到41格 目前試做 2015 高雄市 畫圖之前 有偷看一下病例極大值都落在 S1.N86 =〉7~10 W1.E41 =〉22~26 也就是 高雄市區的部分 後來畫圖 使用ggplot2 facet_grid 因為 facet_grid 自動分圖 會幫我把 W1.E41的格點 南北相反擺 所以又補上 類似這樣的功能 temp$size_f = factor(temp$size, levels=c('50%','100%','150%','200%')) 但是出圖後 病例極大值 確落在中央山脈那邊 〈=這應該是出圖錯誤 如果沒有修改 factor 順序 會得到一個南北格點相反的圖 且 數據是對的 改了 factor 順序 就會出現病例資料在中央山脈出現極大 一直在爬文試方法解決 特地上來求教 感謝各位大德 [程式範例]: 程式碼在這 中間有很多種常試解決的片段 可以略過 https://ideone.com/4EfhkR [環境敘述]: 請提供 sessionInfo() 的輸出結果， 裡面含有所有你使用的作業系統、R 的版本和套件版本資訊， 讓版友更容易找出錯誤 [關鍵字]: r ggplot2 facet_grid order -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.135.58.147 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1525849596.A.1E4.html ※ 編輯: BUQ (140.135.58.147), 05/09/2018 15:17:34
→
05/10 11:37, 7年前 , 1F
我自問自答好了 後來我把南北格子號碼那個col乘-1
05/10 11:37, 1F
→
05/10 11:38, 7年前 , 2F
出圖就比較正常一點 但是病例數仍然出錯
05/10 11:38, 2F
→
05/10 11:38, 7年前 , 3F
拿掉 facet_grid 一切就OK了
05/10 11:38, 3F
→
05/10 11:39, 7年前 , 4F
我放棄多圖輸出了
05/10 11:39, 4F
推
05/16 12:48, 7年前 , 5F
dff%>%
05/16 12:48, 5F
→
05/16 12:48, 7年前 , 6F
arrange(S1.N86,W1.E41,date)%>%
05/16 12:48, 6F
→
05/16 12:48, 7年前 , 7F
mutate(S1.N86=S1.N86%>%factor(.,levels=unique(.)%>
05/16 12:48, 7F
→
05/16 12:48, 7年前 , 8F
%rev),
05/16 12:48, 8F
→
05/16 12:48, 7年前 , 9F
W1.E41=W1.E41%>%factor(),
05/16 12:48, 9F
→
05/16 12:48, 7年前 , 10F
rainMA=rainMA/5)%>%
05/16 12:48, 10F
→
05/16 12:48, 7年前 , 11F
ggplot(aes(x=date))+
05/16 12:48, 11F
→
05/16 12:48, 7年前 , 12F
geom_line(aes(y=rainMA),color='steelblue', size=0.
05/16 12:48, 12F
→
05/16 12:48, 7年前 , 13F
1)+
05/16 12:48, 13F
→
05/16 12:48, 7年前 , 14F
geom_point(aes(y=t2mMA),color='red', size=0.05, al
05/16 12:48, 14F
→
05/16 12:48, 7年前 , 15F
pha=0.5)+
05/16 12:48, 15F
→
05/16 12:48, 7年前 , 16F
geom_bar(aes(y=N), stat="identity", color='#d9ef8b
05/16 12:48, 16F
→
05/16 12:48, 7年前 , 17F
', alpha=0.1)+
05/16 12:48, 17F
→
05/16 12:48, 7年前 , 18F
facet_grid(S1.N86~W1.E41)
05/16 12:48, 18F
‣ 更多 BUQ 的文章
文章代碼(AID): #1Qyfty7a (R_Language)
R_Language 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 BUQ 的文章
文章代碼(AID): #1Qyfty7a (R_Language)