bar chart solutions

bar-chart-solutions.R

# Bar Chart

## Bar Chart v1

Use the v1 approach to make a bar chart that shows a count of the number of people who say they smoke. Include NA responses.


```{r}
ggplot(data = nhanes, 
       mapping = aes(x = smoke_now)) +
  geom_bar() 
```

## Bar Chart v2

Create a new data frame called `sleep_by_gender` that shows the average amount of sleep per night that males and females report getting. Drop any NA (or NaN) responses from this data frame.

```{r}
sleep_by_gender <- nhanes %>% 
  group_by(gender) %>% 
  summarize(avg_sleep = mean(sleep_hrs_night, na.rm = TRUE)) 
```

Plot the average amount of sleep per night for males and females.

```{r}
ggplot(data = sleep_by_gender, 
       mapping = aes(x = gender, 
                     y = avg_sleep)) +
  geom_bar(stat = "identity") 
```

Make the same graph as above, but use `geom_col` instead of `geom_bar`.

```{r}
ggplot(data = sleep_by_gender, 
       mapping = aes(x = gender, 
                     y = avg_sleep)) +
  geom_col()
```