Untitled

weight <- c(42,50,65,52,46,56)

high <- c(157,166,168,170,155,172)

plot(weight,high)

median(weight) 

## [1] 51

# create dummy data
data <- data.frame(
  name=letters[1:5],
  value=sample(seq(4,15),5)
)

# Uniform color
barplot(height=data$value, names=data$name, 
        col="#4DD7E3",
        horiz=T, las=1
        )

hist(high,
     col= "skyblue",
     main ="班上的身高",
     xlab ="身高",
     ylab ="人數")

data<- c(50,23,35,48)
labels <- c("英文系","法文系","德文","翻譯")

pie(data,labels,main ="學生的比例", col=heat.colors(length(data)))