井戸端のページ数推移をRで計算する

meganii.icon

こんな感じで取得できるはず

もっとこうすればというのがあれば、おしえてください！R初学者です

code:r

library(tidyverse)

library(jsonlite)

library(lubridate)

as_datetime(1500000000, tz = "Asia/Tokyo")

# Get Stats

df <-

fromJSON(

) %>%

as_tibble %>%

tibble::rownames_to_column() %>%

unnest_wider(pages)

# Convert unix time to date

df$created <- as.Date(as_datetime(df$created))

df$updated <- as.Date(as_datetime(df$updated))

# Calc diff

page_unit <- 1000

df2 <- df %>%

filter(as.integer(rowname) %% page_unit == 0) %>%

mutate(

prev_val = dplyr::if_else(is.na(lag(created)), as.Date('2020-01-19'), lag(created)),

days = as.numeric(ymd(created) - ymd(prev_val)),

Δpages_days = round(page_unit / days, 1)

) %>%

select(1, 5, 6, 9:10)

df2

table:stats

rowname title created days Δpages_days

1000 丸善丸の内本店 2020-11-30 316 3.2

2000 おすすめYouTubeチャンネル 2021-01-28 59 16.9

3000 充電式電池を長持ちさせる方法 2021-04-09 71 14.1

4000 検索結果のソート順 2021-05-07 28 35.7

5000 スマホ人間 2021-08-18 103 9.7

6000 T[] extends never[] 2022-01-08 143 7

7000 豆しば 2022-03-12 63 15.9

8000 津波 2022-04-29 48 20.8

9000 日本赤軍 2022-06-02 34 29.4

10000 アナログっぽい ≠ アナログ 2022-08-02 61 16.4

11000 今開いているページを非表示にするUserScript 2022-10-25 84 11.9

12000 ウィリアム・モリス 2022-11-25 31 32.3