getwd()

txt<-read.table("test.txt",header = FALSE,sep = "",skip = 7)

head(txt)

getwd()

txt<-scan("test.txt",what = "",sep = "",na.strings = "NA",skip = 7)

txt

scan()比read.table效率更好

C#调用R脚本

参考链接

1.安装R.NET

2.using RDotNet;

3.调用r脚本

REngine.SetEnvironmentVariables();

REngine engine = REngine.GetInstance();

engine.Initialize();

engine.Evaluate("source('C:/Users/JackChen/Desktop/test.r')");

engine.Dispose();

4.r脚本示例

setwd("c://")

jpeg(file="test123.jpeg")

plot(1:10,main = "主标题",sub="子标题",xlab="x轴标题",ylab="y轴标题",col="red",col.main='red')

#rect(1, 5, 3, 7, col="red")

dev.off()

R语言连接Sql Server数据库

#Windows身份验证

install.packages("RODBC")

library(RODBC)

conStr <- odbcDriverConnect('driver={SQL Server};server=(local);database=ForecastDataSystem;trusted_connection=true')

sql<-sqlQuery(conStr,"select top 100* from Weather_H_SpiData")

print(sql)

#Sql Server身份验证

install.packages("RODBC")

library(RODBC)

conStr <- odbcDriverConnect('driver={SQL Server};server=10.10.10.20;database=ForecastDataSystem;uid=Develop;pwd=Develop;')

sql<-sqlQuery(conStr,"select top 100* from City")

print(sql)