Hi,
I have a dataset for tracking teachers. I need to check whether they are adopting a particular teaching practice (which is encoded as a categorical variable-1 or 0).
I need to calculate the average. The week number for a particular teacher appears 5 times in a week as classes happen 5 times. But the average has to be calculated teacher-wise. For example, if we take teacher Nithin in the reprex below, the average must be calculated as sum of the variable "part1" divided by 5. The same number must appear for all the days in that particular week. For week 2 again the calculation must be the same. This has to be calculated for all the teachers in the list. How can I do it. The resulting data frame will look like what is shown in "data2". How can I do this?
library(tidyverse)
data<-tibble::tribble(
~master, ~schoolid, ~teacherid, ~week_no, ~part1,
"A", "GHPS UNKAL", "Nitin", 1L, 0L,
"A", "GHPS UNKAL", "Savio", 1L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L,
"A", "GHPS UNKAL", "Nitin", 1L, 0L,
"A", "GHPS UNKAL", "Savio", 1L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L,
"A", "GHPS UNKAL", "Nitin", 1L, 0L,
"A", "GHPS UNKAL", "Savio", 1L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L,
"A", "GHPS UNKAL", "Nitin", 1L, 0L,
"A", "GHPS UNKAL", "Savio", 1L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L,
"A", "GHPS UNKAL", "Nitin", 1L, 0L,
"A", "GHPS UNKAL", "Savio", 1L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L,
"A", "GHPS UNKAL", "Nitin", 2L, 0L,
"A", "GHPS UNKAL", "Savio", 2L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L,
"A", "GHPS UNKAL", "Nitin", 2L, 0L,
"A", "GHPS UNKAL", "Savio", 2L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L,
"A", "GHPS UNKAL", "Nitin", 2L, 0L,
"A", "GHPS UNKAL", "Savio", 2L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L,
"A", "GHPS UNKAL", "Nitin", 2L, 0L,
"A", "GHPS UNKAL", "Savio", 2L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L,
"A", "GHPS UNKAL", "Nitin", 2L, 0L,
"A", "GHPS UNKAL", "Savio", 2L, 1L,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L
)
data2<-tibble::tribble(
~master, ~schoolid, ~teacherid, ~week_no, ~part1, ~average, ~average_man_day,
"A", "GHPS UNKAL", "Nitin", 1L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 1L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 1L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 1L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 1L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 1L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 1L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 1L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 1L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 1L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 1L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 1L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 2L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 2L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 2L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 2L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 2L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 2L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 2L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 2L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L, 1L, 1.25,
"A", "GHPS UNKAL", "Nitin", 2L, 0L, 0L, 0,
"A", "GHPS UNKAL", "Savio", 2L, 1L, 1L, 1.25,
"B", "GHPS VIDYANAGAR", "Prathibha", 2L, 0L, 0L, 0,
"B", "GHPS VIDYANAGAR", "Nagma", 2L, 1L, 1L, 1.25
)
Created on 2022-10-19 by the reprex package (v2.0.1)