The count of contributions (summary of Pull Requests, opened issues and commits) to public repos at GitHub.com from Wed, 21 Sep 2022 till Thu, 21 Sep 2023.
Only first 1000 GitHub users according to the count of followers are taken. This is because of limitations of GitHub search. Sorting algo in pseudocode:
githubUsers
.filter(user => user.followers > 1000)| library(dplyr) | |
| library(tidyr) | |
| library(magrittr) | |
| library(ggplot2) | |
| "http://academic.udayton.edu/kissock/http/Weather/gsod95-current/NYNEWYOR.txt" %>% | |
| read.table() %>% data.frame %>% tbl_df -> data | |
| names(data) <- c("month", "day", "year", "temp") | |
| data %>% | |
| group_by(year, month) %>% |
| library(tmap) | |
| library(tidycensus) | |
| options(tigris_use_cache = TRUE) | |
| sf::sf_use_s2(FALSE) | |
| tarrant_housing <- get_acs( | |
| geography = "tract", | |
| state = "TX", | |
| county = "Tarrant", | |
| variables = c( |
| # Bivariate Choropleth Map | |
| ## this is based on Timo Grossenbacher and Angelo Zehr's tutorial - | |
| ## https://timogrossenbacher.ch/2019/04/bivariate-maps-with-ggplot2-and-sf/ | |
| # dependencies | |
| library(dplyr) # data wrangling | |
| library(ggplot2) # plotting | |
| library(purrr) # iteration | |
| library(tidyr) # data wrangling |
| suppressPackageStartupMessages(require(RTextTools)) | |
| suppressPackageStartupMessages(require(tm)) | |
| source("C:/Users/denbrige/100 FxOption/103 FxOptionVerBack/080 Fx Git/R-source/PlusReg.R", echo=FALSE) | |
| spam.dir <- paste0(RegGetRNonSourceDir(), "spamassassin/") | |
| get.msg <- function(path.dir) | |
| { | |
| con <- file(path.dir, open="rt", encoding="latin1") | |
| text <- readLines(con) | |
| msg <- text[seq(which(text=="")[1]+1,length(text),1)] | |
| close(con) |
| # go to 'https://developers.facebook.com/tools/explorer' to get your access token | |
| access_token <- "******************* INPUT YOUR ACCESS TOKEN ******************************" | |
| require(RCurl) | |
| require(rjson) | |
| # Facebook json function copied from original (Romain Francois) post | |
| facebook <- function( path = "me", access_token, options){ | |
| if( !missing(options) ){ | |
| options <- sprintf( "?%s", paste( names(options), "=", unlist(options), collapse = "&", sep = "" ) ) |
