«НС, введенные по принуждению», коэффициент пересчета в числа

Question

Задача: суммировать все элементы в столбце.

Проблема: при этом появляется следующая ошибка: «NA введены путем принуждения».

Как мне избежать этого?Это то, что я сделал до сих пор:

load dataset and get the table:
dat <- read.table("http://stat.ethz.ch/Teaching/Datasets/milben.dat")            

get the first column and exclude first element: 
fc<- dat[-1,1]         

transform factors in numbers and compute the sum
sum(as.numeric(levels(fc))[fc]) numbers

Большое спасибо!

Answer 1

Вот простое решение data.table.@www комментарий самый лучший.Затем вы суммируете с sum(fc$n) и / или sum(fc$frequency).

library(data.table)
library(magrittr)

dat <- fread("http://stat.ethz.ch/Teaching/Datasets/milben.dat") %>% 
  .[-1]

dat[, lapply(.SD,
             sum)]
#>     n frequency
#> 1: 28        80

^{Создано в 2019-02-28 с помощью пакета Представить (v0.2.1)}

Answer 2

Из того, что я понял, кажется, вы хотите сложить столбец частоты.Следующий код (используя tidyverse) может помочь:

library(tidyverse)


df <- read_table('http://stat.ethz.ch/Teaching/Datasets/milben.dat')

df %>%
  summarize(
    total = sum(frequency)
  )

Вывод:

# A tibble: 1 x 1
  total
  <dbl>
1   150