I cannot scatter plot and boxplot . Please explain to me and give me solutions ! Thanks everyone

[Cuong_Hoang]

R-code

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)

[Cuong_Hoang]

I am currently learn data science at dataquest.io . This is a guided project

[Z3tt]

Hi, this is unfortunately not a repducible example os it is hard to tell what you want to achieve and what's wrong. Please upload a prper reprex. More infos here: https://www.jessemaegan.com/post/so-you-ve-been-asked-to-make-a-reprex/