我想转置类似于my.data
下面的数据集,然后对行求和。
my.data <- "landuse units year county.a county.b county.c county.d
apple acres 2010 0 2 4 6
pear acres 2010 10 20 30 40
peach acres 2010 500 400 300 200"
my.data2 <- read.table(textConnection(my.data), header = T)
my.data2
所需的输出是:
counties all.fruit
county.a 510
county.b 422
county.c 334
county.d 246
我可以用下面的代码做到这一点。但是,以下代码似乎一定是大材小用。我希望有一个更简单的解决方案。
# transpose the data set
tmy.data2 <- t(my.data2)
tmy.data2 <- as.data.frame(tmy.data2)
# assign row names to the data set
my.rows <- row.names(tmy.data2)
transposed.data <- cbind(my.rows, tmy.data2)
transposed.data
# extract numbers to obtain row sums
fruit.data <- as.data.frame(transposed.data[4:dim(transposed.data)[1], 2:dim(transposed.data)[2]])
fruit.data2 <- as.matrix(fruit.data)
fruit.data3 <- matrix(as.numeric(fruit.data2), nrow=( dim(fruit.data2)[1] ), byrow=F)
# sum fruit by county
all.fruit <- rowSums(fruit.data3, na.rm=T)
# create row names for summed fruit data
counties <- my.rows[4:length(my.rows)]
almost.final.data <- cbind(counties, all.fruit)
really.final.data <- as.data.frame(almost.final.data)
really.final.data[,2] <- as.numeric(as.character(really.final.data[,2]))
really.final.data
str(really.final.data)
感谢您的任何建议。我可以使用上面的代码,但将此请求视为一个大大改进我的编程的机会。