Tuija Sonkkila tts
tts
/ q_dbpedia_sparql_httr.R
Last active
January 8, 2022 18:38
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| sparql_endpoint <- "http://dbpedia.org/sparql" | |
| # Query example from https://medium.com/virtuoso-blog/dbpedia-basic-queries-bc1ac172cc09 | |
| q <- " | |
| SELECT ?athlete ?cityName | |
| WHERE | |
| { | |
| ?athlete rdfs:label 'Cristiano Ronaldo'@en ; |
tts
/ gist:9c953059d4686c634d5a2cf287080cf8
Last active
September 29, 2021 11:28
Mapping some toy music subgenres
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # https://raw.githubusercontent.com/gkaramanis/tidytuesday/master/2021/2021-week37/billboard.R | |
| # https://twitter.com/ttso/status/1442485258172043268 | |
| billb_feat <- billb_feat %>% | |
| mutate( | |
| subgenre = case_when( | |
| str_detect(spotify_genre, "rock") ~ "1", | |
| str_detect(spotify_genre, "folk") ~ "2", | |
| str_detect(spotify_genre, "pop") ~ "3", | |
| str_detect(spotify_genre, "jazz") ~ "4", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(stringr) | |
| library(tidyverse) | |
| #--------------------------------------------------------------- | |
| # https://twitter.com/nealhaddaway/status/1362512900716433409 | |
| # | |
| # His example query | |
| #-------------------------------------------------------------- | |
| q <- "((arable OR agricult* OR farm* OR crop* OR cultivat* OR field*) AND | |
| (plough* OR plow* OR till* OR 'direct drill*' OR fertili* OR biosolid* OR |
tts
/ rtnetworkwithtweets.ipynb
Last active
March 9, 2020 14:57
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
tts
/ 2019altmTop100aff.R
Created
December 19, 2019 07:32
2019 Altmetric Top 100 geocoded affiliations on world map
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(readxl) | |
| library(tmaptools) | |
| library(maps) | |
| library(sf) | |
| url <- "https://altmetric.figshare.com/ndownloader/files/20202618" | |
| temp <- tempfile() | |
| download.file(url, temp) | |
| data <- read_excel(temp) |
tts
/ hkitrees_viz.R
Created
June 9, 2019 14:23
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(sf) | |
| # Data from hri.fi | |
| districts <- st_read("PKS_Kartta_Rajat_KML2011/PKS_suuralue.kml") | |
| hki <- districts %>% | |
| filter(Name %in% c("Eteläinen", "Itäinen","Läntinen","Kaakkoinen", | |
| "Keskinen","Pohjoinen","Koillinen")) %>% | |
| mutate(Name_en = case_when( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(readxl) | |
| library(httr) | |
| #------------------------------------------------------------- | |
| # hri.fi | |
| # | |
| # Pääkaupunkiseudun kaukolämmön tuotannon energialähteet (GWh) | |
| #------------------------------------------------------------- |
tts
/ addMissingYears.vb
Last active
July 11, 2017 14:30
Transform Pure activities data by filling in rows with missing year
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Public Sub addMissingYears() | |
| Dim readFrom As Long 'Row we read from | |
| Dim writeTo As Long 'Row we write to | |
| Dim allRows As Long 'Row count to loop over | |
| Dim thisC As Long | |
| Dim thisD As Long | |
| Dim sheetFrom As Worksheet 'Sheet where we read from | |
| Dim sheetTo As Worksheet 'Sheet where we write to | |
tts
/ pure2powerbi.R
Last active
July 10, 2017 10:18
Transform Pure activities data exported as Excel to be imported into Power BI for reporting
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # `dataset` holds the input data for this script | |
| library(dplyr) | |
| names(dataset) <- c("Type", "Unit", "Start", "End") | |
| dataset$Unit <- iconv(dataset$Unit, from = "WINDOWS-1252", to = "UTF-8") | |
| # We need to expand those rows where Start and End span more than one year, | |
| # e.g. 2010-2012 into 2010, 2011, 2012 | |
| to_expand <- dataset %>% |
tts
/ changes_metrics_small_multiples.R
Created
June 14, 2017 09:58
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(dplyr) | |
| library(tidyr) | |
| library(ggplot2) | |
| library(gridExtra) | |
| library(grid) | |
| data20162017 <- read.csv("toshiny_altm_2016_2017.csv", stringsAsFactors = FALSE) | |
| data20162017 <- data20162017 %>% | |
| mutate(gap_cites = Citations2017 - Citations, |
NewerOlder