中獎金額分析

載入套件

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
load("C:/Users/CCCM_3051/Desktop/R textbook/data/camp.Rdata")

df%>% filter(year==106)%>%
  group_by(鄉鎮市區名稱)%>%
  summarise(平均薪資=mean(各類所得金額薪資所得),平均中獎=mean(各類所得金額機會中獎所得))%>%
  ggplot(aes(平均薪資,平均中獎,colour=鄉鎮市區名稱))+geom_point(show.legend = F)

df2=df[which(df$year==106),]%>%
  group_by(鄉鎮市區名稱)%>%
  summarise(平均薪資=mean(各類所得金額薪資所得),平均中獎=mean(各類所得金額機會中獎所得))

cor(df2$平均薪資,df2$平均中獎)

## [1] 0.9845754

df[which(df$year==106),]%>%
  group_by(鄉鎮市區名稱)%>%
  summarise(平均薪資=mean(各類所得金額薪資所得),平均中獎=mean(各類所得金額機會中獎所得))%>%
  ggplot(aes(平均薪資,平均中獎,colour=鄉鎮市區名稱))+geom_point()

dfsmax=df2%>%arrange(平均薪資)%>%head(10)
dfsmin=df2%>%arrange(desc(平均薪資))%>%head(10)
dflmax=df2%>%arrange(平均中獎)%>%head(10)
dflmin=df2%>%arrange(desc(平均中獎))%>%head(10)
dfcom=dfsmax%>%rbind(dfsmin)%>%rbind(dflmax)%>%rbind(dflmin)





  dfcom%>%
  ggplot(aes(平均薪資,平均中獎,colour=鄉鎮市區名稱))+geom_point(show.legend = T)