轱辘科技

仅用到data.table和ggplot2两个依赖包：library(data.table)library(ggplot2)date0 = seq.Date(from=as.Date('2020-01-01'), to=as.Date('2020-12-31'), by='1 day')date = as.POSIXlt(date0)month = date$mon +1weekdays = date$wdaymday = date$mdaydatx =

下面的R代码是美国历年大选 支持率热力地图，具体代码实现如下：library(maps)library(animation)library(viridis)library(data.table)setwd('E:/some_code/Rbasic/election_dy_plot')election = fread('./elections.csv')presidenten = fread('president.csv')election[,`:=`(sharedem = dem/(re

这一阵公司的事情越来越忙，感觉光是应付工作就要耗费很大的精力，工作之外的越来越没有时间做了。再加上最近一直在搞落户的事情，耗费了很多精力，大概工作之后的状态都是这样吧。12月份因为报表的事情连续加了半个月的班，本来想结束之后好好总结下的，但是后面实在太懒就鸽掉了。况且感觉都是些比较个人的经验也没啥好总结的。前两天把一年前在Kaggle上写的一份代码拿出来改成了data.table版本，而且解决了之前的一个小bug。基本的思路是对歌词进行一系列的分词、词干提取等操作。然后将每个说唱歌手视为一篇文档，求出每个