Untitled

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

# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  cat=c("A","B","C","D","E") ,  
  fre=c(3,12,5,18,45)
  )

# 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,200,180,220,300,140,210,111,200,128,130,210,200,100)
hist(we,
     col= "lightyellow",
     main ="每人時薪",
     xlab ="時薪",
     ylab ="人數")

stem(we)

## 
##   The decimal point is 2 digit(s) to the right of the |
## 
##   1 | 01334
##   1 | 58
##   2 | 000112
##   2 | 
##   3 | 0