Untitled

# Create data for the graph.
x <- c(51, 30, 19)
labels <- c("70", "80", "90")



# Plot the chart with title and rainbow color pallet.
pie(x, labels, main = "出生年齡段 - 餅狀圖", col = rainbow(length(x)))

we <- c(55,60,70,75,75)

we2 <- c(155,160,170,175,175)

plot(we,we2,
     pch = 17,
     col= "skyblue",
     main ="班上的體重與身高",
     xlab ="體重",
     ylab ="身高")