Question

请问我一个问题。

我在R中使用knitr（乳胶）。此代码： (document).ready()在R中工作。我想知道一个城市是否只有一种尺寸。但是，当我编译（PDF）我的工作时，我收到错误消息：grouped_df_impl（data，unname（vars），drop）中的错误...您有任何想法吗？（城市：唯一代码，SURFACE是数字）。

谢谢！

Answer 1

以下代码计算与每个唯一SURFACE关联的不同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

grouped_df_impl中的错误（数据，未命名（变量），删除）

1 个答案: