- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有以下数据:
Company Year Variables Data
ABC 2000 Revenue 10
ABC 2001 Revenue 15
ABC 2002 Revenue 12
ABC 2003 Revenue 25
ABC 2004 Revenue 30
CDE 2000 Revenue 5
CDE 2001 Revenue 8
CDE 2002 Revenue 17
CDE 2003 Revenue 9
CDE 2004 Revenue 34
#etc
Company Year Variables Data CAGR
ABC 2000 Revenue 10 NA
ABC 2001 Revenue 15 NA
ABC 2002 Revenue 12 6.27%
ABC 2003 Revenue 25 18.56%
ABC 2004 Revenue 30 35.72%
CDE 2000 Revenue 5 NA
CDE 2001 Revenue 8 NA
CDE 2002 Revenue 17 50.37%
CDE 2003 Revenue 9 4.00%
CDE 2004 Revenue 34 25.99%
CAGR for 2004=((LastYear/PreviousYear)^(1/n))-1
For example for n = 2
LastYear =2004
PreviousYear =2004-2 = 2002
library(tibble)
library(dplyr)
library(lubridate)
year<-c(rep(2000:2004,2))
company<-rep(c("ABC","CDE"),5)
variable<-rep("revenue",10)
data<-c(10,15,12,25,30,5,8,17,9,34)
tibdf<-tibble(company,year,variable,data)
View(tibdf)
#revenue2004<-tibdf%>%filter(year==2004)%>%select(company,data)
#revenue2002<-tibdf%>%filter(year==2001)%>%select(company,data)
annual.growth.rate <- function(a){
T1 <- max(a$year) - min(a$year)+1
FV <- a[which(a$year == max(a$year)),"data"]
SV <- a[which(a$year == min(a$year)),"data"]
cagr <- ((FV/SV)^(1/T1)) -1
}
最佳答案
这是一种方法:
library(tidyverse)
df %>%
arrange(Company, Year) %>% #in case the years are not in order (here they are)
group_by(Company) %>%
mutate(lagY = lag(Year), #get the lag year
lagD = lag(Data), #get lad Data
t = Year - lagY, #calculate time
CAGR = (Data / lagD)^(1/t) - 1) %>% #calculate CAGR
select(-lagY, -lagD, -t) #remove unwanted variables
#output:
Company Year Variables Data CAGR
<fct> <int> <fct> <int> <dbl>
1 ABC 2000 Revenue 10 NA
2 ABC 2001 Revenue 15 0.500
3 ABC 2002 Revenue 12 - 0.200
4 ABC 2003 Revenue 25 1.08
5 ABC 2004 Revenue 30 0.200
6 CDE 2000 Revenue 5 NA
7 CDE 2001 Revenue 8 0.600
8 CDE 2002 Revenue 17 1.12
9 CDE 2003 Revenue 9 - 0.471
10 CDE 2004 Revenue 34 2.78
df %>%
arrange(Company, Year) %>%
group_by(Company) %>%
mutate(CAGR = (Data/lag(Data))^(1/(Year-lag(Year))) - 1)
df <- read.table(text ="Company Year Variables Data
ABC 2000 Revenue 10
ABC 2001 Revenue 15
ABC 2002 Revenue 12
ABC 2003 Revenue 25
ABC 2004 Revenue 30
CDE 2000 Revenue 5
CDE 2001 Revenue 8
CDE 2002 Revenue 17
CDE 2003 Revenue 9
CDE 2004 Revenue 34", header = T)
关于r - 使用 dplyr 在 R 中进行动态 CAGR 计算,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48984116/
在 JavaScript 中,我们可以动态创建 元素并附加到 部分,以便为大量元素应用 CSS 规则。 这种方法的优点或缺点是什么? 如果它确实提供了与元素上的 javascript 迭代相比的性
我有这个代码 import "./HTTPMethod.dart"; import '../../DataModel/DataModel.dart'; mixin RouterMixin { HT
哪些 OLAP 工具支持动态、动态地创建维度或层次结构? 例如,层次结构将成员定义为:“前 5 名”、“前 6-10 名”、“其他”... 计算成员是通常的答案,我正在寻找不同的东西。计算器的问题。成
我正在 CakePHP 中创建一个“表单编辑器”。 该界面允许用户选择要应用于字段的验证,例如数字、电子邮件等 因此,我需要根据用户输入为模型动态创建验证。为此,我可以使用验证对象:https://b
这是一个场景: 我有一个Web服务,我们将其称为部署在tomcat(轴)上的StockQuoteService。通过此 Web 服务公开了 getStockQuote() 方法。 现在,我想构建一个
我正在尝试从服务器获取 JSON 响应并将其输出到控制台。 Future login() async { var response = await http.get( Uri.
我从另一个问题中得到了这段代码(感谢 chunhunghan)。我需要创建一个登录屏幕,并尝试根据服务器发回给我的响应来验证用户凭据,但是每次我尝试运行代码时,它都会给我“未处理的异常:Interna
当我在“Dart”主程序中运行它时,一切正常,并且我得到了一个与会者列表。但是,当我在我的 Flutter 应用程序中调用它时,出现错误: flutter:“List”类型不是“List>”类型的子类
本文实例为大家分享了js实现验证码动态干扰的具体代码,供大家参考,具体内容如下 效果一 效果二 代码一 ?
目前我正在为我的网站使用 No-Ip,我想使用 cloudflare 来抵御 ddos 和机器人程序。我注意到您需要一个用于 cloudflare 的域。我还搜索了网络,发现了一个叫做 cloud
有没有办法在 Excel VBA 中构建动态 if 语句?基本上我正在尝试创建一个参数化计算,用户将能够输入不同的变量,即 变量 1 “变量 2” “变量 3” 在这种情况下 变量 1 是单元格引用
大家好, 请查看上面的图片,我有两张 table 。在下面代码的第一个表中,我得到了这种格式。 但我想像 Table2 那样格式化,每个合并单元格中的行数是动态的,而且不一样。 有没有办法像table
如何根据我添加的 View 修改标题部分的高度?heightForHeaderInSection在 viewForHeaderInSection 之前被调用我不知道 View 大小,直到我创建它。 最
是否存在在运行时生成 AST/解析树的解析器?有点像一个库,它会接受一串 EBNF 语法或类似的东西并吐出数据结构? 我知道 antlr、jlex 和他们的同类。他们生成可以做到这一点的源代码。 (喜
我在持有汽车制造商的表格上有一个 MultipleChoiceField。我想将我的汽车数据库过滤到已检查的品牌,但这会导致问题。如何动态获取所有 Q(make=...) 语句? 我如何开始:['va
$end = preg_replace($pattern, $replacement, $str); 如何使替换字符串 $replacement 随 $str 中的每次匹配而变化?例如,我想用关联的图
我正在编写一个 VBA 程序,用于过滤表中的值。我试图使其成为一个适用于您提供的所有表格的通用程序。在我的程序中,我必须设置它正在过滤的表的范围:Set rng = dataSheet.Range("
我正在循环一个元素数组,并且我想使用给定的模板递归地显示该元素 然后在该模板内使用带有切换功能的按钮来显示/隐藏给定元素的Child的更深级别模板(Child也是一个元素) 这是我的模板
从客户端(html)发送表单,服务器端通过选择选项之一决定运行哪个函数。 const decideWho = (form) => { const choice = form.choice; c
我有一个具有以下属性的按钮: circle_normal.xml(在 res/drawable 中) circle.xml(在 res/drawable 中)
我是一名优秀的程序员,十分优秀!