我无法在RMarkdown上整理表格和图形

library(knitr)
data <- data.frame(Name = c("Alice", "Bob", "Charlie"),
                   Age = c(25, 30, 35),
                   Salary = c(50000, 60000, 70000))
knitr::kable(data)

cat("<table>
      <tr>
        <th>Name</th>
        <th>Age</th>
        <th>Salary</th>
      </tr>
      <tr>
        <td>Alice</td>
        <td>25</td>
        <td>50000</td>
      </tr>
      <tr>
        <td>Bob</td>
        <td>30</td>
        <td>60000</td>
      </tr>
      <tr>
        <td>Charlie</td>
        <td>35</td>
        <td>70000</td>
      </tr>
    </table>")

library(ggplot2)
ggplot(mtcars, aes(x = mpg, y = cyl)) + 
  geom_point() + 
  labs(x = "Miles Per Gallon", y = "Cylinders") +
  theme_minimal()

library(plotly)
plot_ly(mtcars, x = ~mpg, y = ~cyl, type = "scatter", mode = "markers")

plot(mtcars$mpg, mtcars$cyl, xlab = "Miles Per Gallon", ylab = "Cylinders", main = "Scatter Plot")