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)

plot(Statistic, Math,
     pch = 19,
     col = "#1AFD9C")

hist(Math,
     main = "數學成績直方圖",
     xlab = "數學成績",
     col = "pink",
     border = "black")

category <- c("0-9", "10-19", "20-29", "30-39", "40-49",
              "50-59", "60-69", "70-79", "80-89", "90-99")
freq <- c(0, 0, 2, 3, 3, 4, 8, 10, 8, 2)

barplot(freq,
        names.arg = category,
        main = "次數分配表長條圖",
        xlab = "區間",
        ylab = "次數",
        col = "orange")

pie(freq,
    labels = category,
    main = "次數分配表圓餅圖")