R data <- read.csv("data.csv") R R R library(tidyr) R mean_x <- mean(data$x) mean_y <- mean(data$y) R library(ggplot2) ggplot(data_long, aes(x = variable, y = value)) + geom_bar(stat = "identity", fill = "blue") +