data_wrangling_in_rstudio

data cars

library(ggplot2)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

head(cars)

##   speed dist
## 1     4    2
## 2     4   10
## 3     7    4
## 4     7   22
## 5     8   16
## 6     9   10

add variable gender

cars<-cars%>%mutate(gender=ifelse(speed<14,"female",ifelse(speed>14,"male","transgender")))

head(cars)

##   speed dist gender
## 1     4    2 female
## 2     4   10 female
## 3     7    4 female
## 4     7   22 female
## 5     8   16 female
## 6     9   10 female

cars%>%filter(gender=="female" & dist>30 &speed ==10)

##   speed dist gender
## 1    10   34 female

cars%>%ggplot(aes(speed,dist))+geom_point(color="blue")+geom_smooth(method = "lm",se=F,color="purple",lw=4)+facet_wrap(~gender)+theme_minimal()

## Warning in geom_smooth(method = "lm", se = F, color = "purple", lw = 4):
## Ignoring unknown parameters: `lw`

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