网站指标操作
环境:R,win7
插件:gWidgetRGtk2、gWidget2包,Gtk插件
install.packages("gWidgets")
library(gWidgets2)
library(RColorBrewer)#颜色包
mouth<-c(36313,35500,16965,230116)
week<-c(8646,8875,3393,51137)
window=gwindow("xxx网站数据指标分析系统")
BigGroup = ggroup(cont = window)
#zz=curve(3*x*log(x)-1/36*exp(-(36*x-36/2.72)^4),xlim=c(0,1),ylim=c(-0.8,-2))
#plot(zz$y,zz$x,type="l",xlab="x",xlim=c(-0.6,-2),ylim=c(0,0.9),ylab="y=3*x*log(x)-1/36*exp(-(36*x-36/2.72)^4)")
group = ggroup(horizontal = FALSE ,container = BigGroup)#建立左边区域
period.gf = gframe("选择查看周期",container = group)
view.gf = gframe("显示方式",container = group)
group.plot = ggroup(container = BigGroup,expand = T)#建立左边区域