r - full_join() 不识别值

Question

我需要完全加入两个 df：DS90 和 LCM_QAR，并为 LCM_QAR 的每一行分配 DS90 df 中的相应值（列 Tabla.1 到 Tabla.5）。我使用了 full_join()，但不是 DS90 df 中的值，而是每个 Tabla.1 到 Tabla.5 都出现 NA。

我在https://community.rstudio.com/t/full-join-dont-recognizes-values/107563中问了同样的问题，但该代码对其他人来说效果很好。

谢谢您的帮助。

#> Warning: package 'readr' was built under R version 4.0.5
library(dplyr)

datapasta::dpasta(head(DS90))
#> Error in head(DS90): objeto 'DS90' no encontrado

tibble::tribble(
             ~Parametro, ~Tabla.1, ~Tabla.2, ~Tabla.3, ~Tabla.4, ~Tabla.5,
  "Aluminio total (Al)",        5,       10,        1,        1,       10,
  "Arsenico total (As)",      0.5,        1,      0.1,      0.2,      0.5,
    "Cadmio total (Cd)",     0.01,      0.3,     0.02,     0.02,      0.5,
      "Cinc total (Zn)",        3,       20,        5,        5,        5,
     "Cobre total (Cu)",        1,        3,      0.1,        1,        3,
     "Cromo total (Cr)",       NA,       NA,      2.5,      2.5,       10
  )
#> # A tibble: 6 x 6
#>   Parametro           Tabla.1 Tabla.2 Tabla.3 Tabla.4 Tabla.5
#>   <chr>                 <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
#> 1 Aluminio total (Al)    5       10      1       1       10  
#> 2 Arsenico total (As)    0.5      1      0.1     0.2      0.5
#> 3 Cadmio total (Cd)      0.01     0.3    0.02    0.02     0.5
#> 4 Cinc total (Zn)        3       20      5       5        5  
#> 5 Cobre total (Cu)       1        3      0.1     1        3  
#> 6 Cromo total (Cr)      NA       NA      2.5     2.5     10

datapasta::dpasta(head(LCM_QAR))
#> Error in head(LCM_QAR): objeto 'LCM_QAR' no encontrado

tibble::tribble(
    ~Año,        ~Cod_EA, ~Cod_ETFA,            ~Metodo,            ~Parametro,  ~LCM,
  "2020", "EA-SMA-02-20",  "010-01", "NCh2313/25.Of97.", "Aluminio total (Al)",  0.09,
  "2020", "EA-SMA-02-20",  "016-01",                 NA, "Aluminio total (Al)",    NA,
  "2020", "EA-SMA-02-20",  "010-03", "NCh2313/25.Of97.", "Aluminio total (Al)", 0.164,
  "2020", "EA-SMA-02-20",  "011-01", "NCh2313/25.Of97.", "Aluminio total (Al)", 0.034,
  "2020", "EA-SMA-02-20",  "021-01", "NCh2313/25.Of97.", "Aluminio total (Al)",  0.05,
  "2020", "EA-SMA-02-20",  "021-03", "NCh2313/25.Of97.", "Aluminio total (Al)", 0.005
  )
#> # A tibble: 6 x 6
#>   Año   Cod_EA       Cod_ETFA Metodo           Parametro              LCM
#>   <chr> <chr>        <chr>    <chr>            <chr>                <dbl>
#> 1 2020  EA-SMA-02-20 010-01   NCh2313/25.Of97. Aluminio total (Al)  0.09 
#> 2 2020  EA-SMA-02-20 016-01   <NA>             Aluminio total (Al) NA    
#> 3 2020  EA-SMA-02-20 010-03   NCh2313/25.Of97. Aluminio total (Al)  0.164
#> 4 2020  EA-SMA-02-20 011-01   NCh2313/25.Of97. Aluminio total (Al)  0.034
#> 5 2020  EA-SMA-02-20 021-01   NCh2313/25.Of97. Aluminio total (Al)  0.05 
#> 6 2020  EA-SMA-02-20 021-03   NCh2313/25.Of97. Aluminio total (Al)  0.005

fulljoin<-full_join(LCM_QAR,DS90,by="Parametro")
#> Error in full_join(LCM_QAR, DS90, by = "Parametro"): objeto 'LCM_QAR' no encontrado

datapasta::dpasta(head(fulljoin))
#> Error in head(fulljoin): objeto 'fulljoin' no encontrado
tibble::tribble(
    ~Año,        ~Cod_EA, ~Cod_ETFA,            ~Metodo,            ~Parametro,  ~LCM, ~Tabla.1, ~Tabla.2, ~Tabla.3, ~Tabla.4, ~Tabla.5,
  "2020", "EA-SMA-02-20",  "010-01", "NCh2313/25.Of97.", "Aluminio total (Al)",  0.09,       NA,       NA,       NA,       NA,       NA,
  "2020", "EA-SMA-02-20",  "016-01",                 NA, "Aluminio total (Al)",    NA,       NA,       NA,       NA,       NA,       NA,
  "2020", "EA-SMA-02-20",  "010-03", "NCh2313/25.Of97.", "Aluminio total (Al)", 0.164,       NA,       NA,       NA,       NA,       NA,
  "2020", "EA-SMA-02-20",  "011-01", "NCh2313/25.Of97.", "Aluminio total (Al)", 0.034,       NA,       NA,       NA,       NA,       NA,
  "2020", "EA-SMA-02-20",  "021-01", "NCh2313/25.Of97.", "Aluminio total (Al)",  0.05,       NA,       NA,       NA,       NA,       NA,
  "2020", "EA-SMA-02-20",  "021-03", "NCh2313/25.Of97.", "Aluminio total (Al)", 0.005,       NA,       NA,       NA,       NA,       NA
  )
#> # A tibble: 6 x 11
#>   Año   Cod_EA Cod_ETFA Metodo Parametro    LCM Tabla.1 Tabla.2 Tabla.3 Tabla.4
#>   <chr> <chr>  <chr>    <chr>  <chr>      <dbl> <lgl>   <lgl>   <lgl>   <lgl>  
#> 1 2020  EA-SM~ 010-01   NCh23~ Aluminio~  0.09  NA      NA      NA      NA     
#> 2 2020  EA-SM~ 016-01   <NA>   Aluminio~ NA     NA      NA      NA      NA     
#> 3 2020  EA-SM~ 010-03   NCh23~ Aluminio~  0.164 NA      NA      NA      NA     
#> 4 2020  EA-SM~ 011-01   NCh23~ Aluminio~  0.034 NA      NA      NA      NA     
#> 5 2020  EA-SM~ 021-01   NCh23~ Aluminio~  0.05  NA      NA      NA      NA     
#> 6 2020  EA-SM~ 021-03   NCh23~ Aluminio~  0.005 NA      NA      NA      NA     
#> # ... with 1 more variable: Tabla.5 <lgl>

标签： rdplyr