Проблема с bind_rows: ошибка: аргумент 1 должен иметь имена - PullRequest
Новая
       37

Проблема с bind_rows: ошибка: аргумент 1 должен иметь имена

0 голосов
/ 04 мая 2020

У меня есть два фрейма данных, и мне нужно поместить строку моего второго фрейма данных в качестве последней строки моего первого фрейма данных:

Первый фрейм данных - PETR3.SA:

tail(PETR3.SA)
           PETR3.SA.Open PETR3.SA.High PETR3.SA.Low PETR3.SA.Close
2020-04-23      17.35522      17.63133     16.85232       17.09884
2020-04-24      16.86218      17.01009     15.30415       15.84650
2020-04-27      16.14233      16.68468     15.74789       16.56635
2020-04-28      17.49000      18.02000     17.11000       18.02000
2020-04-29      18.51000      19.30000     18.35000       19.00000
2020-04-30      18.73000      19.18000     18.43000       18.65000
           PETR3.SA.Volume PETR3.SA.Adjusted
2020-04-23        19498900          17.09884
2020-04-24        39716700          15.84650
2020-04-27        25446600          16.56635
2020-04-28        24004700          18.02000
2020-04-29        26938000          19.00000
2020-04-30        23209200          18.65000

str(PETR3.SA)
An ‘xts’ object on 2015-01-02/2020-04-30 containing:
  Data: num [1:1322, 1:6] 9.07 8.18 7.84 7.86 8.15 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:6] "PETR3.SA.Open" "PETR3.SA.High" "PETR3.SA.Low" "PETR3.SA.Close" ...
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 3
 $ src      : chr "yahoo"
 $ updated  : POSIXct[1:1], format: "2020-05-04 17:14:02"
 $ na.action: 'omit' int [1:3] 779 1038 1281
  ..- attr(*, "index")= num [1:3] 1.52e+09 1.55e+09 1.58e+09

Мой второй df: 

cotacao_xts
           PETR3.SA.Open PETR3.SA.High PETR3.SA.Low PETR3.SA.Close
2020-05-04         19.02         19.02        19.02          19.02
           PETR3.SA.Volume PETR3.SA.Adjusted
2020-05-04               0             19.02
> str(cotacao_xts)
An ‘xts’ object on 2020-05-04/2020-05-04 containing:
  Data: num [1, 1:6] 19 19 19 19 0 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:6] "PETR3.SA.Open" "PETR3.SA.High" "PETR3.SA.Low" "PETR3.SA.Close" ...
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
 NULL

Мне нужно поставить свой второй df (cotacao_xts) в качестве последней строки моего первого df.

Я пытался bind_rows, но вот что я получил: 

> new_df <- PETR3.SA %>%
+   bind_rows(cotacao_xts)
Error: Argument 1 must have names

1 Ответ

1 голос
/ 04 мая 2020

Поскольку это xts объекты, мы можем использовать rbind, предполагая, что индекс уникален 

library(xts)
rbind(PETR3.SA, cotacao_xts)

methods(class = 'xts')[50]
#[1] "rbind.xts"

Согласно ?bind_rows

... - Объединяемые фреймы данных

Это может быть data.table, data.frame или tbl_df. Объект xts не является ни одним из них. Это matrix с атрибутом xts. Если нам нужно использовать bind_rows, то объекты должны быть преобразованы в data.frame

...