pres_1308

rm(list = ls())
gc()

         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 344700 18.5     638651 34.2   638651 34.2
Vcells 639065  4.9    8388608 64.0  1633507 12.5

library(dplyr)
library(ggplot2)
library(plotly)
library(readxl)
merged = read_excel("C:/Users/David/Desktop/David/work/IEP/prison/merged_best_manually_filled.xlsx")

merged$prec = (merged$prison_price - merged$market_min)/ (merged$market_max - merged$market_min)

For more details on authoring R presentations please visit https://support.rstudio.com/hc/en-us/articles/200486468.

• Bullet 1
• Bullet 2
• Bullet 3

library(plotly)

df <- data.frame(x =  1:10, y = (1:10)^2)

p <- ggplot(df, aes(x = x, y = y)) + geom_line() + labs(x = "X", y = "Y", title = "X and Y")
ggplotly(p)

summary(cars)

     speed           dist       
 Min.   : 4.0   Min.   :  2.00  
 1st Qu.:12.0   1st Qu.: 26.00  
 Median :15.0   Median : 36.00  
 Mean   :15.4   Mean   : 42.98  
 3rd Qu.:19.0   3rd Qu.: 56.00  
 Max.   :25.0   Max.   :120.00