Data Understanding

df <- read.csv(“/Users/lichuqiao/Desktop/INF0310/mtcars-3.csv”) head(df,1) dim(df) class(df) str(df) summary(df) y<-(df[10]) y_num<- as.numeric(unlist(y)) y_num<-as.logical(y_num) str(y_num) df[10]<-y_num str(df) df # Scatter Plot input <- mtcars[, c(‘hp’, ‘mpg’)] plot(x = input\(hp, y = input\)mpg, xlab = “horsepower”, ylab = “miles per gallon”, main = “horsepower vs miles per gallon” ) # Bar Chart barplot(table(df\(cyl), xlab = "Cylinders", ylab = "Count", main ="Bar-Chart") # Histogram df <- read.csv("/Users/lichuqiao/Desktop/INF0310/mtcars-3.csv") hist(df\)mpg,main =“Histogram”,xlab=“bin”,ylab=“count”)