如何根據整個資料框的條件添加na

我只想知道如何為整個資料框查找空列并將其替換為 na

樣本資料

structure(list(id = structure(8.44425875736171e-318, class = "integer64"), 
    project_id = 11L, experiment_id = 85L, 
    gene = "", si = -0.381, pi = "" 
    on1 = "CC", 
    on2 = "GG", 
    on3 = "aa", 
    created_at = structure(1618862091.85075, class = c("POSIXct", 
    "POSIXt"), tzone = "UTC")), row.names = c(NA, -1L), class = c("data.table", 
"data.frame"), .internal.selfref = <pointer: 0x000001ba09da3590>)

我有一個檢查特定列的解決方案，但我不知道如何將其應用于整個資料框

data$gene <- ifelse((is.na(data$gene) == TRUE),'NA',data$gene)

uj5u.com熱心網友回復：

您可以使用lapplywithgsub將每個空單元格替換為 NA ，如下所示：

df <- structure(list(id = structure(8.44425875736171e-318, class = "integer64"), 
                     project_id = 11L, experiment_id = 85L, 
                     gene = "", si = -0.381, pi = "", 
                     on1 = "CC", 
                     on2 = "GG", 
                     on3 = "aa", 
                     created_at = structure(1618862091.85075, class = c("POSIXct", 
                                                                        "POSIXt"), tzone = "UTC")), row.names = c(NA, -1L), class = c("data.table", 
                                                                                                                                      "data.frame"))

df
#>              id project_id experiment_id gene     si pi on1 on2 on3
#> 1 8.444259e-318         11            85      -0.381     CC  GG  aa
#>            created_at
#> 1 2021-04-19 19:54:51
df[] <- lapply(df, function(x) gsub("^$", NA, x))
df
#>                      id project_id experiment_id gene     si   pi on1 on2 on3
#> 1 8.44425875736171e-318         11            85 <NA> -0.381 <NA>  CC  GG  aa
#>            created_at
#> 1 2021-04-19 19:54:51

^{使用reprex v2.0.2創建于 2022-11-02}

uj5u.com熱心網友回復：

您還可以使用dplyrwithmutate和across

library(dplyr)
library(tidyr)

df <- structure(list(id = structure(8.44425875736171e-318, class = "integer64"), 
                     project_id = 11L, experiment_id = 85L, 
                     gene = "", si = -0.381, pi = "", 
                     on1 = "CC", 
                     on2 = "GG", 
                     on3 = "aa", 
                     created_at = structure(1618862091.85075, class = c("POSIXct", 
                                                                        "POSIXt"), tzone = "UTC")), row.names = c(NA, -1L), class = c("data.table", 
                                                                                                                                      "data.frame"))

df %>% 
  mutate(dplyr::across(where(is.character), ~ gsub("^$", NA, .x)))

請注意，我也嘗試使用replace_na，但這僅適用于實際 NA的值。

test %>% 
  mutate(dplyr::across(where(is.character), ~ replace_na(.x, "NA")))

• ""不考慮
• NA被認為是不適用

在執行分析時請記住這一點。

uj5u.com熱心網友回復：

使用na_if

library(data.table)
library(dplyr)
df[, lapply(.SD, \(x) if(is.character(x)) na_if(x, "") else x)]

-輸出

        id project_id experiment_id   gene     si     pi    on1    on2    on3          created_at
     <i64>      <int>         <int> <char>  <num> <char> <char> <char> <char>              <POSc>
1: 1709137         11            85   <NA> -0.381   <NA>     CC     GG     aa 2021-04-19 19:54:51

標籤：r

上一篇：添加列Heroku資料庫

下一篇：emmeans:emmip_ggplot錯誤“emms$LCL中的錯誤：未為此S4類定義$運算子”