Help with finding average

[jess88]

So this is what part of the data I'm using looks like (not mine) and I'm new to R so I'm not quite sure what I'm doing. I'm trying to find the average heart rate (thalach) for each age but i want the age intervals to be 20,40,60,80. Even without the intervals is fine.Is there a simple way to do this? Any help would be greatly appreciated!

[andresrcs]

Hi!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at this guide, to see how to create one:

FAQ: How to do a minimal reproducible example ( reprex ) for beginners

A minimal reproducible example consists of the following items: A minimal dataset, necessary to reproduce the issue The minimal runnable code necessary to reproduce the issue, which can be run on the given dataset, and including the necessary information on the used packages. Let's quickly go over each one of these with examples: Minimal Dataset (Sample Data) You need to provide a data frame that is small enough to be (reasonably) pasted on a post, but big enough to reproduce your issue. Let's say, as an example, that you are working with the iris data frame head(iris) #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.…

[kaijabean]

Hi @jess88,
It would definitely be helpful if you could provide some sample data next time. But since I think I understand what you're trying to do, I went ahead and made a little sample data frame.

Try something like this:

library(dplyr)

# Define some minimal data
df <- data.frame(age = c(63, 37, 41, 56, 57, 57, 56, 44, 52, 57), thalach = c(150, 187, 172, 178, 163, 148, 153, 173, 162, 174)) # I just copied the numbers from the data you showed above

# Group the ages into bins, with cut points at 20, 40, 60, and 80
df <- df %>% 
        mutate(ageGroup = cut(age, breaks = c(20, 40, 60, 80)))

# Use the group_by() and summarize() functions to get mean heart rate by age group
heartRate <- df %>% 
    group_by(ageGroup) %>% 
    summarize(meanHeartRate = mean(thalach))

heartRate #view results

Note that if you have any missing values (NA's) in the thalach column, you'd probably want to add the na.rm = T argument to the mean() function, like this:

heartRate <- df %>% 
    group_by(ageGroup) %>% 
    summarize(meanHeartRate = mean(thalach, na.rm = T))

I hope that helps!