研究問題與動機描述
查看六都之間的各類所得金額合計與各類所得金額機會中獎所得之關係圖，其中新北與台中之所得非常相近，機會中獎所得卻有著顯著差距，因此我們想找出其原因
資料讀取
#讀取資料
load("C:/Users/CCCM_3051/Desktop/R textbook/Template/camp.Rdata")資料處理
#整理資料
df %>% group_by(縣市名稱) %>% filter(縣市名稱 %in% c("臺北市","新北市","桃園市","臺中市","臺南市","高雄市"))%>%
summarize(各類所得金額合計=mean(各類所得金額合計),各類所得金額機會中獎所得=mean(各類所得金額機會中獎所得)) ->df1
ggplotly(ggplot(df1,aes(各類所得金額合計,各類所得金額機會中獎所得,colour=縣市名稱))+geom_point(size=5))台中與新北的所得相近，機會中獎所得卻有明顯差異
df %>% group_by(year,縣市名稱,老年人戶數) %>%
filter(老年人戶數,縣市名稱 %in% c('新北市','臺中市')) %>%
summarize(老年人戶數=n()) %>%
ggplot(aes(縣市名稱,fill=縣市名稱)) +
geom_bar()+theme(axis.text.x = element_text(angle = 0))
老年人戶數量長條圖
df %>% group_by(year,縣市名稱) %>%filter(縣市名稱 %in% c("新北市","臺中市"))%>%
summarize_if(is.numeric,mean) %>%
ggplot(aes(year,各類所得金額退職所得,color=縣市名稱))+geom_line() ->df1
ggplotly(df1)各類所得金額退職所得
結論 :
由資料庫提供的數據可發現: 1.大部分地區所得越高，機會中獎所得也隨之提升 2.從整理資料來看，一地區之機會中獎所得高低與該地之老年人戶數有密切關係。