Piotr Sobczyk psobczyk

## url-mapping-disqus.R
library(xml2)
library(rvest)

doc <- read_html(x = "path_to_xml_file")

threads <- xml_find_all(doc, ".//thread")

old_links <- gsub(".* (http.*)", "\\1", xml_text(xml_find_all(threads, xpath = ".//id")))
old_titles <- xml_text(xml_find_all(threads, xpath = ".//title"))

## sejm.R

# Files with data come from https://wybory.gov.pl/sejmsenat2019/pl/dane_w_arkuszach

require(dplyr)
require(magrittr)
require(tidyr)
require(broom)
require(ggparliament)

# Sejm elections. Could void votes affect results?

## wedding_vignette.R
library(png)

#' Print Table Vignette
#'
#' @param out_dir
#' @param img
#' @param name
#' @param file_name
#' @param two_sided
#'

## parliament_seats.R

require(dplyr)
require(rvest)
require(ggplot2)
require(ggthemes)

url <- "https://en.wikipedia.org/wiki/List_of_legislatures_by_number_of_members"
html_downloaded <- read_html(url)

tables<- url %>% read_html %>%

## Sheet 1-Table 1.csv
Województwo;Ogółem;Mężczyźni;Kobiety;PIS;PO;Nowoczesna;Kukiz;SLD;PSL
MAZOWIECKIE;5 349 114;2 559 241;2 789 873;41.7;20.2;7.2;8.1;2.8;4.9
ŚLĄSKIE;4 570 849;2 204 972;2 365 877;37.4;20.0;6.1;10.1;4.3;1.8
WIELKOPOLSKIE;3 475 323;1 690 930;1 784 393;34.3;27.4;6.6;6.7;4.4;5.0
MAŁOPOLSKIE;3 372 618;1 636 707;1 735 911;50.1;12.0;4.3;6.8;3.0;1.7
DOLNOŚLĄSKIE;2 904 207;1 396 318;1 507 889;32.0;26.9;8.4;10.3;7.0;3.3
ŁÓDZKIE;2 493 603;1 188 118;1 305 485;36.4;19.1;6.6;6.9;5.6;3.7
POMORSKIE;2 307 710;1 124 377;1 183 333;30.1;28.5;9.9;5.5;4.1;3.0
LUBELSKIE;2 139 726;1 037 052;1 102 674;45.3;13.2;4.6;7.2;3.2;8.0
PODKARPACKIE;2 127 657;1 041 779;1 085 878;53.5;14.3;3.2;8.5;2.3;4.7

## knock_off_fixtures.csv
match;group.x;position.x;group.y;position.y
49;A;1;B;2
50;C;1;D;2
51;B;1;A;2
52;D;1;C;2
53;E;1;F;2
54;G;1;H;2
55;F;1;E;2
56;H;1;G;2
57;;49;;50

## scraping_timeanddata.R
library(rvest)
library(dplyr)

main_page <- read_html('https://www.timeanddate.com/holidays/')

all_countries <- main_page %>%
  html_nodes(xpath = '//div[@class="row"]//li//a') %>%
  html_attr(name = 'href')

holidays <- NULL

## plot_temperature_hdi.R

library(rvest)
library(ggplot2)
library(ggthemes)
library(highcharter)

avg_temp <- read_html('https://en.wikipedia.org/wiki/List_of_countries_by_average_yearly_temperature')
avg_temp <- html_table(avg_temp, fill = T)[[2]]

gdp <- read_html('https://en.wikipedia.org/wiki/List_of_countries_by_GDP_(PPP)_per_capita')

## plot_obesity.R
# data can be downloaded from http://ghdx.healthdata.org/gbd-2015
obesity <- read.csv("IHME_GBD_2015_OBESITY_PREVALENCE_1980_2015_1/IHME_GBD_2015_OBESITY_PREVALENCE_1980_2015_Y2017M06D12.CSV")


