Question

对于示例数据框：

library(data.table)
df = structure(list(country = c("AT", "AT", "AT", "BE", "BE", "BE", 
                             "DE", "DE", "DE", "DE", "DE", "DE", "DE", "DE", "DE", "DE", "DE", 
                             "DE", "DE", "DE"), level = c("1", "1", "1", "1", "1", "1", "1", 
                                                          "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1"
                             ), region = c("AT2", "AT1", "AT3", "BE2", "BE1", "BE3", "DE4", 
                                           "DE3", "DE9", "DE7", "DE1", "DEE", "DEG", "DE2", "DED", "DEB", 
                                           "DEA", "DEF", "DE6", "DE8"), N = c("348", "707", "648", "952", 
                                                                              "143", "584", "171", "155", "234", "176", "302", "144", "148", 
                                                                              "386", "257", "126", "463", "74", "44", "119"), result = c("24.43", 
                                                                                                                                         "26.59", "20.37", "23.53", "16.78", "25.51", "46.2", "43.23", 
                                                                                                                                         "41.03", "37.5", "33.44", "58.33", "47.97", "34.46", "39.69", 
                                                                                                                                         "31.75", "36.93", "43.24", "36.36", "43.7")), .Names = c("country", 
                                                                                                                                                                                                  "level", "region", "N", "result"), class = c("data.table", "data.frame"
                                                                                                                                                                                                  ), row.names = c(NA, -20L))

我使用以下代码生成摘要表：

variable.country <-setDT(variable.regions)[order(country), list(min_result = min(result),
                                                  max_result = max(result), level= level[1L]), by = country]

我只想在此数据表中添加另一个变量，这样我就可以知道每个国家/地区有多少个地区即行（即AT有3个） - 在这种情况下，如何获得长度或昏暗？< / p>

感谢。

Answer 1

我们可以使用.N来获取每个“国家/地区”的长度

setDT(variable.regions)[order(country), 
         list(min_result = min(result), 
              len = .N, 
              max_result = max(result), 
              level= level[1L]), 
              by = country]

计算R data.table中的行数

1 个答案: