0411

# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  name=c("woozi","jun","the8","DK","dino") ,  
  score=c(85,97,88,75,60)
  )

# Barplot
ggplot(data, aes(x=name, y=score)) + 
  geom_bar(stat = "identity", width=0.2) +
geom_bar(stat="identity", width=0.2, fill=rainbow(5))

# Create Data
Prop <- c(3,7,9,1,2)
 
# Make the default Pie Plot
pie(Prop)

# plot
ggplot(data, aes(x=name, y=score)) +
  geom_segment( aes(x=name, xend=name, y=0, yend=score)) +
  geom_point( size=5, color="blue", fill=alpha("purple", 0.3), alpha=0.7, shape=21, stroke=2) 

we <- c(85,88,45,63,78)
hist(we,
     col= "lightyellow",
     main ="班上的體重與身高",
     xlab ="體重",
     ylab ="次數")