作者zmack0905 (降太) 看板: Statistics標題:
Re[問題] R 資料輸入(由EXCEL->R)
時間Tue Sep 11 16:08:00 2012
後來改用別的方法去想,所以就乾脆再開一篇,舊的如果礙事麻煩請版主砍了他=口=
###讀黨
mydata <- read.csv(file.choose(), header = T)
mydata$date <- as.POSIXct(strptime(mydata$date, format = "%d/%m/%Y
%H:%M","GMT"))
head(mydata)
###全部一排
mydata2=melt(mydata, measure.vars =
c("X1","X2","X3","X4","X5","X6","X7","X8","X9","X10","X11","X12","X13","X14","X15","X16","X17","X18",
"X19" ,"X20", "X21","X22","X23","X24"))
head(mydata2)
####照汙染物順序,日期去排
mydata2=mydata2[order(mydata2$測項,mydata2$日期),]
head(mydata2,48)
###建立框架+寫入,單項測值總數:8760
newdata=data.frame(Number=30,station="大里
",MeasureTime=seq(as.POSIXct("2011-01-01"),by ="hours",length=8760),
AMB_TEMP=mydata2[1:8760,5],
CH4=" ",
CO=mydata2[8761:17520,5],
NMHC=" ",
NO=mydata2[17521:26280,5],
NO2=mydata2[26281:35040,5],
NOx=mydata2[35041:43800,5],
O3=mydata2[43801:52560,5],
PM10=mydata2[52561:61320,5],
PM2.5=mydata2[61321:70080,5],
RAINFALL=mydata2[70081:78840,5],
RH=mydata2[78841:87600,5],
SHELT_TEMP=" ",
SO2=mydata2[87601:96360,5],
THC=" ",
UVB=" ",
WD_HR=mydata2[96361:105120,5],
WIND_DIREC=mydata2[105121:113880,5],
WIND_SPEED=mydata2[113881:122640,5],
WS_HR=mydata2[122641:131400,5])
head(newdata)
##寫出
write.table(newdata, file="weather.finish.csv", sep=","header=TRUE)
-------------
將所有資料通通排一排以後,按照順序把特定列數的資料擺進去
現在遇到的問題是,當資料有不同項(如THC,UVB不再是空白值),排序不同
這東西就爆炸了XD"
所以想利用指定行列的方式去排,即選擇其測項為指定字串的列,及特定的行
原本寫的是 THC=mydata2[3==THC,5]結果被說不是正確的下標
試了其他的寫法也不行
整理一下....
需求:把資料結合到框架中指定行(Cloume)
列的選定:該列(row)其第三行(cloume)為指定的字串(如THC,CO等)都要選擇
行的選定:直接指定mydata2第五行的數據
目標:將mydata2中的數據利用依照其測項為準,排入newdata的指定位置
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.29.185
※ 編輯: zmack0905 來自: 140.120.29.185 (09/11 16:53)
1F：→ gsuper:看不懂你在幹嗎 09/11 17:57
2F：→ gsuper:不過流程如下 1.excel檔案存成 tab 隔開的 txt file 09/11 17:58
3F：→ gsuper:2. read.delim("xxx.txt",sep="\t",header=TRUE) 09/11 17:58
4F：→ gsuper:3. 要切掉 column , 移動資料 , 矩陣轉置都屬於資料處理 09/11 17:59
5F：→ gsuper:不要跟前面的東西混再一起 09/11 17:59