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(`トヨタ`)

结果：

Error: unknown column 'トヨタ'

编码为UTF-8

CODE：

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

结果：

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

Answer 1

第一个data.frame列名称编码是＆＃34; unkown＆＃34;。
但在select()之后，列名称编码已更改＆＃34; UTF-8＆＃34;。

第一个数据编码：

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

临时措施：

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

感谢：http://notchained.hatenablog.com/entry/2016/04/29/222453

在select（）函数之后应用group_by（）函数

1 个答案: