R-for-Data-Science,-Chapter-1,-Part-1.R

library(readxl)
getwd()

## [1] "/cloud/project"

penguins <- read_excel("palmer_penguins_data_set.xlsx")
head(penguins)

## # A tibble: 6 × 9
##   individual species island    bill_length_mm bill_depth_mm flipper_length_mm
##        <dbl> <chr>   <chr>              <dbl>         <dbl>             <dbl>
## 1          1 Adelie  Torgersen           39.1          18.7               181
## 2          2 Adelie  Torgersen           39.5          17.4               186
## 3          3 Adelie  Torgersen           40.3          18                 195
## 4          4 Adelie  Torgersen           36.7          19.3               193
## 5          5 Adelie  Torgersen           39.3          20.6               190
## 6          6 Adelie  Torgersen           38.9          17.8               181
## # ℹ 3 more variables: body_mass_g <dbl>, sex <chr>, year <dbl>

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.6
## ✔ forcats   1.0.1     ✔ stringr   1.6.0
## ✔ ggplot2   4.0.1     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.2
## ✔ purrr     1.2.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

ggplot(
  data = penguins,
  mapping = aes(x = flipper_length_mm, y = body_mass_g, colour = bill_length_mm)
) +
  geom_point() +
  geom_smooth()

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

## Warning: The following aesthetics were dropped during statistical transformation:
## colour.
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?