在R中的GUI框架中打印

这个GUI有三个框架，第一个是按钮，第二个是绘图。我面临的问题是无法在此框架内绘制图形1：

library(gWidgets2)
library(gWidgetsRGtk2)
library(RGtk2)
options(guiToolkit="RGtk2")
win=gwindow("FUZZY   TRADING   MODEL  ")
img <- gdkPixbufNewFromFile("E:/clusterring/str.1.png")
getToolkitWidget(win)$setIcon(img$retval)
paned<-gpanedgroup(cont=win)
group<- ggroup ( cont = paned , horizontal = FALSE )
getBlock(win)$modifyBg(GtkStateType["normal"], "purple")
frame <- gframe ( "RESULT:" , cont = paned , horizontal = TRUE)
tbl=glayout(cont=frame)
size(tbl)<-c(700,700)
tbl[8,10] =  gfilebrowse (text = "Select file...", type = "open", quote = FALSE,
                         filter = list("Text File" = list(patterns = c("*.csv"))),      
                         container = tbl)
tbl[13,10]= gbutton("GENERATING BUY AND SELL  SIGNALS ",cont=tbl,handler=function(h,...) generate_buy_sell-signal())
tbl[18,6] =glabel("ENTER PROFIT TARGET:-")
tbl[18,10] =gedit("", container=tbl,coerce.with=as.numeric) 
tbl[22,6] =glabel("STOP LOSS TARGET:-")
tbl[22,10] =gedit("", container=tbl,coerce.with=as.numeric) 
tbl[25,2]=gbutton("RUN BACK TEST  ",cont=tbl)
tbl[28,2]<-plut<<-gbutton("PLOT GRAPH ",cont=tbl)
tbl[25,10]=gbutton("GENERATING BACKTEST SUMMARY ",cont=tbl)
tbl[28,10]= gbutton("CLEAR",cont=tbl)
tbl[1,2]=img <- gimage("E:/clusterring/pr.1.png")

------------------------------------frame to enter the plot-----------------------------
frame1 <- gframe ( "PLOT:" , cont = group, horizontal = TRUE,expand=TRUE)
---------------------------------------XXX-------------------------------------------

size(frame1)<-c(400,300)
frame2<- gframe ( "BACKTESTING SUMMARY:" , cont = group, horizontal = TRUE,expand=TRUE)
size(frame2)<-c(400,300)
tbl1=glayout(cont=frame2)
tbl1[2,2] =glabel("ENTER PROFIT TARGET(T):-")
tbl1[2,7]= gedit("", container=tbl1,coerce.with=as.numeric)
tbl1[4,2] =glabel("NO OF BUY TRADES:-")
tbl1[4,7]= gedit("", container=tbl1,coerce.with=as.numeric)
tbl1[6,2] =glabel("NO OF SELL TRADES:-")
tbl1[6,7]= gedit("", container=tbl1,coerce.with=as.numeric)
tbl1[8,2] =glabel("TOTAL WINING TRADES(WT):-")
tbl1[8,7]= gedit("", container=tbl1,coerce.with=as.numeric)
tbl1[12,2] =glabel("% OF WINING TRADE :-")
tbl1[12,7]= gedit("", container=tbl1,coerce.with=as.numeric)
tbl1[14,2] =glabel("% OF LOOSING TRADE :-")
tbl1[14,7]= gedit("", container=tbl1,coerce.with=as.numeric)
tbl1[16,2] =glabel("PROFIT:-")
tbl1[16,7]= gedit("", container=tbl1,coerce.with=as.numeric)


---------------------------------my plot -----------------------------------------

**addHandlerClicked(plut,handler=function(h,...)
{ 
 all<- plot(Close , type='l',xlab="CLOSED PRICES", ylab="TIME")
 matplot(buy_Pos,price_signal_allign[buy_Pos,2],col=c("green"),add=T)
 matplot(sell_pos,price_signal_allign[sell_pos,2],col=c("yellow"),add=T)
 matplot(sell_pt_pos,price_signal_allign[sell_pt_pos,2],col=c("purple"),add=T)
 matplot(sell_st_pos,price_signal_allign[sell_st_pos,2],col=c("blue"),add=T)
 matplot(buy_st_pos,price_signal_allign[buy_st_pos,2],col=c("violet"),add=T)
 matplot(buy_pt_pos,price_signal_allign[buy_pt_pos,2],col=c("brown"),add=T)
 add(frame1,group,all,expand=TRUE)
})

库（gWidgets2）
库（gWidgetsRGtk2）
图书馆（RGtk2）
选项（guiToolkit=“RGtk2”）
win=gwindow（“模糊交易模型”）
img我正在寻找一个
ggraphics
小部件来保存绘图，但看不到它。可能只需将其添加到“Plot”框架中即可；选项（guiToolkit=“RGtk2”）

（第1行和第4行）。添加第2行是完全不必要的（在您的情况下，加载错误的东西，因为它没有中间的“2”），而第3行仅在您想要访问底层

RGtk2

API时才需要。ya dude我在R Studio中将ggraphics小部件添加到我的代码中，但它显示帧太大，然后我在R中尝试过，它工作得很好，RStudio得到了一些钱，这就是为什么我不能解决这个问题，现在它完成了……，我给出的这个代码缺少ggraphics代码……。我之前不知道这个小部件………Rigth@jverzani我认为这些不会导致一些严重的问题。。。。。。。。。。。。。。。，很高兴听到您的建议…………很高兴与您@jverzani交谈，您能否建议在GUI中对齐框架…………很难做到正确。。。。。。。。。。。。。。。