library(ggplot2)
library(RODBC)
library(scales) # to access breaks/formatting functions
channel
tb_active_session
tb_active_session_AAS
#所有活动会话数的活动类型的次数展现
#自定义调整图例顺序,
tb_active_session$ACTIVITY=factor(tb_active_session$ACTIVITY,levels=c("Other","Cluster","Network","Administrative","Configuration"
,"Commit","Application","Concurrency","System I/O","User I/O","Scheduler","CPU"))
g
g+geom_area(aes(fill=ACTIVITY),stat="identity"
,position = "stack",rm=T ) + scale_fill_manual(values=c("#FF6699", "#CCCC99", "#999966","#666666"
, "#663300", "#CC6600", "#CC3300", "#FF0000", "#0099FF", "#0033FF", "#99FF99","#00CC00")) + scale_x_datetime(breaks = date_breaks("10 min"), labels = date_format("%H:%M"))
#AAS 展现
#自定义调整图例顺序,
tb_active_session_AAS$ACTIVITY=factor(tb_active_session_AAS$ACTIVITY,levels=c("Other","Cluster","Network","Administrative","Configuration"
,"Commit","Application","Concurrency","System I/O","User I/O","Scheduler","CPU"))
gAAS
gAAS+geom_area(aes(fill=ACTIVITY),stat="identity"
,position = "stack",rm=T ) + scale_fill_manual(values=c("#FF6699", "#CCCC99", "#999966","#666666"
, "#663300", "#CC6600", "#CC3300", "#FF0000", "#0099FF", "#0033FF", "#99FF99","#00CC00")) + scale_x_datetime(breaks = date_breaks("10 min"), labels = date_format("%H:%M"))