Untitled

# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  cat=c("娛樂","知識","體育","D","E") ,  
  fre=c(185,82,36,18,45)
  )

# Barplot
ggplot(data, aes(x=cat, y=fre)) + 
  geom_bar(stat="identity",width=0.4,fill="pink")

# plot
ggplot(data, aes(x=cat, y=fre)) +
  geom_segment( aes(x=cat, xend=cat, y=0, yend=fre)) +
  geom_point( size=5, color="red", fill=alpha("orange", 0.3), alpha=0.7, shape=21, stroke=2) 

we <- c(100,160,170,175,175,200,250,200,200,200,300,220)


hist(we,
     col= "lightyellow",
     main ="每個人的時薪",
     xlab ="時薪",
     ylab ="人數")