期中考

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=17,
     col="skyblue",
     xlab="統計成績",
     ylab="數學成績",
     main="班級的統計成績與數學成績")

hist(Statistic,
     pch=17,
     col="skyblue",
     xlab="統計成績",
     ylab="人數",
     main="班級的統計成績與人數")

# Load ggplot2
library(ggplot2)
# Load ggplot2
library(ggplot2)

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

# Barplot
ggplot(data, aes(x=社團類型, y=次數)) + 
  geom_bar(stat = "identity", width=0.2,  fill="skyblue") 

data<- c(185,82,36,28,25)
labels <- c("娛樂休閒","知識閱讀","體育競技","科學創新","公益活動")

pie(data,labels,main ="社團比例", col=heat.colors(length(data)))

# Libraries
library(ggplot2)

# Create data
data <- data.frame(
  x=c("娛樂休閒","知識閱讀","體育競技","科學創新","公益活動"),
  y=c(185,82,36,28,25)
)

# Plot
ggplot(data, aes(x=x, y=y)) +
  geom_segment( aes(x=x, xend=x, y=0, yend=y), color="grey") +
  geom_point( color="skyblue", size=4) +
  theme_light() +
  theme(
    panel.grid.major.x = element_blank(),
    panel.border = element_blank(),
    axis.ticks.x = element_blank()
  ) +
  xlab("") +
  ylab("人數")

data <- read.csv("table1_1.csv")
names(data)

## [1] "Name"       "Statistic"  "Math"       "Japanese"   "Management"
## [6] "Accounting"

stem(data$Japanese)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   4 | 9
##   5 | 139
##   6 | 13
##   7 | 9
##   8 | 49
##   9 | 1

data <- read.csv("table1_1.csv")
names(data)

## [1] "Name"       "Statistic"  "Math"       "Japanese"   "Management"
## [6] "Accounting"

japanese <- data$Japanese
mean_val <- mean(japanese)
median_val <- median(japanese)
get_mode <- function(x) {
  uniqx <- unique(x)
  uniqx[which.max(tabulate(match(x, uniqx)))]
}
mode_val <- get_mode(japanese)
sd_val <- sd(japanese)
var_val <- var(japanese)
q1_val <- quantile(japanese, 0.25)
q3_val <- quantile(japanese, 0.75)
cat("1. 平均數 (Mean):", mean_val, "\n")

## 1. 平均數 (Mean): 67.9

cat("2. 中位數 (Median):", median_val, "\n")

## 2. 中位數 (Median): 62

cat("3. 眾數 (Mode):", mode_val, "\n")

## 3. 眾數 (Mode): 84

cat("4. 標準差 (Standard Deviation):", sd_val, "\n")

## 4. 標準差 (Standard Deviation): 16.25115

cat("5. 變異數 (Variance):", var_val, "\n")

## 5. 變異數 (Variance): 264.1

cat("6. 第一四分位數 (Q1):", q1_val, "\n")

## 6. 第一四分位數 (Q1): 54.5

cat("7. 第三四分位數 (Q3):", q3_val, "\n")

## 7. 第三四分位數 (Q3): 82.75