快捷導(dǎo)航

C#實(shí)現(xiàn)Windows Form調(diào)用R進(jìn)行繪圖與顯示的方法

更新時(shí)間：2017年02月27日 11:57:29 作者：JackWang-CUMT

眾所周知R軟件功能非常強(qiáng)大，可以很好的進(jìn)行各類統(tǒng)計(jì)，并能輸出圖形。下面介紹一種R語言和C#進(jìn)行通信的方法，并將R繪圖結(jié)果顯示到WinForm UI界面上的方法，文中介紹的很詳細(xì)，需要的朋友可以參考下。

一、前提準(zhǔn)備

安裝R軟件，需要安裝32位的R軟件，64位的調(diào)用會(huì)報(bào)錯(cuò)。另外就是講R添加到電腦環(huán)境變量中。

打開R軟件，安裝包 scatterplot3d，演示需要用到此R包。

二、創(chuàng)建項(xiàng)目GraphGenerateByR，項(xiàng)目結(jié)構(gòu)如下：

注意：這里需要引入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();
   }
  }
 }
}

四、運(yùn)行：

單擊plot后，調(diào)用默認(rèn)R代碼，結(jié)構(gòu)如下：