Untitled

we <- c(68,85,74,88,63,78,90,80,58,63)

we2 <- c(85,91,74,100,82,84,78,100,51,70)

mean(we)      #平均數

## [1] 74.7

## [1] 74.7
plot(we,we2,
     pch = 17,
     col= "skyblue",
     main ="數學成績和統計成績",
     xlab ="Statistic",
     ylab ="Math")

hist(we,
     col= "lightyellow",
     main ="數學成績和統計成績",
     xlab ="Statistic",
     ylab ="Math")

# Load ggplot2 
library(ggplot2)

# Create
data <- data.frame(      name=c("休閒娛樂","知識閱讀","體育競技","科學創新","公益活動") , value=c(185,82,36,28,25) 
 ) 


  # Library
# Barplot 
ggplot(data, aes(x=name, y=value))+
 geom_bar(stat = "identity", width=0.2) 

data2<- c(185,82,36,28,25) 
labels <- c("休閒娛樂","知識閱讀","體育競技","科學創新","公益活動") 

pie(data2,labels,main ="大學生最喜歡參加的社團的次數分配表", col=heat.colors(length(data2)))

# Create data

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