连接数据库
R中没有的包用 install.packages("packageName")下载
library(Rserve);
Rserve();
library(RODBC);
channel <-odbcConnect("mydata",uid = "root",pwd="1299894209+");
sqlTables(channel);
data<-sqlFetch(channel,"airinfo")
org1<-sqlFetch(channel,'airinfo')
org2<-sqlQuery(channel,'select * from airinfo')
org3<-sqlQuery(channel,'select * from airinfo where id < 301')
head(org1)
head(org2)
odbcClose(channel)
画周期性图
library(zoo)
library(base)
Time<-org3$date
data.ts<-zoo(org3$CO2,Time)
plot(data.ts,xlab='date',ylab='CO2')
data2<-zoo(org3$temperature,Time)
plot(data2,xlab='date',ylab='temperature')
setwd("D:/environment/R/Rworksp")
png(file = "test1.jpg")
png('D:/environment/R/Rworksp',width=1200,height=500,units="px")
library(zoo)
library(base)