if (FALSE) {
df <- data.frame(
Subject = c("English", "Math"),
Score = c(59, 98), Motion = c("sad", "happy")
)
ggp <- ggplot(df, mapping = aes(x = Subject, y = Score, label = Motion)) +
geom_text() +
geom_point() +
labs(x = "Subject", y = "Score", title = "Final Examination")
ggplot_translator(ggp, which = "all")
}
Run the code above in your browser using DataLab