Была в абсолютном шоке, когда написала ChatGPT 

"r programming, map_df should go through all the column and take mean"

буквально

Программирование в языке Р, map_df должна быть использована на каждой колонне и высчитать среднее арифметическое

И я получила решение, которое попросила. Тогда я ещё не знала, что мне нужен пакет tidy и об этом надо было попросить, но задание я уже решила, так что.

library(purrr)

# Example data frame

df <- data.frame(x = c(1, 2, 3),

                 y = c(4, 5, 6),

                 z = c(7, 8, 9))

# Calculate the mean of each column using map_df

means <- map_df(df, mean)

# Print the resulting means

print(means)