lapply, dplyr, and using values within lists

Question

I am trying to calculate a mean from vector in a list, conditional on the value of another vector in that list. Here is a simple example:

> df1 <- seq(1:10)