Windows Form调用R进行绘图并显示

　　R软件功能非常强大，可以很好的进行各类统计，并能输出图形。下面介绍一种R语言和C#进行通信的方法，并将R绘图结果显示到WinForm UI界面上。

1 前提准备

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

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

2 创建项目GraphGenerateByR，项目结构如下：

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

3 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();
            }
        }
    }
}

 

4 运行：

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

输入合法的R绘图语句，再次单击Plot，结果如下：