Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/83.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R编程、excel文件计算和通过R修改_R - Fatal编程技术网

R编程、excel文件计算和通过R修改

R编程、excel文件计算和通过R修改,r,R,我正在尝试计算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 =

我正在尝试计算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))
使用colSumsis.nasales_矩阵,您只需计算给定列中NA值的数量。我不确定这是否是你想要的

相反,如果您想要销售矩阵列的实际总和,请使用:
Colsumsales_矩阵,na.rm=T

无需屏幕截图,将所有数据作为问题本身的文本。您正在打印is.nasales_矩阵的colSums值,您是否可能没有na值?没有,我有na值,因此我也必须删除该值。如果您在colSumsis.nasales_矩阵之前删除na值,您将得到零。因为这行代码基本上是求和is.na=T值的数量。也许你只是想要Colsumsales_matrix