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

2019-10-29 21:13:09

字体：大中小

来源：转载

供稿：网友

一、前提准备

安装R软件，需要安装32位的R软件，64位的调用会报错。另外就是讲R添加到电脑环境变量中。

打开R软件，安装包 scatterplot3d，演示需要用到此R包。

二、创建项目GraphGenerateByR，项目结构如下：

c,windows,form,r语言,绘图,r语言绘图案例

注意：这里需要引入RDotNet类库，可以自行下载：http://rdotnet.codeplex.com/

三、Main窗体代码

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace GraphGenerateByR{ using RDotNet; public partial class Main : Form {  public Main()  {   InitializeComponent();  }  REngine engine = null;  string Rcode = "";  private void btnPlot_Click(object sender, 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='3d绘图',pch=20)       ";    }    else    {     Rcode = this.txtRcode.Text;    }    //R.3.2.4    engine = REngine.GetInstance();    engine.Initialize();    //图片加入GUID，防止重名（还有一种就是先删除后保存）    string rnd = System.Guid.NewGuid().ToString().Replace("-", "");    string filename ="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()");    string path = System.IO.Path.GetFullPath(filename);    Bitmap image = new Bitmap(path);    ptbGraphic.Image = image;   }   catch(Exception ex)   {    MessageBox.Show(ex.Message);   }    }  private void Main_FormClosing(object sender, FormClosingEventArgs e)  {   if(engine!=null)   {    //clean up    engine.Dispose();   }  } }}

四、运行：

单击plot后，调用默认R代码，结构如下：

c,windows,form,r语言,绘图,r语言绘图案例