Developing Data prod w3

Here we try to see the difference in the speed of a car wrt change is some of the things that control this feaeutre.

library(plotly)

## Warning: package 'plotly' was built under R version 3.6.3

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

#hdfakdsh fjhdf jhs dlgfjlk djgls jgls g
data(mtcars)
#akjs hkn vlz nlf jdalfjkjdshfksdhf khs kjfs djlf
head(mtcars)

##                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
## Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
## Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
## Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
## Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
## Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

#kjdhf sdh fkjhsdkf hsdkfh sdkfh kjsdh fkhs dfkjhsdk fh
plot_ly(mtcars) %>%
    add_trace(x = ~mpg, y = ~disp, type="scatter", mode = "markers",name = "dis___p", legendgroup = "dis__p", 
              marker = list(color = "#325ca8")) %>%
# hdfk jshdfsk shdfkj hsdkjfgahfetawr eafrsd far r
#afdhsdfg sdgfjh gsdhf gsdhg fjhsdgfh dsg jhfgsdfg hsdk fhf 
    add_trace(x = ~mpg, y = ~hp, type="scatter", mode = "markers",
              name = "h_p__", legendgroup = "h_p__", 
              marker = list(color = "#2f8723")) %>%
# jshggdf ;kfhn pofjp 008uyue598ydsuk tstp9fgsgm so8tstsk g s gk;h;dghpodkh
#l jsgk sjfgj sjg fs jglffjg mgafab gfg sdg fsdg fhsdgfjh g s
    add_trace(x = ~mpg, y = ~drat, type="scatter", mode = "markers",
              name = "dr_a__t", legendgroup = "dr_a__t", 
              marker = list(color = "#3b3812")) 

## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

#fj ofh  shdfsjldhgkshgkaytrfaefrsdhyguxog xibo idhxgxhhgjofkoihkj;fojkgh
# jhfsfjlkdfh kjsh fkjshd gkfjhsd fkjsdhf asdh fkjsdh fkjsh kfhsdkj hfksh fksh fkj
# jlsjosoue tipohi0559er y5yu45 yu58oe8d yure8y 
# jhfsfjlkdfh kjsh fkjshd gkfjhsd fkjsdhf asdh fkjsdh fkjsh kfhsdkj hfksh fksh fkj
# jlsjosoue tipohi0559er y5yu45 yu58oe8d yure8y 
# jhfsfjlkdfh kjsh fkjshd gkfjhsd fkjsdhf asdh fkjsdh fkjsh kfhsdkj hfksh fksh fkj
# jlsjosoue tipohi0559er y5yu45 yu58oe8d yure8y 
# jhfsfjlkdfh kjsh fkjshd gkfjhsd fkjsdhf asdh fkjsdh fkjsh kfhsdkj hfksh fksh fkj
# jlsjosoue tipohi0559er y5yu45 yu58oe8d yure8y 
# jhfsfjlkdfh kjsh fkjshd gkfjhsd fkjsdhf asdh fkjsdh fkjsh kfhsdkj hfksh fksh fkj
# jlsjosoue tipohi0559er y5yu45 yu58oe8d yure8y