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,
     main = "統計成績與數學成績之散佈圖",
     xlab = "統計成績",
     ylab = "數學成績",
     pch = 16,           
     col = "darkgreen",  
     cex = 1.5)         
grid()

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

# 畫出數學成績直方圖
hist(Math,
     main = "數學成績直方圖",
     xlab = "數學成績",
     ylab = "人數",
     col = "lightblue",
     border = "black")

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

# 繪製長條圖
barplot(frequency,
        names.arg = club_type,
        main = ,
        xlab = ,
        ylab = ,
        col = "skyblue",
        border = "darkblue")

# 建立資料
club_type <- c("娛樂休閒", "知識閱讀", "體育競技", "科學創新", "公益活動")
frequency <- c(185, 82, 36, 28, 25)

# 加上標籤
labels <- paste(club_type, "(", frequency, ")", sep="")

# 繪製圓餅圖
pie(frequency,
    labels = labels,
    main = "大學生最喜歡參加的社團類型（圓餅圖）",
    col = rainbow(length(frequency)))

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

# 棒棒糖圖
plot(frequency,
     type = "n",  # 不先畫點
     xaxt = "n",  # 不畫 x 軸
     main = "大學生最喜歡參加的社團類型",
     xlab = "社團類型",
     ylab = "次數",
     ylim = c(0, max(frequency) + 20))

# 畫棒棒糖的線（棒子）
segments(x0 = 1:5, y0 = 0, x1 = 1:5, y1 = frequency, col = "skyblue", lwd = 2)

# 畫棒棒糖的頭（糖果球）
points(1:5, frequency, pch = 16, col = "blue", cex = 2)

# 加上 X 軸標籤
axis(1, at = 1:5, labels = club_type)

data <- read.csv("C:/Users/wenzao/Downloads/table1_1.csv")


if ("Japanese" %in% colnames(data)) {

  stem(data$Japanese)
} else {
  print("找不到 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("C:/Users/wenzao/Downloads/table1_1.csv")




names(data)  # 確保有 "Japanese" 欄位

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

Untitled

2025-04-16