使用R中的配置文件将每周值分解为每日值

如何解决使用R中的配置文件将每周值分解为每日值

我有一些每周的价值,我想根据配置文件向量进行细分。 假设我的每周数据是:

data <- data.frame(Week = c(1,2),Values = c(100,1000))

个人资料和工作日为:

profile <- c(0.1,0.2,0.4,0.1)
days <- c(1,2,3,4,5)

我希望输出如下所示:

result <- data.frame(Day = c('1_1','1_2','1_3','1_4','1_5','2_1','2_2','2_3','2_4','2_5'),output = c(10,20,40,10,100,200,400,100))

解决方法

我们可以将“数据”的行乘以“天”的length,然后将paste复制为“周”,“天”向量,同时将“值”和“配置文件”向量相乘

library(dplyr)
library(tidyr)
library(stringr)
data %>%
   uncount(length(days)) %>% 
   transmute(Day = str_c(Week,days,sep="_"),output = Values * profile)
#   Day output
#1  1_1     10
#2  1_2     20
#3  1_3     20
#4  1_4     40
#5  1_5     10
#6  2_1    100
#7  2_2    200
#8  2_3    200
#9  2_4    400
#10 2_5    100
,

您可以在expand_grid()中使用tidyr

library(dplyr)
library(tidyr)

data %>%
  expand_grid(Day = days) %>%
  transmute(Day = paste(Week,Day,sep = "_"),output = Values * profile)

# # A tibble: 10 x 2
#    Day   output
#    <chr>  <dbl>
#  1 1_1       10
#  2 1_2       20
#  3 1_3       20
#  4 1_4       40
#  5 1_5       10
#  6 2_1      100
#  7 2_2      200
#  8 2_3      200
#  9 2_4      400
# 10 2_5      100

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


Selenium Web驱动程序和Java。元素在(x,y)点处不可单击。其他元素将获得点击?
Python-如何使用点“。” 访问字典成员?
Java 字符串是不可变的。到底是什么意思?
Java中的“ final”关键字如何工作?(我仍然可以修改对象。)
“loop:”在Java代码中。这是什么,为什么要编译?
java.lang.ClassNotFoundException:sun.jdbc.odbc.JdbcOdbcDriver发生异常。为什么?
这是用Java进行XML解析的最佳库。
Java的PriorityQueue的内置迭代器不会以任何特定顺序遍历数据结构。为什么?
如何在Java中聆听按键时移动图像。
Java“Program to an interface”。这是什么意思?
Java在半透明框架/面板/组件上重新绘画。
Java“ Class.forName()”和“ Class.forName()。newInstance()”之间有什么区别?
在此环境中不提供编译器。也许是在JRE而不是JDK上运行?
Java用相同的方法在一个类中实现两个接口。哪种接口方法被覆盖?
Java 什么是Runtime.getRuntime()。totalMemory()和freeMemory()?
java.library.path中的java.lang.UnsatisfiedLinkError否*****。dll
JavaFX“位置是必需的。” 即使在同一包装中
Java 导入两个具有相同名称的类。怎么处理?
Java 是否应该在HttpServletResponse.getOutputStream()/。getWriter()上调用.close()?
Java RegEx元字符(。)和普通点?