Forest fire project problem in Rstudio. About data visualization

There are my code. I don’t know reason why i cannot scatter plot or boxplot data . The graph don’t show anymore , special in scatter plot and boxplot when i run code . Thanks for your solution !
->
library(readr)
library(dplyr)
library(purrr)
library(ggplot2)

forest_fires <- read_csv(“forestfires.csv”)
View(forest_fires)

#3.Create a bar chart showing the number of forest fires occuring during each month
fires_by_month <- forest_fires >
group_by(month) >
summarize(total_fires = n())

ggplot(data = fires_by_month,
aes(x = month, y= total_fires)) +
geom_bar(stat = “identity”) +
theme(panel.background = element_rect(fill = “white”),
axis.line = element_line(size = 0.25, colour = “black”))

#create a bar chart showing the number of forest fires occuring during each days

fire_by_DOW <- forest_fires >
group_by(day) >
summarize(total_fires = n())

ggplot(data = fire_by_DOW,
aes(x = day, y= total_fires))+
geom_bar(stat = “identity”) +
theme(panel.background = element_rect(fill = “white”),
axis.line = element_line(size = 0.25, colour = “black”))

#4.Change the data type of month to factor and specify the order of months
forest_fires <- forest_fires >
mutate(month = factor(month, levels = c(“jan”,“feb”,“mar”,“apr”,“may”,“jun”,“july”,“aug”,“sep”,“oct”,“nov”,“dec”)),
day = factor(day, levels = c(“sun”, “mon”, “tue”, “wed”, “thu”, “fri”, “sat”)))

#5.Write the function
create_boxplots <- function(x, y) {
ggplot(data = forest_fires) +
aes_string(x = x, y = y) +
geom_boxplot() +
theme(panel.background = element_rect(fill = “white”))
}

Assign x and y variable names

x_var_month <- names(forest_fires)[3] ## month
x_var_day <- names(forest_fires)[4] ## day
y_var <- names(forest_fires)[5:12]

use the map() function to apply the function to the variables of interest

month_box <- map2(x_var_month, y_var, create_boxplots) ## visualize variables by month
day_box <- map2(x_var_day, y_var, create_boxplots) ## visualize variables by day

write the function

create_scatterplots = function(x, y) {
ggplot(data = forest_fires) +
aes_string(x = x, y = y) +
geom_point() +
theme(panel.background = element_rect(fill = “white”))
}

Assign x and y variable names

x_var_scatter <- names(forest_fires)[5:12]
y_var_scatter <- names(forest_fires)[13]

use the map() function to apply the function to the variables of interest

scatters <- map2(x_var_scatter, y_var_scatter, create_scatterplots)