r - 计算基于一年的百分比减少
问题描述
我有这个数据框:
dat = read.delim(text = "LM, year
85.20000, 2020
56.70000, 2021
49.00000, 2022
71.00000, 2023
33.00000, 2024
96.50000, 2025
26.30000, 2026
21.30000, 2027", sep = ",", header = T)
我想计算特定年份的减少百分比变化,我为此编写了这个函数:
pChange = function( dat , startYear){
lastYear = max(dat$year)
res = dat %>% arrange(year) %>%
mutate(change = (LM[year == lastYear] - LM[year == startYear]) / LM[year == startYear])
res
}
pChange( dat, startYear = 2022)
但是,我每年都得到相同的值,我认为有问题,但我不知道如何解决它。任何想法?
LM year change
1 85.2 2020 -0.5653061
2 56.7 2021 -0.5653061
3 49.0 2022 -0.5653061
4 71.0 2023 -0.5653061
5 33.0 2024 -0.5653061
6 96.5 2025 -0.5653061
7 26.3 2026 -0.5653061
8 21.3 2027 -0.5653061
解决方案
如果你想计算startYear
每年之间的百分比变化,我相信你不想包括lastYear
.
pChange = function(dat, startYear){
res = dat %>%
arrange(year) %>%
mutate(change = (LM - LM[year == startYear]) / LM[year == startYear])
res
}
pChange(dat, startYear = 2022)
LM year change
1 85.2 2020 0.7387755
2 56.7 2021 0.1571429
3 49.0 2022 0.0000000
4 71.0 2023 0.4489796
5 33.0 2024 -0.3265306
6 96.5 2025 0.9693878
7 26.3 2026 -0.4632653
8 21.3 2027 -0.5653061
推荐阅读
- ios - 反正有没有让我能够在没有苹果开发者计划的情况下分发 ios 应用程序进行测试?
- flutter - 如何在颤动中将负整数转换为正整数
- javascript - TypeError:无法读取未定义的属性“表情符号”
- windows - .. 在路径中的文件名之后
- java - PagingAndSortingRepository 在运行时将使用什么实现?
- r - 如何从 R 中的 heatmap.2 放大/提取部分颜色/提取颜色?
- symfony - 在 Symfony 上使用 ElFinder:我无法选择图像
- templates - TYPO3 Fluid - 模板分页
- amazon-web-services - AWS - 在另一个 lambda 中调用声明的变量
- git - 如何在 Ubuntu 上验证 Github?git:'credential-netrc' 不是 git 命令