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))
#换数据,低利率部分
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',]