C# :无法从 R 执行代码
本文关键字:执行 代码 | 更新日期: 2023-09-27 17:55:55
我想在 c# 中显示椭圆。我的代码在 R 中运行时很好,但我从 c# 收到这样的消息: "物体是静态的;不允许操作(来自 HRESULT 的异常:0x8004000B (OLE_E_STATIC))"
这是我的代码:
df.rconn.Evaluate("library(cluster)")
df.rconn.Evaluate("library(rrcov)")
public void setScatter(int xAxis, int yAxis, int zAxis, List<string> variable)
{
// plot from R
//to show outlier with method : classic & robust Mve
this.comboBoxXAxis.SelectedIndex = xAxis;
this.comboBoxYAxis.SelectedIndex = yAxis;
dataform.rconn.EvaluateNoReturn("x<-X[," + xAxis + "] ");
dataform.rconn.EvaluateNoReturn("y<-X[," + yAxis + "] ");
dataform.rconn.EvaluateNoReturn("shape <- cov(X)");
dataform.rconn.EvaluateNoReturn("center<- colMeans(X)");
dataform.rconn.EvaluateNoReturn("d2.95 <- qchisq(0.95, df = 2)");
//dataform.rconn.EvaluateNoReturn("gr<- grid(lty=3,col='lightgray', equilogs = 'TRUE')");
//dataform.rconn.Evaluate("mtext('with classical (red) and robust (blue)')");
dataform.rconn.EvaluateNoReturn("plot(x,y, main='Draw Ellipse ', pch=19,col='black', type='p')");
dataform.rconn.EvaluateNoReturn("elp<- unname(ellipsoidPoints(shape, d2.95,center))");
dataform.rconn.Evaluate(" lines(elp, col='red' , lty=7 , lwd=2)");
//dataform.rconn.EvaluateNoReturn("lines(e)");
//dataform.rconn.EvaluateNoReturn("lines(ellipsoidPoints(mve@cov, d2 = d2.95, loc=mve@center), col='blue', lty='7' , lwd='2') ");
axGraphicsDevice2.RemoveFromConnector();
}
在我评论的任何代码中,总是收到相同的错误。我不知道为什么会出现这个问题。知道如何显示那个椭圆吗?非常感谢您,因为您帮助我完成了论文。
一些缺少上下文信息,但根据您提供的猜测,当操作刷新图形设备(行、多行文字等)时,您的"rconn"(statconnector?)不满意。
由于我需要出于自己的目的测试来自 c# 的一些 R 图形内容(使用 R.NET),因此我使用您的代码作为基础,并提出它作为您尝试的解决方法。你将在 GitHub 上找到一个示例控制台应用程序,该应用程序使用 R.NET 在以下位置运行:https://github.com/jmp75/rdotnet-support/tree/master/samples/DrawEllipse
从VS2013,Windows7 64位,.NET Framework 4.5编译/运行。
我注意到我需要选择性地使用 dev.hold 和 dev.flush 来获得直观的刷新。
e.Evaluate("dev.hold()");
e.Evaluate("mtext('with classical (red) and robust (blue)')");
e.Evaluate("dev.flush()");
希望这有帮助。