作者ppp1987 (ppp)
看板R_Language
標題[問題] ggplot畫圖問題
時間Fri Jun 30 17:33:38 2017
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
使用者(已經有用R 做過不少作品)
[問題敘述]:
大大們好
我想用ggplot畫圖
類似像這個
https://goo.gl/B4Gujy
不過我畫出來顏色深淺沒有出來 只有某個點有顏色 其他都灰色 圖在下方
https://goo.gl/rq2s2q
想請問高手們問題出在哪裏 謝謝
[程式範例]:
Data:
https://goo.gl/w5RE2M
a<-read.csv("DT_6.csv")
a$finish_hms <- as.POSIXlt(a$finish_hms)
ggplot(a, aes(x=as.factor(finish_date), y=finish_hms, fill = timediff )) +
geom_dotplot(binaxis = "y",stackdir = "center", binwidth = 600 ) +
xlab("Date") + ylab("time") + ggtitle( paste("NO.8 Before")) +
scale_fill_gradient(low = 'blue', high = 'red')
[環境敘述]:
macbook pro 2015
[關鍵字]:
ggplot
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.216.90.96
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1498815221.A.ABD.html
1F：→ locka: 猜測因為binwidth太大所以都被分到同一組…調小一點試試看? 06/30 18:46
2F：→ ppp1987: 剛剛試了一下 還是一樣 06/30 18:48
3F：→ x88776544pc: 試不出來@@, fill 如果切成discrete 運作就正常, 此 06/30 20:19
4F：→ x88776544pc: 外可以用 color 跟 geom_point 得到類似效果就是了 06/30 20:19
5F：→ max6: 切成discrete +1。可以再用log讓分佈平均一點。 07/02 13:55
6F：→ max6: a$timediff <- cut(log(a$timediff), breaks = 10) 07/02 13:55
7F：→ max6: 最後再讓顏色有順序: + scale_fill_brewer() 07/02 13:57