2016-08-15 51 views
1

氏是我的數據:時間序列和傳說與GGPLOT2

x <- c("22-01-16","26-01-16","28-01-16","01-02-16","05-02-16","16-02-16","17-03-16","18-03-16","04-04-16","05-04-16","06-04-16","08-04-16") 
y <- c(97.14,75,54.44,70.45,110.56,66.3,178.76,171.90,419.41,424,518.63,242.17) 
z <- c("ADCP","ADCP","ADCP","ADCP","ADCP","ADCP","ADCP","ADCP","ADCP","ADCP","ADCP","ADCP") 

所以我讓使用GGPLOT2

Serie_Caudal <- 
ggplot(Datos, aes(Fecha, Caudal)) + 
geom_line(size=1, colour="red") + 
geom_point(shape=23,size=1, colour="blue",fill = "blue") + 
scale_x_date(date_breaks = "1 week",labels = date_format("%d/%b"))+ 
xlab("Fecha") + ylab(bquote('Caudal ('*m^3~s^-1*')')) + 
ggtitle("Caudales Diarios (01-06/2016)") 
Serie_Caudal 

我嘗試繪圖傳說數據幀

Datos <- data.frame(x) 
Datos$Caudal <- y 
Datos$Tipo <- z 
Datos$Fecha <- as.Date(Datos$x, "%d-%m-%y") 

和情節但我不能這樣,我嘗試使用Melt,但是我的數據以我無法計算的方式改變。也嘗試scale_fill_manual但傳說不會出現。我想知道是否有辦法將傳說放在手冊上。

圖例必須顯示藍點和ADCP

+2

目前還不清楚你的問題是什麼。你想學習如何繪製傳說? – shayaa

+0

是的,你能概述一下你試圖將其作爲傳說嗎? –

+0

你在傳說中究竟想要什麼? ggplot只爲映射美學創造傳說。如果你能更清楚地知道期望的輸出是什麼,這將有所幫助。 – MrFlick

回答

2

這隻顯示一個藍點。

ggplot(aes(Fecha, Caudal, colour = "ADCP"), data = Datos) + 
    geom_point() + 
    geom_point(shape=23,size=1,color="blue",fill = "blue") + 
    scale_color_manual(values = c("ADCP"="blue"),name = "") + 
    geom_line(color="red", size=1) + 
    scale_x_date(date_breaks = "1 week",labels = date_format("%d/%b")) + 
    xlab("Fecha") + ylab(bquote('Caudal ('*m^3~s^-1*')')) + 
    ggtitle("Caudales Diarios (01-06/2016)") 

enter image description here

+0

爲什麼使用兩個geom_point?,哪些數據代表第一個geom_point? – AnesG

+1

只是傳說出現的一個竅門。 – Robert