ggplot2分面展示竞品

setwd("C:/Users/zhangluying/Desktop/项目/BIGINVEST/竞品利率监测/R画图")
data<-read.csv('real.csv',stringsAsFactors = F)
str(data)

data$first<-substr(data$plat,1,1)

library(ggplot2)
library(reshape)
str(data$date)
#data$date<-factor(data$date,levels = c("9月8日","9月15日"))
data$product<-factor(data$product,levels = c("n1","u1","u3","u6","u12","u24","u36"))
head(data)
#混合低利率和高利率图
#p<-ggplot(data=data,aes(x=date,y=rate,color=plat,
#      shape=cat,alpha=0.00000000001))+
 # geom_point()+geom_line(aes(group=interaction(interaction(plat,product),cat)))+
  #geom_text(aes(label=cat),hjust=3,color="black")+
  #facet_grid(.~factor(product),scale = "free")+
  #labs(title='竞品利率')


#按照两个变量分面
ggplot(data=data,aes(x=date,y=rate,color=plat))+
  geom_point()+geom_line(aes(group=interaction(interaction(plat,product),cat)))+
  facet_grid(cat~factor(product))+
  geom_text(aes(label=first),hjust=1,color="black",alpha=1/2,position = "jitter")+
  labs(title='竞品利率')+coord_cartesian(ylim=c(5,13))

#换数据，低利率部分

p%+%data[data$cat=='l',]