我正在使用数据透视表在R中进行两个Land Cover的更改矩阵,我通常/很容易在Excel中执行。
我得到了如何在R中使用数据透视表方式,但是我在进一步操作数据框时遇到了一些麻烦。
我需要从行数和列数不相等的数据框中获得精确的行和列,并将0放到缺少的行/列中。
样品:
df <- matrix(1:20, 4)
colnames(df) <- c('a', 'b', 'c', 'd', 'e')
rownames(df) <- c('a', 'b', 'c', 'd')
df1 <- df[-3,]
df1
在'df1'中,缺少行'c'和'e'。我开始创建一个for循环,进入行并查找缺少的内容:
FinalTable <- function (df){
for (i in rownames(df)){
if (i != colnames(df)){
print ('not equal')
}
}
}
在此之后,我需要做rbind来添加行中缺少的列。
感谢您的帮助。
我可以发送原始表格和所需表格供您参考。
谢谢!
南多