在数据框的底部创建一个新行并添加列总和

Question

我正在使用以下代码从工作目录中读取csv文件：

df <- read.csv("test1.csv", header = TRUE,skip =6, nrow =
length(count.fields("test1.csv")) - 12)

然后使用以下代码更改列名：

colnames(df) = c("type","date","v1","v2","v3","v4","v5","v6","v7","v8","v9","v10","v11","v12","v13","v14","v15","v16","v17","v18","v19","v20","v21","v22","v23","v24","total")

我的数据集维度是365行x 24列，我正在尝试计算列（3:27）总和，并在数据框底部用总和创建一个新行。

data.frame看起来像这样：

如果我尝试使用如下的一些样本数据进行测试，它可以正常工作：

x <- data.frame(x1 = c(3:8, 1:2), x2 = c(4:1, 2:5),x3 = c(3:8, 1:2), x4 = c(4:1, 2:5))

x [9，（2：3）]＆lt; - apply（x，2，sum）

但是当我尝试使用我正在使用的csv文件时，我使用的代码如下：

x[366,(3:27)] <- apply(df, 2, sum)

但它会出现如下错误：“FUN中的错误（newX [，i]，...）：参数”

的“类型”（字符）无效

有人可以告诉我如何解决这个问题吗？

Answer 1

apply(df, 2, sum)会尝试对所有列求和，如果列type和date属于R没有sum方法的类型，将失败。你可以试试

df[366,(3:27)] <- colSums(df[,3:27], na.rm=TRUE)

修改

识别数字列：

myNumCols <- which(unlist(lapply(df, is.numeric)))

然后

df[(nrow(df) + 1), myNumCols] <- colSums(df[, myNumCols], na.rm=TRUE)