651046_zh-CN

liliconcom

jpg 图片

 

大家好，

 

我有一个关于 jpg 图像的问题，我在 JMP 上找不到任何相关文档。

就我而言，我有一个包含大约 3000 张“jpg”格式图像的文件夹。

 

我希望能够根据本地数据过滤器的选择，在图形生成器中以“jpg”格式显示这些图像。

例如 ：

 

 

此处，应显示以下图像：obj“B”并输入“2”。

该图像在我的文件夹中的命名如下：“B_2.jpg”。

 

感谢您的帮助 ！

 

自动化和脚本编写数据存取数据探索和可视化回复：图片.jpg

我认为这很接近您的要求，应该可以帮助您开始：

// https://community.jmp.com/t5/Discussions/Drawing-other-shapes-in-graph-builder/m-p/368186#M61806

NamesDefaultToHere(1);

// Open a table and do Bivariate
dt = Open("$SAMPLE_DATA/Big Class.jmp");
biv = dt << Bivariate(X(:height), Y(:weight));

// Add a local data filter (:sex plays the role of floor . . . )
df = biv << Local Data Filter( Add Filter( columns( :sex ) ));

// Get the title of the window
win = (biv << Report) << GetWindowTitle;

// Define a function that will update the background image on the Bivariate plot
f = Function( {a},
  // Infer what value of :sex is currenly selected in the data filter
  levRows = df << getFilteredRows;
  lev = Column(dt, "sex")[levRows];
  lev = lev[1];
  Speak(lev);
  // (Try to) remove an image that might already be there
  Try(
   imgSeg = Window(win)[FrameBox(2)] << FindSeg( PictSeg( 1 ) );
   imgSeg << Remove;
   );
  // Add the 'corresponding' image
  if(
   lev == "M",
    Window(win)[FrameBox(2)] << Add Image(Open("$SAMPLE_IMAGES/tile.jpg"), FillGraph),
   lev == "F",
    Window(win)[FrameBox(2)] << Add Image(Open("$SAMPLE_IMAGES/progress.gif"), FillGraph)
   );
  );

// Add a handler to the data filter so that when the user makes a selection the function 'f' is called
rs = df << Make Filter Change Handler( f );

回复：图片.jpg

采取类似的方法@ian_jmp下面是一个简单的脚本示例，该脚本根据数据过滤器选择显示图像，但不使用 Bivariate 或 Graph Builder 等 JMP 平台。它只是简单地显示图像。

Names Default To Here( 1 );
path = "c:\users\???\pictures"; // set the path to your image directory 

// Filter out all non jpg files
files = Filter Each( {file}, Files In Directory( path ), Word( -1, file, "." ) == "jpg" );

// I create a dummy data table to use for an example
ob = {"A", "B", "C"};
dt = New Table( "Pictures", invisible,
 add rows( N Items( files ) ),
 New Column( "Obj", character, set each value( ob[Mod( Row(), 3 ) + 1] ) ),
 New Column( "type", nominal, set each value( Col Cumulative Sum( 1, :obj ) ) ),
 New Column( "ImagePath", character, set each value( files[Row()] ) )
);
:ImagePath << hide;

// Here is the working code that can be used against a data table that matches
// the example data table created above
// It uses a Make Row State Handler to handle the changing of images when
// the data filter values change
nw = New Window( "Example",
 hlb = H List Box(
  dt << Data Filter(
   Location( {928, 247} ),
   Mode( Include( 1 ) ),
   Add Filter( columns( :Obj, :type ), Display( :type, N Items( 8 ) ) )
  ),
  pb = Graph Box( Frame Size( 600, 600 ) )
 )
);
pb( report )[axisbox( 2 )] << delete;
pb( report )[axisbox( 1 )] << delete;

theFunction = Function( {a},
 If( N Rows( dt << get selected rows ) == 1,
  Try( pb << delete );
  hlb << append( pb = Picture Box( Open( path || "\" || dt:ImagePath[(dt << get selected rows)[1]], jpg ) ) );
  pb << set height( 600 );
  pb << set width( 600 );
 ,
  Try( pb << delete );
  hlb << append( pb = Graph Box( Frame Size( 600, 600 ) ) );
  pb( report )[axisbox( 2 )] << delete;
  pb( report )[axisbox( 1 )] << delete;
 )
);
rs = dt << make row state handler( theFunction );