数据复制

Question

这可能很简单，但我没有找到解决方案--我有一年的值，并会在未来40年产生相同的数据集。一个小的例子应该是这样的(实际数据是2000 x 6)。

data <- as_tibble(data.frame(yr =c(2010,2010,2010), values = c("a","b","c")))

现在，我想得到2011年到2050年的同样一套“价值观”观察结果。知道在R里怎么做吗？

谢谢伦格

Answer 1

这也是另一个选择。如果你是在建模的话，那是很有用的：

library(modelr)
library(dplyr)
data1 %>% 
  data_grid(yr=2010:2050,values=values)

Answer 2

检查此解决方案：

tidyr::crossing(
  yr = 2010:2050,
  values = c("a","b","c")
)

Answer 3

基于lapply的R基方法

lapply(2011:2050, function(x) data.frame(yr = x, values = data$values))

这将为您提供每年的数据列表。

3个值的输出

lapply(2011:2013, function(x) data.frame(yr = x, values = data$values))


#[[1]]
#    yr values
#1 2011      a
#2 2011      b
#3 2011      c

#[[2]]
#    yr values
#1 2012      a
#2 2012      b
#3 2012      c

#[[3]]
#    yr values
#1 2013      a
#2 2013      b
#3 2013      c