select（）関数の後にgroup_by（）関数を適用します。

Question

select（）関数の後にgroup_by（）関数を使用します。
しかし、プログラムの下にエラーメッセージが表示されます。私はどうすればいいですか？

CODE：

library(tidyverse) 
dt <- data.frame("トヨタ" = c(1,2,3,4), 
       "ホンダ" = c(4,3,2,1), 
       "グループ" = c(1,2,1,2)) 

dt %>% 
    select(`トヨタ`, `グループ`) %>% 
    group_by(`トヨタ`) 

RESULT：

Error: unknown column 'トヨタ'

エンコーディングであるUTF-8

CODE：

dt %>% 
    select(`トヨタ`,`グループ`) %>% 
    names(.) %>% Encoding 

RES ULT：

[1] "UTF-8" "UTF-8"

Answer 1

最初data.frameの列名のエンコーディングは "未知" です。
select()の後に、列名のエンコーディングが "UTF-8"に変更されました。

まずデータのエンコード：

> names(dt) %>% Encoding 
[1] "unknown" "unknown" "unknown" 

一時的な措置：

dt %>% 
    select(`トヨタ`, `グループ`) %>% 
    `colnames<-`(enc2native(colnames(.))) %>% 
    group_by(`トヨタ`) 

ありがとう：http://notchained.hatenablog.com/entry/2016/04/29/222453