Вот скриншот моей проблемы
Я пытаюсь сделать сумму в каждом столбце моего файла Excel sales.csv
Поэтому я пытался выполнить приведенный ниже код, но сумма, которую я получаю, равна нулю для всех столбцов. Ниже мой код:
sales <- read.csv("Dress Sales.csv")
names(sales)
sales[,-c(25:36)]->sales
sales
sales = as.data.frame(lapply(sales, as.numeric))
#NAs to be imputed by row mean
sales_matrix = as.matrix(sales)
rowMean = apply(sales_matrix[,-1],1,mean,na.rm=T)
i=1
for(i in 1:nrow(sales_matrix))
{
if(sum(is.na(sales_matrix[i,]))>0)
sales_matrix[i, is.na(sales_matrix[i,])] = rowMean[i]
}
colSums(is.na(sales_matrix))