如何分析會(huì)員注冊(cè)信息

相似文件 換一批

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個(gè)全額獎(jiǎng)學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個(gè)論壇幣！

+2 論壇幣

我有個(gè)數(shù)據(jù)如上，現(xiàn)在想加一列數(shù)據(jù)，按日期累加的：
比如：school里面如果是dongbei，那么從最小的日期開始，累加num，最后形成如下的圖形

應(yīng)該怎么寫呢？

掃碼加我 拉你入群

請(qǐng)注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏0 回帖

關(guān)鍵詞：注冊(cè)信息 分析會(huì) school CHOO dong

1. library(tidyverse)
   
2. library(lubridate)
   
3. dat <- read.csv("data.csv", header = TRUE, stringsAsFactors = FALSE)
   
4. dat %>%
   
5.   tbl_df() %>%
   
6.   mutate(time = as_date(time),
   
7.          school = factor(x = school,
   
8.                          levels = c("anshan", "dongbei", "jianzhu", "ligong", "zhiye"),
   
9.                          labels = c("鞍山師范學(xué)院", "東北大學(xué)南湖校區(qū)", "沈陽建筑大學(xué)", "沈陽理工大學(xué)", "沈陽職業(yè)技術(shù)學(xué)院"))) %>%
   
10.   group_by(school) %>%
    
11.   arrange(time, .by_group = TRUE) %>%
    
12.   mutate(cumnum = cumsum(num)) %>%
    
13.   ungroup() %>%
    
14.   ggplot(aes(x = time, y = cumnum)) +
    
15.   geom_point(color = "red", size = 2) +
    
16.   geom_smooth(method = "loess") +
    
17.   facet_wrap(~ school, nrow = 3) +
    
18.   labs(x = "時(shí)間", y = "人數(shù)", title = "會(huì)員注冊(cè)人數(shù)")

復(fù)制代碼

cheetahfly 發(fā)表于 2017-11-17 08:10

十分感謝，太贊了