This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
team_points <- df %>%
group_by(constructor_id) %>%
summarise(total_points = sum(points, na.rm = TRUE)) %>%
arrange(desc(total_points))
p1 <- ggplot(team_points, aes(x = reorder(constructor_id, total_points), y = total_points, fill = constructor_id)) +
geom_col(show.legend = FALSE) +
coord_flip() +
labs(title = "คะแนนรวมของแต่ละทีมตลอด 17 สนาม",
x = "ทีม (Constructor)",
y = "คะแนนรวม (Points)") +
theme_minimal() +
geom_text(aes(label = total_points), hjust = -0.1, size = 3.5)
ggplotly(p1)
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.