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

x

y

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

// y

// 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();

}

}

}

}