使用 tidyverse 中的“單獨”function 時出現重音問題

Question

我正在使用 tidyverse 中separate的tidyverse來拆分此標題的第一列：

# A tibble: 6,951 x 9
   Row.names                    Number_of_analysis~ DL_Minimum DL_Mean DL_Maximum Number_of_measur~ Measure_Minimum Measure_Mean Measure_Maximum
   <I<chr>>                                   <dbl>      <dbl>   <dbl>      <dbl>             <dbl>           <dbl>        <dbl>           <dbl>
 1 2011.FACILITY.PONT-À-CELLES                  52       0.6    1.81        16                   0             0          0                 0  
 2 2011.FACILITY.PONT-À-CELLES                  52       0.07   0.177        1.3                 0             0          0                 0  
 3 2011.FACILITY.CHARLEROI                      52       0.07   0.212        1.9                 0             0          0                 0  
 4 2011.FACILITY.CHARLEROI                      52       0.08   0.209        2                   0             0          0                 0  

Merge_splitnames <- Merge %>% 
  separate(Row.names,sep = "\\.",into = c("Year", "Catchment", "Locality"), extra = "drop")

雖然一切看起來都是正確的，但 output 是一個沒有前兩列的小標題（名稱包含法語重音的那些）：

# A tibble: 6,951 x 9
   Year    Catchment    Locality                    Number_of_analysis~ DL_Minimum DL_Mean DL_Maximum Number_of_measur~ Measure_Minimum Measure_Mean Measure_Maximum
   <I<chr>>                                   <dbl>      <dbl>   <dbl>      <dbl>             <dbl>           <dbl>        <dbl>           <dbl>
 3 2011    FACILITY     CHARLEROI                      52       0.07   0.212        1.9                 0             0          0                 0  
 4 2011    FACILITY     CHARLEROI                      52       0.08   0.209        2                   0             0          0                 0  

知道如何處理這個問題嗎？ 我希望保留法語的真實姓名（帶有重音）。 這對我來說非常令人驚訝，我從來沒有對 tidyverse 的所有其他功能有任何問題。

注意：這是一個簡單且可重現的示例，我真正的小標題大約大 100 倍

Answer 1

separate為我保留了口音：

library(tidyverse)

tribble(
  ~names,
  "2011.FACILITY.PONT-À-CELLES",
  "2011.FACILITY.PONT-À-CELLES",
  "2011.FACILITY.CHARLEROI",
  "2011.FACILITY.CHARLEROI"
)  %>%
  separate(names, sep = "\\.", into = c("Year", "Catchment", "Locality"))
#> # A tibble: 4 × 3
#>   Year  Catchment Locality     
#>   <chr> <chr>     <chr>        
#> 1 2011  FACILITY  PONT-À-CELLES
#> 2 2011  FACILITY  PONT-À-CELLES
#> 3 2011  FACILITY  CHARLEROI    
#> 4 2011  FACILITY  CHARLEROI

^{由reprex package (v2.0.1) 創建於 2022-05-06}

Answer 2

假設extra = "merge"在末尾的注釋中可重復顯示，請在separate的 . （您可能需要更改您的區域設置，但我不需要這樣做。一些要嘗試的事情顯示在如何更改 R 的區域設置？或使用 Windows 下的任何區域設置的工作日）

library(tidyr)

DF  %>%
  separate(Row.names, c("Year", "Catchment", "Locality"), extra = "merge")

給予：

  Year Catchment      Locality Number_of_analysis~ DL_Minimum DL_Mean
1 2011  FACILITY PONT-À-CELLES                  52       0.60   1.810
2 2011  FACILITY PONT-À-CELLES                  52       0.07   0.177
3 2011  FACILITY     CHARLEROI                  52       0.07   0.212
4 2011  FACILITY     CHARLEROI                  52       0.08   0.209
  DL_Maximum Number_of_measur~ Measure_Minimum Measure_Mean Measure_Maximum
1       16.0                 0               0            0               0
2        1.3                 0               0            0               0
3        1.9                 0               0            0               0
4        2.0                 0               0            0               0

筆記

DF <- 
structure(list(Row.names = c("2011.FACILITY.PONT-À-CELLES", "2011.FACILITY.PONT-À-CELLES", 
"2011.FACILITY.CHARLEROI", "2011.FACILITY.CHARLEROI"), `Number_of_analysis~` = c(52L, 
52L, 52L, 52L), DL_Minimum = c(0.6, 0.07, 0.07, 0.08), DL_Mean = c(1.81, 
0.177, 0.212, 0.209), DL_Maximum = c(16, 1.3, 1.9, 2), `Number_of_measur~` = c(0L, 
0L, 0L, 0L), Measure_Minimum = c(0L, 0L, 0L, 0L), Measure_Mean = c(0L, 
0L, 0L, 0L), Measure_Maximum = c(0L, 0L, 0L, 0L)), class = "data.frame", row.names = c("1", 
"2", "3", "4"))