应用功能在 R 中不起作用

Question

我创建了一个数据框：

fy <- c(2010,2011,2012,2010,2011,2012,2010,2011,2012)
company <-c("Apple","Apple","Apple","Google","Google","Google","Microsoft","Microsoft","Microsoft")
revenue <- c(65225,108249,156508,29321,37905,50175,62484,69943,73723) 
profit <- c(14013,25922,41733,8505,9737,10737,18760,23150,16978)
companiesData <- data.frame(fy, company, revenue, profit)

我正在尝试使用 apply 命令创建新列，但出现错误：

companiesData$Margin<-apply(companiesData,1,function(x){(x[4]/x[3])*100})

x[4]/x[3] 中的错误：二元运算符的非数字参数

谁能告诉我这里的错误是什么？

Answer 1

错误在于 apply 将其第一个参数强制转换为矩阵，并且由于 companiesData 具有数字和非数字变量，所有变量都转换为非数字导致操作 x/y 无效，因为除法没有为非数字数据定义。

解决方案：在这种情况下您不需要apply。

companiesData$Margin <- 100 * companiesData$profit / companiesData$revenue

或等效

companiesData <- within(companiesData, Margin <- 100 * profit / revenue)

做你想做的。