我有几个由脚本生成的 Dataframe ，有时它们是空的。在我的过程结束时，我想使用cbind将所有 Dataframe 放在一起，但是如果 Dataframe 是“空”的，这当然会失败。
df1 <- structure(list(id1 = c("A", "A", "B", "B", "A", "A"),
val1 = c(4,2, 1, 5, 3, 4),
id2 = c("C", "B", "C", "C", "B", NA),
val2 = c(2, 3, 2, 2, 3, NA)),
row.names = c(NA, 6L), class = "data.frame")
df2 <- structure(list(), names = character(0),
row.names = integer(0),
class = c("tbl_df", "tbl", "data.frame"))
df3 <- structure(list(id3 = c("X", "X", "X", "Y", "Y", "Y"),
val3 = c(8, 10, 11, 9, 22, 1)),
class = "data.frame", row.names = c(NA, -6L))我尝试用嵌套的ifelse语句来实现这一点。举例来说：
df_new <- ifelse(nrow(df1)==0, cbind(df2, df3),
ifelse(nrow(df2)==0, cbind(df1, df3),
cbind(df1, df2, df3)))然而，这只是将df1的第一列作为列表返回。有没有更好的方法来实现这一点？还是有什么关于ifelse或cbind的东西我不明白？在此先谢谢您！
2条答案
按热度按时间w46czmvw1#
您可以将
data.frame放在列表中，删除空元素（length == 0），然后在do.call函数中使用cbind。如果你喜欢
dplyr函数，你可以使用dplyr::bind_cols：purrr也有一个方便的函数，可以用来删除空元素，compact：58wvjzkj2#
你有一个很好的解决你的问题从@Mael。你应该接受这个答案。
我添加这个来解释你的尝试出了什么问题：
问题是你使用了
ifelse()函数，而不是if ... else ...语句。ifelse(cond, a, b)被设计为根据cond的值从a或b中选择单个值。它假设cond、a和b是向量，并返回与cond长度相同的向量。if (cond) a else b是你应该使用的。它假设cond是一个单一的值（通常是逻辑值，但数值也可以），并选择所有的a或所有的b。对于a和b没有任何假设，除非您选择的那个存在。所以这段代码会做你想做的事情：