rbind/bind_row两个不相等的数据。帧 [英] rbind/bind_rows two unequal data.frames

问题描述

下面，我想知道如何rbinddat2到dat1才能实现我下面的Desired_output？

请注意，不必添加新列。(请参阅所需的输出)

fit <- lm(mpg ~ hp, data = mtcars)

dat1 <- as.data.frame(coef(summary(fit)))

dat2 <- data.frame(Estimate = 2, pr = 0.1234567901, row.names = "Q")

Desired_output =
"
               Estimate Std. Error   t value     Pr(>|t|)
(Intercept) 30.09886054  1.6339210 18.421246 6.642736e-18
hp          -0.06822828  0.0101193 -6.742389 1.787835e-07
Q            2.00000000         NA        NA 0.1234567901
"

推荐答案

一种可能的解决方案，需要在绑定行之前names(dat2)[2] <- names(dat1)[4](列名不匹配)：

library(tidyverse)

fit <- lm(mpg ~ hp, data = mtcars)

dat1 <- as.data.frame(coef(summary(fit)))

dat2 <- data.frame(Estimate = 2, pr = 0.1234567901, row.names = "Q")

names(dat2)[2] <- names(dat1)[4] # <--- This is CRUCIAL

dat1 %>% 
  bind_rows(dat2)

#>                Estimate Std. Error   t value     Pr(>|t|)
#> (Intercept) 30.09886054  1.6339210 18.421246 6.642736e-18
#> hp          -0.06822828  0.0101193 -6.742389 1.787835e-07
#> Q            2.00000000         NA        NA 1.234568e-01

这篇关于rbind/bind_row两个不相等的数据。帧的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！