之前的读书笔记发在微信公众号，现在搬家到博客，把公众号上的读书笔记也搬过来噢。
搬家结果
- 《北野武的小酒馆》——北野武（2022-05-29）
- Grokking Algorithms（2022-05-28）
- 《塔木德》（2022-04-08）
- 《遥远的救世主》——豆豆（2022-03-31）
- 《教授为什么没告诉我》——毕恒达（2022-03-15）
- 《在峡江的转弯处》——陈行甲（2022-03-14）
- 《西方现代思想讲义》——刘擎（2022-03-06）
- 《弗兰克尔自传：活出生命的意义》——弗兰克尔（2022-02-26）
- 《八次危机》——温铁军（2022-02-17）
- 《反脆弱》——塔勒布（2022-02-12）
- Introduction to Data Science（2022-02-02）
- 《为什么: 关于因果关系的新科学》——朱迪亚·珀尔等（2022-01-25）
- 《真实世界的经济学》——周其仁（2022-01-18）
- 《人的全景》——池宇峰（2022-01-16）
- 《资本主义简史》——科卡（2022-01-11）
- 《大侦探经济学》——李井奎（2021-12-27）
- 《中国的经济制度》——张五常（2021-11-28）
- 《沉默的大多数》——王小波（2021-10-12）
- 《应用计量经济学（第2版）》（2021-10-11）
- 《这才是经济学的思维方式》——托马斯·索维尔（2021-09-24）
- 《20世纪的教训 卡尔·波普尔访谈演讲录》（2021-09-18）
- 《逻辑哲学论》——维特根斯坦（2021-09-15）
- 《一只特立独行的猪》——王小波（2021-09-08）
- 《大宪章》（2021-09-07）
- 《重启改革议程—中国经济改革二十讲》——吴敬琏，马国川（2021-08-02）
- 《R的极客理想—量化投资篇》——张丹（2021-07-27）
- 《大学的逻辑》——张维迎（2021-07-21）
- 心智模式决定你的一生——舒马赫（2021-07-10）
- 《富兰克林经济论文选集》——富兰克林（2021-07-05）
- 《机关行为36“忌”》——张建（2021-06-08）
- 《素书》——黄石公（2021-05-28）
- 《六顶思考帽》——爱德华·德·波诺（2021-05-26）
- 《南怀瑾讲演录》——南怀瑾著述（2021-05-21）
- Principles——Ray Dalio（2021-05-06）
- 《插花地册子》——止庵（2021-04-13）
- 《李光耀论中国与世界》——李光耀（口述）（2021-04-05）
- 《增广贤文》（2021-04-01）
- 《企业家——经济增长的国王》——张维迎（2021-03-12）
- 《从一到无穷大》——乔治·伽莫夫（2021-02-26）
- 《数学之美》——吴军（2021-02-14）
- 《大数据时代》——Viktor Mayer-Schönberger^0Kenneth Cukier（2021-02-08）
- 《从0到1：开启商业与未来的秘密》——彼得·蒂尔&布莱克·马斯特斯（2021-02-05）
- 《大连接》——尼古拉斯•克里斯塔基斯&詹姆斯•富勒（2021-02-04）
- 《赤裸裸的统计学》——韦兰（2021-01-04）
- 《无用才读书》——梁小民（2020-12-21）
- 《未来的冲击》——阿尔文·托夫勒（2020-12-20）
- 《富爸爸穷爸爸》——清崎&莱希特（2020-12-04）
- 《学会提问》——Nell Browne & Stuart Keeley（2020-11-29）
- 《穷查理宝典：查理·芒格智慧箴言录》——彼得·考夫曼（2020-11-20）
- 《时评中国2：用静能量对抗狂热》——曹林（2020-10-24）
- 《美国陷阱》——弗雷德里克•皮耶鲁齐&马修•阿伦（2020-10-01）
- 《变量》——何帆（2020-08-20）
- 《财富自由之路》——李笑来（2020-08-12）
- 《恶俗：或现代文明的种种愚蠢》——保罗·福塞尔（2020-07-30）
- 《随机漫步的傻瓜》——纳西姆·尼古拉斯·塔勒布（2020-07-22）
- 《平均分》——康辉（2020-06-11）
- 《你的第一本哲学书》——托马斯·内格尔（2020-06-02）
- 《企业生命周期》——伊查克·爱迪思（2020-05-31）
- 《沉思录》——马可·奥勒留（2020-05-31）
- 《动物精神》——乔治·阿克洛夫&罗伯特·席勒（2020-05-27）
- 《给青年的十二封信》——朱光潜（2020-05-14）
- 《论人类不平等的起源和基础》——卢梭（2020-05-11）
- 《为什么是欧洲》——杰克·戈德斯通（2020-05-10）
- 《后真相时代》——赫克托·麦克唐纳（2020-05-09）
- 《尘曲》——七堇年（2020-05-07）
- 《少有人走的路》——斯科特·派克（2020-05-06）
- 《货币生产的伦理》——约尔格·吉多·许尔斯曼（2020-04-30）
- 《黄金时代》——王小波（2020-04-29）
- 《中国历史的教训》——习骅（2020-04-28）
- 《上帝掷骰子吗》——曹天元（2020-04-27）
- 《妙趣横生博弈论》——阿维纳什&巴里（2020-04-26）
- 《图解博弈论》——鸿雁（2020-04-26）
- 《教父》——马里奥·普佐（2020-04-25）
- 《白说》——白岩松（2020-04-24）
- 《皮囊》——蔡崇达（2020-04-22）
- 《楚留香新传》——古龙（2020-04-21）
- 《陆小凤传奇》——古龙（2020-04-21）
- 《小李飞刀》——古龙（2020-04-21）
- 《欢乐英雄》——古龙（2020-04-21）
- 《三少爷的剑》——古龙（2020-04-21）
- 《人间失格》——太宰治（2020-04-20）
- 《局外人》——加缪（2020-04-20）
- 《人口原理》——马尔萨斯（2020-04-19）
搬家代码
library(tidyverse)
library(rvest)
library(lubridate)
# 读取公众号「臭臭札记」标签页面
data <- read_html("#臭臭札记.html")
# 提取标题
titles <- data %>%
html_nodes(".album__item-title-wrp") %>%
html_text() %>%
as_tibble() %>%
distinct(value)
# 提取日期
dates <- data %>%
html_nodes(".album__item-info-item") %>%
html_text() %>%
as_tibble()
# 提取链接
urls <- data %>%
html_nodes("li") %>%
html_attr("data-link") %>%
as_tibble() %>%
drop_na()
# 合并、清洗
result <- tibble(title = titles$value,
date = dates$value,
url = urls$value) %>%
mutate(date = if_else(
str_count(date) < 10,
str_c("2022/", date),
date
) %>% as_date()) %>%
arrange(desc(date))
# 输出 md 格式结果，使用行内代码
# paste0("- [", result$title, "](", result$url, ")", "（", result$date, "）", collapse = "\n")