一、前提准备
安装r软件，需要安装32位的r软件，64位的调用会报错。另外就是讲r添加到电脑环境变量中。
打开r软件，安装包 scatterplot3d，演示需要用到此r包。
二、创建项目graphgeneratebyr，项目结构如下：
注意：这里需要引入rdotnet类库，可以自行下载：http://rdotnet.codeplex.com/
三、main窗体代码
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
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代码，结构如下：
输入合法的r绘图语句，再次单击plot，结果如下：
总结
以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作能带来一定的帮助，如果有疑问大家可以留言交流，谢谢大家对服务器之家的支持。
原文链接：http://www.cnblogs.com/isaboy/p/R_image_csharp_RDotNet.html