Как да пренаредите някои елементи като рамка с данни

Искам да пренаредя някои елементи като рамка за дата. елементи, както следва:

  code<-000586
  t<-2013-12-28
  price<-10.23
  change<-2.56

Искам да използвам тези елементи от рамка с данни като тази

 code      t       price    change 
 000586 2013-12-28 10.23     2.56

   > t1=2013-12-27
   > head(mydat)
     dm     sc  date      code
14 000586   sz 2013-12-27 000586.sz
15 000616   sz 2013-12-26 000616.sz
16 300295   sz 2013-12-25 300295.sz
17 000968   sz 2013-12-23 000968.sz
18 600023   sh 2013-12-19 600023.sh
20 600855   sh 2013-12-18 600855.sh

  >code<-mydat[1,1]
 > t1<-mydat[1,3]
  > class(wk)
    [1] "list"
  >wk
   $ErrorCode
   [1] 0

  $Data
  DATETIME    OPEN    CLOSE HIGH   PCT_CHG
 1 2013-12-27  12.2   12.5  127    0.25
 2 2013-12-30  12.0  12.4  12.6    0.26
 3 2013-12-31  11.3   11.2 11.5    2.1
 4 2014-01-02  11.1   11.4  11.5   0.2
 5 2014-01-03  11.4  11.5  11.6    0.32
 6 2014-01-06  10.2   10.4  10.6   0.34

 $Code
 [1] "000686"
 wk<-wk[2]$Data
 lo1<-wk[2,2])
 lo2<-wk[3,2]
 lo3<-wk[4,2]
 lc1<-wk[2,3]
 lc2<-wk[3,3]
 lc3<-wk[4,3]

Използвам кода m1‹-c(code,t1,lo1=lo1,lo2=lo3,lo3) за формиране на рамка с данни, но не работи; t1 се променя, за да не бъде стойност на дата.


r dataframe elements
person user3394975    schedule 22.03.2014    source източник

Отговори (2)


arrow_upward
0
arrow_downward 

dat <- data.frame(code="000586", t=as.Date("2013-12-28"), price=10.23, change=2.56)

ще получите това, което искате, но ако сте любопитни как да изградите такава структура от данни, бъдете много внимателни с кода за анализ, който планирате да изрежете и поставите, за да стигнете до отговор. Това наистина е основен R.

person hrbrmstr    schedule 22.03.2014
comment
Благодаря за вашата помощ. но не може да ми помогне. Стойността на тези елементи е резултат от среден изчислителен процес. Мога да го напиша на ръка. - person user3394975; 22.03.2014
comment
тогава би помогнало, ако предоставите по-голям примерен код, така че хората да могат да ви помогнат по-добре. - person hrbrmstr; 22.03.2014

arrow_upward
0
arrow_downward

имам решенията. преди

 m1<-c(code,t1,lo1=lo1,lo2=lo3,lo3)

добавям кода

t1‹-as.character(t1)

тогава работи.

person user3394975    schedule 22.03.2014