网站指标操作

网站指标操作

环境：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)#建立左边区域