n = c(2, 3, 5)
s = c("aa", "bb", "cc")
b = c(TRUE, FALSE, TRUE)
df = data.frame(n, s, b)

for (x in 1:ncol(df)) {
  print(x)
  print(df[x])
  print(mean(df[[x]]))
}