R Notebook Hw 3

##Problem 7.6

A

storms

data_histogram <- storms
ggplot(data_histogram, aes(x = category, y = wind, fill= category)) +
    geom_bar(stat = "identity")

#B

data_histogram <- storms
ggplot(data_histogram, aes(x = category, y = pressure, fill= category)) +
    geom_bar(stat = "identity")

NA
NA

7.14

W <- as_tibble(CO2)
ggplot(CO2, aes(x = conc, y = uptake, color = Type)) +
  geom_point()+
  geom_smooth()

`geom_smooth()` using method = 'loess' and formula 'y ~ x'

#7.20

LahmanData

Q <- as_tibble(People)
ggplot(People, aes(x = birthMonth)) +
  geom_bar()+
  labs(title = "ALL PLAYERS")

Warning: Removed 282 rows containing non-finite values
(stat_count).

A_length <- filter(People,birthYear>=1970) 
x = birthMonth

Error: object 'birthMonth' not found

#7.21 ##male

babynames <- babynames::babynames
babynames %>%
  filter( sex == "M") %>%
  ggplot(aes(x = year, y = n)) +
  geom_line()

##female

7.22

#female

babynames <- babynames::babynames
babynames %>%
filter( sex == "F") %>%
  ggplot(aes(x = year, y = prop)) +
  geom_line()

#male

babynames <- babynames::babynames
babynames %>%
filter( sex == "M") %>%
  ggplot(aes(x = year, y = prop)) +
  geom_line()