2016-08-15 50 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