this is the sample > task3_data % + filter(am == 4) > task3_plot print(task2_plot) Based on that, please help me to answer this question Task

this is the sample "> task3_data <- data_cars %>% + filter(am == 4) > task3_plot <- ggplot(task3_data, aes(x = factor(vs))) + # Convert vs to a factor for categorical display + geom_bar(fill = "steelblue") + # Add bars with a color + labs(x = "Engine Type (0 = V-shaped, 1 = Straight)", + y = "Count", + title = "Bar Chart of Engine Types for Automatic Transmission Cars") + # Labels + theme_minimal() # Use a minimal theme for better aesthetics > print(task2_plot)" Based on that, please help me to answer this question "Task 3: Filtering and Visualizing a Continuous Variable (3 points) We will examine the distribution of hp (gross horsepower) for a specific subgroup. Filter the full data_cars dataset to include only cars with 4-barrel carburetors (carb == 4). Create an appropriate graph for the continuous variable hp (horsepower) for this selected sample. A histogram is the standard choice. Use ggplot2 and the geom_histogram type