obesity %>%
	filter(location_name %in% c("United States", "Poland", "Sweden"),
				 metric == "Percent",
				 sex == "Both",
				 age_group_name %in% c('15 to 19', '20 to 24',
				 											'30 to 34', '35 to 39',

## analiza_wynikow_polmaraton_wroclaw_2017.R

library(XML)
library(dplyr)
library(tidyr)
library(ggplot2)
library(ggthemes)

url_address <- 'wyniki.txt' #tabela sciagnieta ze strony http://wyniki.datasport.pl/results2200/
doc.html = htmlTreeParse(url_address, useInternal = TRUE, encoding = "UTF-8")
	library(xml2)
	library(rvest)

	doc <- read_html(x = "path_to_xml_file")

	threads <- xml_find_all(doc, ".//thread")

	old_links <- gsub(".* (http.*)", "\\1", xml_text(xml_find_all(threads, xpath = ".//id")))
	old_titles <- xml_text(xml_find_all(threads, xpath = ".//title"))

	# Files with data come from https://wybory.gov.pl/sejmsenat2019/pl/dane_w_arkuszach

	require(dplyr)
	require(magrittr)
	require(tidyr)
	require(broom)
	require(ggparliament)

	# Sejm elections. Could void votes affect results?
	library(png)

	#' Print Table Vignette
	#'
	#' @param out_dir
	#' @param img
	#' @param name
	#' @param file_name
	#' @param two_sided
	#'

	require(dplyr)
	require(rvest)
	require(ggplot2)
	require(ggthemes)

	url <- "https://en.wikipedia.org/wiki/List_of_legislatures_by_number_of_members"
	html_downloaded <- read_html(url)

	tables<- url %>% read_html %>%
	Województwo;Ogółem;Mężczyźni;Kobiety;PIS;PO;Nowoczesna;Kukiz;SLD;PSL
	MAZOWIECKIE;5 349 114;2 559 241;2 789 873;41.7;20.2;7.2;8.1;2.8;4.9
	ŚLĄSKIE;4 570 849;2 204 972;2 365 877;37.4;20.0;6.1;10.1;4.3;1.8
	WIELKOPOLSKIE;3 475 323;1 690 930;1 784 393;34.3;27.4;6.6;6.7;4.4;5.0
	MAŁOPOLSKIE;3 372 618;1 636 707;1 735 911;50.1;12.0;4.3;6.8;3.0;1.7
	DOLNOŚLĄSKIE;2 904 207;1 396 318;1 507 889;32.0;26.9;8.4;10.3;7.0;3.3
	ŁÓDZKIE;2 493 603;1 188 118;1 305 485;36.4;19.1;6.6;6.9;5.6;3.7
	POMORSKIE;2 307 710;1 124 377;1 183 333;30.1;28.5;9.9;5.5;4.1;3.0
	LUBELSKIE;2 139 726;1 037 052;1 102 674;45.3;13.2;4.6;7.2;3.2;8.0
	PODKARPACKIE;2 127 657;1 041 779;1 085 878;53.5;14.3;3.2;8.5;2.3;4.7
	match;group.x;position.x;group.y;position.y
	49;A;1;B;2
	50;C;1;D;2
	51;B;1;A;2
	52;D;1;C;2
	53;E;1;F;2
	54;G;1;H;2
	55;F;1;E;2
	56;H;1;G;2
	57;;49;;50
	library(rvest)
	library(dplyr)

	main_page <- read_html('https://www.timeanddate.com/holidays/')

	all_countries <- main_page %>%
	html_nodes(xpath = '//div[@class="row"]//li//a') %>%
	html_attr(name = 'href')

	holidays <- NULL

	library(rvest)
	library(ggplot2)
	library(ggthemes)
	library(highcharter)

	avg_temp <- read_html('https://en.wikipedia.org/wiki/List_of_countries_by_average_yearly_temperature')
	avg_temp <- html_table(avg_temp, fill = T)[[2]]

	gdp <- read_html('https://en.wikipedia.org/wiki/List_of_countries_by_GDP_(PPP)_per_capita')
	# data can be downloaded from http://ghdx.healthdata.org/gbd-2015
	obesity <- read.csv("IHME_GBD_2015_OBESITY_PREVALENCE_1980_2015_1/IHME_GBD_2015_OBESITY_PREVALENCE_1980_2015_Y2017M06D12.CSV")


	obesity %>%
	filter(location_name %in% c("United States", "Poland", "Sweden"),
	metric == "Percent",
	sex == "Both",
	age_group_name %in% c('15 to 19', '20 to 24',
	'30 to 34', '35 to 39',

	library(XML)
	library(dplyr)
	library(tidyr)
	library(ggplot2)
	library(ggthemes)

	url_address <- 'wyniki.txt' #tabela sciagnieta ze strony http://wyniki.datasport.pl/results2200/
	doc.html = htmlTreeParse(url_address, useInternal = TRUE, encoding = "UTF-8")