1113200005統計

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, main="統計成績 vs 數學成績", xlab="統計成績", ylab="數學成績", col="red", pch=19)

hist(Statistic, main="統計成績直方圖", xlab="統計成績", col="lightgreen", border="black")

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

categories <- c("公益活動", "科學創新", "體育競技", "知識閱讀","娛樂休閒")
counts <- c(25, 28, 36, 82,185)
barplot(counts, names.arg=categories, main="大學生最喜歡參加的社團長條圖", col="lightcoral", border="black")

pie(counts, labels=categories, main="圓餅圖", col=c("green","black", "purple", "gold", "blue"))

plot(counts, type="h", lwd=10, col="pink", main="棒棒糖圖", ylab="頻數", xlab="類別")
points(counts, pch=19, col="black")

data <- read.csv("D:/table1_1.csv")
japanese_data <- data$Japanese
mean_japanese <- mean(japanese_data)
median_japanese <- median(japanese_data)
sd_japanese <- sd(japanese_data)
var_japanese <- var(japanese_data)
q1_japanese <- quantile(japanese_data, 0.25)
cat("平均數: ", mean_japanese, "\n")

## 平均數:  67.9

## 平均數:  67.9
cat("中位數: ", median_japanese, "\n")

## 中位數:  62

## 中位數:  62
cat("標準差: ", sd_japanese, "\n")

## 標準差:  16.25115

## 標準差:  16.25115
cat("變異數: ", var_japanese, "\n")

## 變異數:  264.1

## 變異數:  264.1
cat("Q1 (25%): ", q1_japanese, "\n")

## Q1 (25%):  54.5

## Q1 (25%):  54.5