Question

我在Google上搜索了一堆，可以在任何地方找到答案，但也许我不能用几个字很好地解释它。

$custom->h1 = 'Hello';
$custom->h2 = '';

echo $custom->h1; // produces 'Hello';
echo $custom->h2; // produces 0;

我想取这四行中的数据并将其合并为两行，以便显示出来。

Coffee|     |Steve

Coffee| Cup |     |

Turkey| Fork|     |

      |Fork |Mike

我将不胜感激。我是代码新手。从长远来看，我认为它是有益的，而且工作更快。

谢谢

Answer 1

使用get_form对数据集进行大胆的假设：

library(tidyverse)

Answer 2

我认为最好将表分解成列表，删除NA值，然后取唯一值。然后，您可以只转换回数据框。我正在使用read_r在此处制作数据框，但其余的是Base R。

myTab <- readr::read_csv("h1,h2,h3
Coffee,,Steve
Coffee,Cup,
Turkey,Fork,
,Fork,Mike")

myTab

## # A tibble: 4 x 3
##   h1     h2    h3   
##   <chr>  <chr> <chr>
## 1 Coffee NA    Steve
## 2 Coffee Cup   NA   
## 3 Turkey Fork  NA   
## 4 NA     Fork  Mike 

myTab <- lapply(myTab, na.omit)
myTab <- lapply(myTab, as.character)
myTab <- lapply(myTab, unique)

myTab <- data.frame(myTab)

myTab

##      h1   h2    h3
## 1 Coffee  Cup Steve
## 2 Turkey Fork  Mike

合并R中的非重复行

2 个答案: