Help $.$ With my RStudio project it is saying it cant take my excel as an csv file because it is a xls or xslx my code is below.

# Read the data

housing$\_$data $<-$ read.csv$("$Housing$.$csv$",$ stringsAsFactors $=$ TRUE$)$

# Print the first $10$ observations

head$($housing$\_$data, $10)$

# Select specific columns

housing$\_$data $<-$ housing$\_$data$[,$ c$("$price$",$ "area", "bedrooms", "stories", "basement", "furnishingstatus"$)]$

# Print the first $10$ observations to verify

head$($housing$\_$data, $10)$

# Check variable types

str$($housing$\_$data$)$

# Summary statistics

summary$($housing$\_$data$)$

# Load ggplot$2$ for plotting

library$($ggplot$2)$

# Create bar charts for factor variables

factor$\_$vars $<-$ sapply$($housing$\_$data, is$.$factor$)$

for $($var in names$($factor$\_$vars$)[$factor$\_$vars$])\{$

ggplot$($housing$\_$data, aes$\_$string$($x $=$ var$))+$

geom$\_$bar$()+$

ggtitle$($paste$("$Bar Chart of$",$ var$))+$

xlab$($var$)+$

ylab$("$Count$")+$

theme$\_$minimal$()$

$\}$

# Histograms

ggplot$($housing$\_$data, aes$($x $=$ price$))+$

geom$\_$histogram$($binwidth $=50000,$ fill $=$ "blue", color $=$ "black"$)+$

ggtitle$("$Histogram of Price"$)+$

xlab$("$Price$")+$

ylab$("$Frequency$")+$

theme$\_$minimal$()$

ggplot$($housing$\_$data, aes$($x $=$ area$))+$

geom$\_$histogram$($binwidth $=50,$ fill $=$ "green", color $=$ "black"$)+$

ggtitle$("$Histogram of Area"$)+$

xlab$("$Area$")+$

ylab$("$Frequency$")+$

theme$\_$minimal$()\_\_\_$

# Scatter plot

ggplot$($housing$\_$data, aes$($x $=$ area, y $=$ price$))+$

geom$\_$point$()+$

ggtitle$("$Scatter Plot of Price vs$.$ Area"$)+$

xlab$("$Area$")+$

ylab$("$Price$")+$

theme$\_$minimal$()$

# Subset data for homes with basement

housing$\_$basement $<-$ subset$($housing$\_$data, basement $==$ "yes"$)$

# Print the first few lines

head$($housing$\_$basement$)$

# Pie chart

ggplot$($housing$\_$basement, aes$($x $="",$ fill $=$ furnishingstatus$))+$

geom$\_$bar$($width $=1)+$

coord$\_$polar$($theta $="$y$")+$

ggtitle$("$Pie Chart of Furnishing Status $($Homes with Basement$)")+$

theme$\_$minimal$()$