Untitled

Statistic <- c(68,85,74,88,63,78,90,80,58,63)
Math <- c(85,91,74,100,82,84,78,100,51,70)

colors <- c("yellow",
            "gray")

plot(Statistic, Math,
     pch = 20,
     col = colors,
     main="統計跟數學成績"
     )

 library(ggplot2)

ggplot(data = iris, aes(x = Sepal.Length)) +
  geom_histogram(binwidth = 0.5, fill = "skyblue", color = "black") +
  labs(title = "數學成績直方圖",
       x = "數學成績",
       y = "人數")

library(ggplot2)

data <- data.frame(
  社團類型 = c("娛樂休閒", "知識開讀", "體育競技", "科學創新", "公益活動"),
  次數 = c(180, 82, 36, 30, 25)
)

my_colors <- c("gray", "purple", "green", "pink", "black")

ggplot(data, aes(x = 社團類型, y = 次數, fill = 社團類型)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = my_colors) + 
  theme_minimal(base_size = 15) +
  labs(title = "大學生最喜歡參加的社團次數",
       x = "社團類型",
       y = "次數") +
  theme(legend.position = "none")