R 多变量折线图
以下是我的数据集:R 多变量折线图,r,linechart,R,Linechart,以下是我的数据集: MONTH YEAR Load 6 2011 5224.055 7 2011 6073.028 8 2011 5261.029 9 2011 4769.155 6 2012 4865.499 7 2012 5797.578 8 2012 5433.050 9 2012 4482.148 6 2013 4922.000 7 2013 5808.981 8 2013
MONTH YEAR Load
6 2011 5224.055
7 2011 6073.028
8 2011 5261.029
9 2011 4769.155
6 2012 4865.499
7 2012 5797.578
8 2012 5433.050
9 2012 4482.148
6 2013 4922.000
7 2013 5808.981
8 2013 4928.632
9 2013 4395.204
6 2014 4819.491
7 2014 5258.155
8 2014 4786.323
9 2014 4468.914
6 2015 4931.468
7 2015 5403.063
8 2015 5266.076
9 2015 4803.703
现在我想要Y轴上的负荷,X轴上的年,线应该描述每个月的负荷和年变化(我们假设您的数据帧名为
dat
):
试试这个(假设您的数据帧是df):
如果要显示每月的变化,请使用以下命令:
df$MONTH <- as.factor(df$MONTH)
ggplot(df, aes(YEAR, Load, colour = MONTH, group=MONTH, color=MONTH))+
geom_line(lwd=2) +geom_point()
df$MONTH成功了。谢谢。
head(df)
MONTH YEAR Load
1 6 2011 5224.055
2 7 2011 6073.028
3 8 2011 5261.029
4 9 2011 4769.155
5 6 2012 4865.499
6 7 2012 5797.578
df$MONTH <- as.factor(df$MONTH)
ggplot(df, aes(YEAR, Load, colour = MONTH, group=MONTH, color=MONTH))+
geom_line(lwd=2) +geom_point()
library(ggplot2)
library(scales)
df$Date <- as.Date(paste(1, df$MONTH, df$YEAR, sep='/'), '%d/%m/%Y')
ggplot(df, aes(Date, Load, colour = Load))+
geom_line() +geom_point() +
scale_x_date(date_breaks= "1 month", date_labels = "%m/%Y") +
theme(axis.text.x = element_text(angle=90, vjust = 0.5))