VS、C#配置R語言開發環境

R語言學習筆記（一）——在Vs、C#中配置R語言開發環境。

最近在學習小眾的R語言，所以將遇到的問題記錄下來供大家參考，不足之處歡迎大家交流指正。

至於R語言的介紹就不多說了，它集成了復雜的數學算法，將之封裝成簡單函數，開發者可以直接調用，使用得當絕對是一把利器。

配置前准備：

1.R語言安裝包，因為是開源的所以大家可以直接去官網下載。https://cran.r-project.org/src/base/R-3/

官網最新版是3.6.1，我這是使用的是3.4.1。

安裝包P地址

鏈接：https://pan.baidu.com/s/16Z4gD9uhIdDoqttkrJ7KBw
提取碼：xbj2

 

注意：R語言的安裝包版本要與下面的引用類庫版本兼容，不然就會出現

engine = REngine.GetInstance(); engine = null的情況。

我這里使用的3.4.1與類庫版本親測兼容，大家嫌麻煩可以直接使用我的。但是版本最高支持.netFrameWork 4.5。

2.R環境的引用類庫。

直接網盤奉獻:

鏈接：https://pan.baidu.com/s/1wYSLbXDs3CD6hFp5tcPKHg
提取碼：w2lo

正式開始：
一.打開下載好的安裝包，注意：要用管理員權限打開。

然后一步一步下一步。

 

 

 

下一步安裝即可。

二.打開VS，我這里是2012。

1.新建控制台

2.添加引用

 

3.可以將下面這段代碼拷走測試

先設置R語言路徑、環境，后進行函數調用。

這里給了兩種測試代碼。

        static void Main(string[] args)
        {
           Program mypro = new Program();
           mypro.ExcuteCode();
        }
        private REngine engine;

        #region 測試代碼
        public void ExcuteCode()
        {
            InitREngine();
            #region Test1

            using (engine = REngine.GetInstance(null, true, null, null))
            {
                engine.Initialize(); // required since v1.5
                CharacterVector charVec = engine.CreateCharacterVector(new[] { "Hello, R world!, .NET speaking" });
                engine.SetSymbol("greetings", charVec);
                engine.Evaluate("str(greetings)"); // print out in the console
                string[] a = engine.Evaluate("'Hi there .NET, from the R engine'").AsCharacter().ToArray();
            }

            Console.ReadKey();

            #endregion

            #region Test2

            // 初始化R環境
            //engine = REngine.GetInstance(null, true, null, null);

            //// .NET Framework array to R vector.
            //NumericVector group1 = engine.CreateNumericVector(new double[] { 30.02, 29.99, 30.11, 29.97, 30.01, 29.99 });
            //engine.SetSymbol("group1", group1);
            //// Direct parsing from R script.
            //NumericVector group2 = engine.Evaluate("group2 <- c(29.89, 29.93, 29.72, 29.98, 30.02, 29.98)").AsNumeric();

            //// Test difference of mean and get the P-value.
            //GenericVector testResult = engine.Evaluate("t.test(group1, group2)").AsList();
            //double p = testResult["p.value"].AsNumeric().First();

            //Console.WriteLine("Group1: [{0}]", string.Join(", ", group1));
            //Console.WriteLine("Group2: [{0}]", string.Join(", ", group2));
            //Console.WriteLine("P-value = {0:0.000}", p);

            //// you should always dispose of the REngine properly.
            //// After disposing of the engine, you cannot reinitialize nor reuse it
            //engine.Dispose();
            //Console.ReadKey();

            #endregion

        } 
        #endregion

        #region 配置R環境
        public void InitREngine()
        {
            var oldPath = System.Environment.GetEnvironmentVariable("PATH"); /////C:\Program Files\R\R-3.5.1\bin
            var rPath = System.Environment.Is64BitProcess
                ? @"C:\Program Files\R\R-3.4.1\bin\x64"
                : @"C:\Program Files\R\R-3.4.1\bin\i386";
            if (Directory.Exists(rPath) == false)
            {
                throw new DirectoryNotFoundException(
                    string.Format("Could not found the specified path to the directory containing R.dll: {0}", rPath));
            }

            var newPath = string.Format("{0}{1}{2}", rPath, System.IO.Path.PathSeparator, oldPath);
            System.Environment.SetEnvironmentVariable("PATH", newPath);
            // NOTE: you may need to set up R_HOME manually also on some machines
            string rHome = "";
            var platform = Environment.OSVersion.Platform;
            switch (platform)
            {
                case PlatformID.Win32NT:
                    break; // R on Windows seems to have a way to deduce its R_HOME if its R.dll is in the PATH
                case PlatformID.MacOSX:
                    rHome = "/Library/Frameworks/R.framework/Resources";
                    break;
                case PlatformID.Unix:
                    rHome = "/usr/lib/R";
                    break;
                default:
                    throw new NotSupportedException(platform.ToString());
            }

            if (!string.IsNullOrEmpty(rHome))
            {
                Environment.SetEnvironmentVariable("R_HOME", rHome);
            }
        } 
        #endregion

 

持續更博中...