在 select() 函数之后应用 group_by() 函数答案

【问题标题】：apply group_by() function after select() function在 select() 函数之后应用 group_by() 函数
【发布时间】：2016-11-30 03:01:32
【问题描述】：

我想在 select() 函数之后使用 group_by() 函数。
但在程序下显示错误信息。我该怎么办？

代码：

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

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

结果：

Error: unknown column 'トヨタ'

编码为UTF-8

代码：

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

结果：

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

【问题讨论】：

你的代码在我的 Mac 上工作；没有错误信息出现。
操作系统是windows（出现错误信息）。这个问题取决于操作系统？
不确定这是否与操作系统有关。
代码在带有 R 3.1.1 的 Ubuntu 16.04 上为我工作

标签： r select encoding group-by dplyr

【解决方案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

【讨论】：