本文介绍了rbind/bind_row两个不相等的数据。帧的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
下面，我想知道如何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两个不相等的数据。帧的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！