Untitled

# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  cat=c("娛樂","知識","體育","科學","公益") ,  
  fre=c(185,82,36,28,25)
  )

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

# 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(150,160,170,175,175,180,190,220,220,235,245,250,260)
hist(we,
     col= "lightyellow",
     main ="每個人的時薪",
     xlab ="時薪",
     ylab ="人數")

stem(we)

## 
##   The decimal point is 2 digit(s) to the right of the |
## 
##   1 | 5678889
##   2 | 224
##   2 | 556