通过函数传递数据帧数据答案

【问题标题】：Passing data frame data through function通过函数传递数据帧数据
【发布时间】：2022-01-21 06:30:05
【问题描述】：

# mtcars <- view(mtcars)

sq_sum_diff <- function(d, w) {  # d, and c are columns draft and weight
  a <- d^2
  b <- w^2
  p <- sqrt(sum(a^2 - b^2)
  return(p)
}

我想要返回的是一个df，两者之间的平方差。

【问题讨论】：

d <- data.frame( d=with( mtcars, sq_sum_diff( draft, weight) ))。并在将来在 StackOverflow 上向世界展示你的努力之前测试你的代码。您缺少括号。（也许你的意思是drat？）
只返回最后一行时不需要使用return()。您是说要返回带有 a^2-b^2（即 d^4 - w^4）的单列数据框吗？还是要在现有数据框中添加新列？
@IRTFM，抱歉打错了。回想起来，这是一个复制和粘贴问题。对不起。
@Elin，是的，您的第一个问题是正确的。但是，我想如果我想这样做，我需要删除 sum 函数，对吗？另外，感谢您对“return()”的更正。我还是编码新手，所以任何更正都会有所帮助。

标签： r function difference least-squares

【解决方案1】：

我认为这将完成您想要完成的工作：

data(mtcars)

sq_sum_diff <- function(d, w) {
  sqrt(sum(d^2 - w^2))
}
sq_sum_diff(mtcars$drat, mtcars$wt)


library(tidyverse)

mtcars %>% 
  summarize(dif_sqr = sq_sum_diff(drat, wt))

为什么要对值进行两次平方？将d^2 分配给a 并计算平方和时？此外，您缺少匹配的括号 sqrt。最后，你不需要分配给p然后return(p)，函数会自动返回最后一行。为了将来参考，您可以直接调用 data(mtcars) 而无需将其分配给 mtcars。

【讨论】：

您好，谢谢您的回复！我已经弄清楚了那部分。自从我发布了这个，我已经删除了sum 函数，运行代码，得到了 31 行数据。我想我可以把它变成df。
我错过了关于想要一个 data.frame 的部分。我在我的答案中添加了一些代码，如果有帮助的话，它会生成一个带有单列的数据框来表示平方差。