1

グラフィックの上で右クリックしてポップアップ メニューを使用して GUI を作成していますが、同時に、グラフィックをコピーまたは保存するオプションを含むポップアップ メニューが表示されます。この最後のポップアップ メニューを削除するにはどうすればよいですか?

 library(cairoDevice)
 library(ggplot2)
 library(gWidgets)
 library(gWidgetsRGtk2)
 require(RGtk2)

  plot1<-ggplot(mtcars, aes(wt, mpg))+ geom_point(colour = "black", size = 3)
  plot2<-ggplot(mtcars, aes(wt, mpg))+geom_point(colour = "red", size = 3)
  plot3<- ggplot(mtcars, aes(wt, mpg))+ geom_point(colour = "yellow", size = 3,shape=20)

  options(guiToolkit = "RGtk2")
  w        <-gwindow("GUI")
  g        <-ggroup(cont=w)
 graphic1 <- ggraphics(cont=g)
 print(plot1)

 ml<-list()
 ml$plot2<- list(handler=function(h,...){
  svalue(graphic1)<- print(plot2)
  })
 ml$plot3<- list(handler=function(h,...){
 svalue(graphic1)<-print(plot3)
 })

 add3rdMousePopupmenu(obj=graphic1,menulist=ml,action=graphic1)`
4

2 に答える 2

2

RGtk2 の ggraphics にはいくつかの隠し引数があります。no_popup=TRUEggraphics コンストラクターに渡してみてください。ラバー バンディングを削除したい場合、渡す引数はdo.rubber.banding=FALSE(一方が . で、もう一方が _ である理由は? 聞かないでください...)

于 2013-06-12T14:24:04.397 に答える