沿着r中的列按类别运行方程
沿着r中的列按类别运行方程
提问于 2020-11-12 20:46:57
我目前有一个数据帧，看起来像这样
tree cookie height radius
C1T1 A 0.37 12.3
c1t1 B 0.65 14.2
C1T1 C 0.91 16
C1T2 A 0.2 4
C1T2 B 0.5 10
C1T2 C 0.75 12.4我想在这个数据框中添加一个"volume“列。体积列中的方程式为：(1/3) * pi * height * (radius1^2 + radius2^2 + (radius1*radius2)) (这是平截体的体积！)。对于每棵树，我想运行这个等式，其中height是cookie的高度加上它之前的高度(所以对于树C1T1 cookie C，高度是0.91+0.65+0.37)，radius1是它自己的半径，radius2是它前面的cookie的半径(同样对于C1T1 cookie C，radius2是cookie C1T1 B的半径)。此外，对于每个树的第一个"cookie“-由于它没有以前的高度，我不需要将它添加到任何东西中，并且对于radius2，它可以是它自己的半径再次使用，因此它将是相同的值对于radius1和radius2)。任何关于如何做到这一点的建议都将不胜感激！
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-11-12 21:18:34
library(tidyverse)
df <- tribble(
~tree, ~cookie, ~height, ~radius1,
"C1T1", "A", 0.37, 12.3,
"C1T1", "B", 0.65, 14.2,
"C1T1", "C", 0.91, 16,
"C1T2", "A", 0.2, 4,
"C1T2", "B", 0.5, 10,
"C1T2", "C", 0.75, 12.4
)
df <- df %>%
group_by(tree) %>%
# Sort by height just to be safe
arrange(tree, height) %>%
mutate(
cumheight = cumsum(height),
radius2 = lag(radius1),
radius2 = if_else(is.na(radius2), radius1, radius2),
volume = 1/3 * pi * cumheight * (radius1^2 + radius2^2 + (radius1 * radius2)))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/64811494
复制相关文章
warning insecure world writable dir ruby mode 040777，gem insstal sass error failed to build gem nati
点击加载更多
相似问题
安装"google-api-client“时Ruby On Rails gem依赖冲突
如何在Ruby中添加到gem文件？
如何将gem依赖项添加到我的ruby gem中
将Python脚本添加到Ruby Gem
如何使用ruby api gem将图像添加到shopify集合中
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
