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) 

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

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,200,300,250,240,210,100,130,150)
hist(we,
     col= "lightyellow",
     main ="每個人的時薪",
     xlab ="時薪",
     ylab ="人數")

stem(we)

## 
##   The decimal point is 2 digit(s) to the right of the |
## 
##   1 | 03
##   1 | 556788
##   2 | 014
##   2 | 5
##   3 | 0