Question

我有一个名为productCheck的数据框：

prod <- c("GAS","GAS","GLP","GLP","GNV")
monthYear <- c("2016-06-01","2016-07-01","2016-06-01","2016-07-01","2016-07-01")
meanValue <- c(3,5,8,1,6)
price <- c(0,0,0,0,0)

productCheck <- data.frame(prod,monthYear,meanValue,price)
productCheck$prod <- as.factor(productCheck$prod)
productCheck$monthYear <- as.factor(productCheck$monthYear)

执行以下循环时，出现错误：

for (j in levels(productCheck$prod))
{
  firstPeriod <- NA
  for (k in levels(productCheck$monthYear))
  {
    if (!is.na(firstPeriod))
    {
      secondPeriod <- k
      productCheck[productCheck$monthYear==j & productCheck$prod==secondPeriod,]$price <- 
        100*(productCheck[productCheck$monthYear==secondPeriod & productCheck$prod==j,]$meanValue - 
             productCheck[productCheck$monthYear==firstPeriod & productCheck$prod==j ,]$meanValue) /
             productCheck[productCheck$monthYear==firstPeriod & productCheck$prod==j ,]$meanValue
    }
    firstPeriod <- k
  }  
}

$<-.data.frame（*tmp*，“价格”，值=数字（0））中的错误：替换有0行，数据有1

问题是，对于GNV产品，没有“ 2016-06-01”期间的信息。如何避免此错误？

Answer 1

正如您所显示的，我认为您的代码不必要太长，无法进行for循环和问题。我可以看到几种替代方法，其中一种是：

library(tidyverse)
productCheck %>% 
  pivot_wider(names_from =monthYear, values_from = meanValue) %>% 
  mutate(price = 100*(`2016-07-01` - `2016-06-01`)/`2016-06-01`)

# A tibble: 3 x 4
  prod  price `2016-06-01` `2016-07-01`
  <fct> <dbl>        <dbl>        <dbl>
1 GAS    66.7            3            5
2 GLP   -87.5            8            1
3 GNV    NA             NA            6

您的原始数据：

prod <- c("GAS", "GAS", "GLP", "GLP", "GNV")
monthYear <- c("2016-06-01", "2016-07-01", "2016-06-01", "2016-07-01", "2016-07-01")
meanValue <- c(3, 5, 8, 1, 6)
productCheck <- data.frame(prod, monthYear, meanValue)

访问R数据框中不存在的数据

1 个答案: