eds212_day2_activities.Rmd

---
title: "Task 2 EDS 212"
author: "Dalila Lara"
date: "2022-08-02"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(palmerpenguins)
```

Derivative Practice and Slope 

Section 3
#A
```{r}
function_1 <- expression(x ^ 2)
dx_dy <- D(function_1, 'x')
x <- 3
eval(dx_dy)
```

#B 
```{r}
function_2 <- expression( 2 * (3 * a + 2) ^ 4 - 5)
da_dy <- D(function_2, 'a')
a <- 1.2
eval(da_dy)
```

#C
```{r}
function_3 <- expression(((-4 * t) / (t ^ 2 + 1) ^ 3))
dt_dy <- D(function_3, 't')
t = 0
eval(dt_dy)
```

Section 4 Penguin Plot 

Plot 1 
```{r}
ggplot( data = penguins, aes(x = bill_length_mm, y = bill_depth_mm)) + geom_point(aes(color = species))
```

Plot 2 
```{r}
ggplot( data = penguins, aes(x = species , y = flipper_length_mm)) + labs(x = "Species", y = "Flipper Length (mm)") + geom_jitter() + ggtitle ("Penguin Flipper Length")
```