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.2,  fill="green",col="red") 

# 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(200,170,150,150,220,300,200,300.150,230,260,300,250,230,310)

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