Untitled

statistics <- c(49,99,87,77,55,87,89,70,48,54)
math <- c(87,95,64,100,80,85,75,98,56,78)

colors <- c( "#C6AAB6") 
            
plot(statistics, math,
 pch = 20,
 col = colors)

category <- c("0-9", "10-19", "20-29", "30-39", "40-49",
              "50-59", "60-69", "70-79", "80-89", "90-99")
freq <- c(1, 3, 4, 5, 7, 6, 10, 3, 2, 8)
barplot(freq,
        names.arg = category,
        main = "長條圖",
        xlab = "區間",
        ylab = "次數",
        col = "YELLOW")