Replies: 2 comments
-
文章中介紹的實作方法簡潔明瞭,還有註解方便讀者理解程式碼的功能,但如果可以把程式碼、圖片和標題稍微排版一下會更好,呈現的結果會更清楚,也可以提高閱讀流暢度。 |
Beta Was this translation helpful? Give feedback.
0 replies
-
感覺版主可以參閱一下先前的文章,裡面有介紹markdown語法,或是直接google也會有基礎的教學 |
Beta Was this translation helpful? Give feedback.
0 replies
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
-
用R作圖
![image](https://private-user-images.githubusercontent.com/80608422/243114290-1969ab76-01b9-4da3-ae91-14254172887c.png?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3MjA4OTU5OTgsIm5iZiI6MTcyMDg5NTY5OCwicGF0aCI6Ii84MDYwODQyMi8yNDMxMTQyOTAtMTk2OWFiNzYtMDFiOS00ZGEzLWFlOTEtMTQyNTQxNzI4ODdjLnBuZz9YLUFtei1BbGdvcml0aG09QVdTNC1ITUFDLVNIQTI1NiZYLUFtei1DcmVkZW50aWFsPUFLSUFWQ09EWUxTQTUzUFFLNFpBJTJGMjAyNDA3MTMlMkZ1cy1lYXN0LTElMkZzMyUyRmF3czRfcmVxdWVzdCZYLUFtei1EYXRlPTIwMjQwNzEzVDE4MzQ1OFomWC1BbXotRXhwaXJlcz0zMDAmWC1BbXotU2lnbmF0dXJlPWFkYzk4ZTg4MWYyN2E5NDY0ZWYyZDc4YjZiY2EzMGRhM2MzMWQ0OGY4MWNlOGU4MDJkZmVjOWNlOWEyNDI0MmMmWC1BbXotU2lnbmVkSGVhZGVycz1ob3N0JmFjdG9yX2lkPTAma2V5X2lkPTAmcmVwb19pZD0wIn0.TEu6OSqUPPR0miJ8HyaCV819YCjxP9mLF1__vrA0o5c)
ggplot(size_freq) +
geom_bar(aes(x = size, y = freq, fill = size), stat = "identity") #geom_bar ……表示要作長條圖
另一種形式
![image](https://private-user-images.githubusercontent.com/80608422/243114305-9af4cc54-611b-4115-8419-4063c846fe8e.png?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3MjA4OTU5OTgsIm5iZiI6MTcyMDg5NTY5OCwicGF0aCI6Ii84MDYwODQyMi8yNDMxMTQzMDUtOWFmNGNjNTQtNjExYi00MTE1LTg0MTktNDA2M2M4NDZmZThlLnBuZz9YLUFtei1BbGdvcml0aG09QVdTNC1ITUFDLVNIQTI1NiZYLUFtei1DcmVkZW50aWFsPUFLSUFWQ09EWUxTQTUzUFFLNFpBJTJGMjAyNDA3MTMlMkZ1cy1lYXN0LTElMkZzMyUyRmF3czRfcmVxdWVzdCZYLUFtei1EYXRlPTIwMjQwNzEzVDE4MzQ1OFomWC1BbXotRXhwaXJlcz0zMDAmWC1BbXotU2lnbmF0dXJlPTU3N2E0NmU4NmVjZTIzMjM0NzNiNDkwOGE1ZGQzNGRlNmM1NGY5YmE0ZDQ3Y2I3NDNjMzVmMjBkZGE3NDY1MDUmWC1BbXotU2lnbmVkSGVhZGVycz1ob3N0JmFjdG9yX2lkPTAma2V5X2lkPTAmcmVwb19pZD0wIn0.B-anO6n4MAySGUMPMb5oArxJC5_gaLhgCGOTHj4CPR0)
ggplot(size_freq) +
geom_bar(aes(x = size, y = freq, fill = size), stat = "identity") +
scale_x_discrete(limits = levels(with(size_freq, fct_reorder(size, freq, .desc = T)))) +
scale_fill_discrete(breaks = levels(with(size_freq, fct_reorder(size, freq, .desc = T))))
甚麼季節銷售量最好
total_year <- data %>% #計算各商品的全年銷售量
pull(item) %>%
plyr::count() %>%
rename(item = x, total = freq) %>%
mutate(item = as.character(item))
total_month <- data %>% #計算各商品的每月銷售量
mutate(month = lubridate::month(Date, label = TRUE)) %>%
dplyr::count(month, item)
item_month_pct <- full_join(total_month, total_year, by =
“item”) %>%
mutate(pct = n / total) %>%
arrange(desc(total)) #計算各商品的每月銷售量占全年銷量比重
#選擇銷售最好的前幾項產品的產品名
![image](https://private-user-images.githubusercontent.com/80608422/243114333-3e1ac055-c99d-441d-92af-2e9d5e62543a.png?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3MjA4OTU5OTgsIm5iZiI6MTcyMDg5NTY5OCwicGF0aCI6Ii84MDYwODQyMi8yNDMxMTQzMzMtM2UxYWMwNTUtYzk5ZC00NDFkLTkyYWYtMmU5ZDVlNjI1NDNhLnBuZz9YLUFtei1BbGdvcml0aG09QVdTNC1ITUFDLVNIQTI1NiZYLUFtei1DcmVkZW50aWFsPUFLSUFWQ09EWUxTQTUzUFFLNFpBJTJGMjAyNDA3MTMlMkZ1cy1lYXN0LTElMkZzMyUyRmF3czRfcmVxdWVzdCZYLUFtei1EYXRlPTIwMjQwNzEzVDE4MzQ1OFomWC1BbXotRXhwaXJlcz0zMDAmWC1BbXotU2lnbmF0dXJlPWU0N2JhODAzZWFhODU1MmJmNjAzMGI2MjNjMTNiOGJlZTAzMzIxOGVhMzJmOWIwMTVjNWVlY2NhMDg5NjUzMmEmWC1BbXotU2lnbmVkSGVhZGVycz1ob3N0JmFjdG9yX2lkPTAma2V5X2lkPTAmcmVwb19pZD0wIn0.uVhYdvWfzS0B-g3-NSdNze-T23XQRUo6xw6ycHHEMBs)
#attr:取出特定屬性(attributes)
most_freq_items <- attr(summary(groceries)@itemSummary, "names")
甚麼季節銷售量最好-折線圖趨勢分析
![image](https://private-user-images.githubusercontent.com/80608422/243114372-25c15419-9aec-44f3-9217-0a83d1597acb.png?jwt=eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJnaXRodWIuY29tIiwiYXVkIjoicmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbSIsImtleSI6ImtleTUiLCJleHAiOjE3MjA4OTU5OTgsIm5iZiI6MTcyMDg5NTY5OCwicGF0aCI6Ii84MDYwODQyMi8yNDMxMTQzNzItMjVjMTU0MTktOWFlYy00NGYzLTkyMTctMGE4M2QxNTk3YWNiLnBuZz9YLUFtei1BbGdvcml0aG09QVdTNC1ITUFDLVNIQTI1NiZYLUFtei1DcmVkZW50aWFsPUFLSUFWQ09EWUxTQTUzUFFLNFpBJTJGMjAyNDA3MTMlMkZ1cy1lYXN0LTElMkZzMyUyRmF3czRfcmVxdWVzdCZYLUFtei1EYXRlPTIwMjQwNzEzVDE4MzQ1OFomWC1BbXotRXhwaXJlcz0zMDAmWC1BbXotU2lnbmF0dXJlPWNhOGM1NTkxYWM5MGViYmRhZTVhZTY3Mzc0NWVjYjcyYTBiMzgyN2RiMzZjNmRmNTk3MDI5MDI2OTNkM2VhNDAmWC1BbXotU2lnbmVkSGVhZGVycz1ob3N0JmFjdG9yX2lkPTAma2V5X2lkPTAmcmVwb19pZD0wIn0.X6fag75gjM2BMAOwEAhw3ige_9HR5cJGbqN6RN9awKY)
item_month_pct %>%
filter(item %in% most_freq_items[1:2]) %>% #選擇銷售最好的2項產品
ggplot() + #%in% : 符合特定條件 #繪圖
geom_line(aes(x = month, y = pct, group = item, color = item),
size = 1.5) #折線圖,以month、pct為X、Y軸,不同商品以不同顏色呈現#size=線寬度
Beta Was this translation helpful? Give feedback.
All reactions