C#实现Windows Form调用R进行绘图与显示的方法

usingSystem;

usingSystem.Collections.Generic;

usingSystem.ComponentModel;

usingSystem.Data;

usingSystem.Drawing;

usingSystem.Linq;

usingSystem.Text;

usingSystem.Windows.Forms;

namespaceGraphGenerateByR

{

 usingRDotNet;

 publicpartialclassMain : Form

 {

  publicMain()

  {

   InitializeComponent();

  }

  REngine engine =null;

  stringRcode ="";

  privatevoidbtnPlot_Click(objectsender, EventArgs e)

  {

   try

   {

    if(this.txtRcode.Text=="")

    {

     Rcode =@"library('scatterplot3d')

       z <- seq(-10, 10, 0.01)

       x <- cos(z)

       y <- sin(z)

       scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis='blue', col.grid='lightblue',main=Ɖd绘图',pch=20)

       ";

    }

    else

    {

     Rcode =this.txtRcode.Text;

    }

    //R.3.2.4

    engine = REngine.GetInstance();

    engine.Initialize();

    //图片加入GUID，防止重名（还有一种就是先删除后保存）

    stringrnd = System.Guid.NewGuid().ToString().Replace("-","");

    stringfilename ="i"+ rnd+"__Rimage.png";

    engine.Evaluate(string.Format("png(file='{0}',bg  ='transparent',width={1},height={2})",  filename,this.ptbGraphic.Width,this.ptbGraphic.Height));

    //engine.Evaluate(@"x <- (0:12) * pi / 12

    //    y <- cos(x)

    //    plot(x,y);

    //    ");

    engine.Evaluate(Rcode);

    engine.Evaluate("dev.off()");

    stringpath = System.IO.Path.GetFullPath(filename);

    Bitmap image =newBitmap(path);

    ptbGraphic.Image = image;

   }

   catch(Exception ex)

   {

    MessageBox.Show(ex.Message);

   }

  }

  privatevoidMain_FormClosing(objectsender, FormClosingEventArgs e)

  {

   if(engine!=null)

   {

    //clean up

    engine.Dispose();

   }

  }

 }

}