我正在嘗試在兩個 data.framesd1和d2. 我Desired_output的如下所示。
我嘗試了一個解決方案，但它未能讓我達到我想要的輸出。有針對這個的解決方法嗎？
d1 <- data.frame(b = 1:2, SE = 2:3)
d2 <- data.frame(b = 0:1, SE = 1:2)
a <- "obs"
# Solution failed:
dplyr::bind_rows(d1, !!a := rep(NA, ncol(d1)), d2)
Desired_output =
" b SE
1 1 2
2 2 3
obs NA NA
4 0 1
5 1 2"
uj5u.com熱心網友回復：
也許這會有所幫助 -
d1 <- data.frame(b = 1:2, SE = 2:3)
d2 <- data.frame(b = 0:1, SE = 1:2)
a <- "obs"
d3 <- d1[1, ]
d3[] <- NA
rownames(d3) <- a
rbind(d1, d3, d2)
# b SE
#1 1 2
#2 2 3
#obs NA NA
#11 0 1
#21 1 2
uj5u.com熱心網友回復：
這是一個替代解決方案，以防萬一您想要它在管道中！
- 我們將整個程序
add_row從tibble包中包裝起來。 - 隨著
bind_rows我們兩個表綁在一起，并索引2前添加一行。 - 然后我們必須在兩者之間進行轉換
rownames_to_column，反之亦然。
library(tibble)
library(dplyr)
add_row(bind_rows(d1,d2),
b = NA,
SE = NA,
.before = 3)%>%
data.frame() %>%
rownames_to_column("x") %>%
mutate(x = ifelse(x == "3", "obs", x)) %>%
column_to_rownames("x")
)
b SE
1 1 2
2 2 3
obs NA NA
4 0 1
5 1 2
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/392718.html
上一篇：替換HTML但保存最后的單詞