Ошибка в grouped_df_impl (данные, unname (переменные), drop)

Question

У меня есть вопрос к вам, пожалуйста.

Я использую knitr (латекс) в R. Этот код: Check <- as.data.frame(data %>% group_by(CITY) %>% summarise(NumberSizeCity = n_distinct(SURFACE), SURFACE = list(unique(SURFACE)))) работает в R. Я хочу знать, есть ли только один размер для одного города.Но когда я компилирую (PDF) свою работу, у меня появляется сообщение об ошибке: Ошибка в grouped_df_impl (data, unname (vars), drop) ... У вас есть идеи, пожалуйста?(Город: уникальный код, а ПОВЕРХНОСТЬ числовое).

Спасибо!

Answer 1

Следующий код подсчитывает количество различных SURFACE s, связанных с каждым уникальным CITY:

library(dplyr)

CITY <- c(
  7113, 7232, 7232, 7033, 7211, 7279, 7279, 7279, 7058, 7107, 
  7107, 7024, 7024, 7024, 7024, 7024, 7024, 7024, 7150, 7040, 
  7349, 7221, 7178, 7219, 7204, 7087, 7167, 7299, 7065
)
SURFACE <- c(
  2313.16, 5600, 5087.09, 1727.17, 2021.91, 3340, 3345, 3340, 
  1238.97, 2444.44, 2444.44, 3284, 3284, 3284, 3284, 3284, 
  3284, 3284, 1639.52, 883.95, 989, 1601.03, 482.17, 706.33, 
  4845.2, 757.66, 739, 1950.19, 695.33
)

data <- data.frame(
  CITY = CITY,
  SURFACE = SURFACE
)

Check <- data %>% group_by(
  CITY
) %>% count(
  SURFACE
) %>% ungroup() %>% count(
  CITY # nn
)

Check
#   CITY    nn
#   7024    1
#   7033    1
#   7040    1
#   7058    1
#   7065    1
#   7087    1
#   7107    1
#   7113    1
#   7150    1
#   7167    1
#   7178    1
#   7204    1
#   7211    1
#   7219    1
#   7221    1
#   7232    2
#   7279    2
#   7299    1
#   7349    1