Как переставить некоторые элементы в виде фрейма данных

Я хочу переставить некоторые элементы в виде рамки даты. элементы следующим образом:

  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‹-как.символ(t1)

тогда это работает.

person user3394975    schedule 22.03.2014