Ссылка a для значения l oop при нахождении среднего значения данных

Question

• 1000 чтобы попытаться найти средний урожай этого урожая за каждый год, используя для l oop, и добавить его в нижнюю часть фрейма данных, используя tibble, чтобы я мог построить его на графике ggplot. Это код, который я пытаюсь использовать:

x <- seq(2009,2018,1)
for (val in x) {
  y <-  wwdata[wwdata$Year == x]
  average_x <- mean(y$yield)
  wwdata <- add_row(Year = x, Region = "Average", Yield = average_x ) 
}

Обычно это работает на других языках, но в R, похоже, не понимают, что «x» является текущим значением l oop. Ошибка:

Error in `[.data.frame`(wwdata, wwdata$Year == z) : 
  undefined columns selected

Я не уверен, есть ли специальный c синтаксис, которого я не знаю, любая помощь приветствуется!

Answer 1

    library(magrittr)

    Z  = lapply(2009:2018, function(x){
            data.frame(Year = x, 
            Region = "Average",
            wdata$Yield[ wdata$year == x ] %>% mean)
         })%>% do.call(what = "rbind")

Тогда мы можем привязать его по строкам:

rbind(wdata, Z)