R 导致计算错误的数据集大小

我已从a修改了以下代码：

但是，当在较小的数据集（46列和180,00行）上运行相同的代码时，它可以正常工作：

Input_Data <- read.csv("http://dl.dropbox.com/u/58164604/Input_Data.csv", row.names=1, stringsAsFactors = FALSE)

TPop<-Input_Data[1]
TPopCount <- TPop[, 1]
TPopSum <- sum(TPopCount)

OACRaw<-Input_Data[,4:50]
OACRawCount <-ncol(OACRaw)

OA_Percentage <- TPopCount/TPopSum * 100
Data_Per_Row <- OACRaw/matrix(rep(TPopCount, each=OACRawCount), ncol=OACRawCount, byrow=T)*100
Data_Index_Row <- Data_Per_Row/OA_Percentage * 100
names(Data_Per_Row) <- names(Data_Index_Row) <- names(OACRaw)

---

Input_Data在您的
OACRaw
数据框中有一些奇怪的值。例如，在第184列第22行，该值是一个反勾字符：“`”。当您尝试分割它时，它是错误的原因

在第184列之后可能还有其他虚假值

因此，错误不是由于数据的大小，而是因为当您仅选择第一列时，虚假值被排除在外。
在您的
OACRaw
数据框中有一些奇怪的值。例如，在第184列第22行，该值是一个反勾字符：“`”。当您尝试分割它时，它是错误的原因

在第184列之后可能还有其他虚假值

因此，错误不是由于数据的大小，而是因为当您仅选择第一列时，会排除伪值。
感谢您找到问题所在。不知道我怎么会错过。谢谢你找到了问题所在。不知道我怎么错过了。
Error in FUN(left, right) : non-numeric argument to binary operator

Input_Data <- read.csv("http://dl.dropbox.com/u/58164604/Input_Data.csv", row.names=1, stringsAsFactors = FALSE)

TPop<-Input_Data[1]
TPopCount <- TPop[, 1]
TPopSum <- sum(TPopCount)

OACRaw<-Input_Data[,4:50]
OACRawCount <-ncol(OACRaw)

OA_Percentage <- TPopCount/TPopSum * 100
Data_Per_Row <- OACRaw/matrix(rep(TPopCount, each=OACRawCount), ncol=OACRawCount, byrow=T)*100
Data_Index_Row <- Data_Per_Row/OA_Percentage * 100
names(Data_Per_Row) <- names(Data_Index_Row) <- names(OACRaw)