如果您想用极乐净土 (tidyverse)的话:
library(tidyverse)
tb <- tribble(
~a, ~b, ~c, ~d, ~e,
NA, 7, NA, 9, 5,
2, 8, NA, 10, 6,
3, NA, 5, NA, 7,
4, 10, 6, 2, NA,
5, 1, 7, 3, NA,
6, 2, 8, 4, 10
)
tb_df_narm2=tb%>% drop_na(a)
> tb_df_narm2
# A tibble: 5 x 5
a b c d e
<dbl> <dbl> <dbl> <dbl> <dbl>
1 2 8 NA 10 6
2 3 NA 5 NA 7
3 4 10 6 2 NA
4 5 1 7 3 NA
5 6 2 8 4 10
如果您想用base R 的话:
tb_df=data.frame(tb)
tb_df_narm=subset(tb_df, !is.na(a))
> tb_df_narm
a b c d e
2 2 8 NA 10 6
3 3 NA 5 NA 7
4 4 10 6 2 NA
5 5 1 7 3 NA
6 6 2 8 4 10