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
# Pobierz dane | |
library("XML") | |
url <- "https://pl.wikipedia.org/wiki/Lista_pa%C5%84stw_%C5%9Bwiata_wed%C5%82ug_liczby_ludno%C5%9Bci" | |
file<-read_html(url) | |
tables <-html_nodes(file, "table") | |
table1 <- html_table(tables[1], fill = TRUE) | |
table1 <- table1[[1]] | |
table1 <- table1[table1[,1] != "–",] |
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(shiny) | |
library(archivist) | |
library(ggplot2) | |
# [a] archivist repo | |
# create if not exist, or set as default if exists | |
if (!file.exists("arepo")) { | |
createLocalRepo("arepo", default = TRUE) | |
} else { | |
setLocalRepo("arepo") |
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(archivist) | |
library(circlize) | |
library(RColorBrewer) | |
k <- brewer.pal(3,"Set1") | |
# | |
# plot | |
# | |
movies2014 <- archivist::aread("pbiecek/graphGallery/1f22770967c8b87c1b9028957055eff2") |
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
wp <- wp_trend(page = c("Andrzej_Sapkowski","Andrzej_Sapkowski","Jacek_Dukaj", "Jacek_Dukaj"), | |
from = "2013-01-01", | |
to = today(), | |
lang = c("pl","en","pl","en")) | |
head(wp) | |
## date count lang page rank month title | |
## 1 2013-01-12 464 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski | |
## 2 2013-01-13 538 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski | |
## 3 2013-01-10 536 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski | |
## 4 2013-01-11 457 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski |
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(wikipediatrend) | |
wp <- wp_trend(page = c("Aksolotl","Axolotl","The_Witcher", "Wiedźmin"), | |
from = "2013-01-01", | |
to = today(), | |
lang = c("pl","en","en","pl")) | |
head(wp) | |
## date count lang page rank month title | |
## 1 2013-08-26 70 pl Aksolotl -1 201308 Aksolotl |
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
ahistory(tmp) | |
iris [ff575c261c949d073b2895b05d1097c3] | |
-> filter(Sepal.Length < 6) [d3696e13d15223c7d0bbccb33cc20a11] | |
-> lm(Petal.Length ~ Species, data = .) [990861c7c27812ee959f10e5f76fe2c3] | |
-> summary() [050e41ec3bc40b3004bc6bdd356acae7] |
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(ggplot2) | |
library(scales) | |
library(lubridate) | |
load("elections1.rda") | |
shinyServer(function(input, output) { | |
position <- reactiveValues(x = NULL) | |
observeEvent(input$plot_hower, { | |
hower <- input$plot_hower |
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
ggplot(elections1, aes(x=daysToElections, y=support)) + | |
geom_point(aes(shape=source, color=candidate), size=4) + | |
scale_shape_manual(values=LETTERS) + theme_bw() + xlab("days to elections") + ylab("support (%)") + | |
scale_y_continuous(limits=c(10,75), breaks=seq(10,70,10)) + | |
geom_smooth(size=2,aes(color=candidate),se=FALSE, method="lm") + | |
scale_color_manual(values=c("blue3", "orange3")) |
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
> load("elections1.rda") | |
> head(elections1) | |
source date candidate support daysToElections | |
2 CBOS 2015-02-16 Bronisław Komorowski 63.0 -83 | |
3 CBOS 2015-03-02 Bronisław Komorowski 49.0 -69 | |
4 CBOS 2015-03-11 Bronisław Komorowski 52.0 -60 | |
5 CBOS 2015-03-20 Bronisław Komorowski 48.0 -51 | |
6 CBOS 2015-04-22 Bronisław Komorowski 43.0 -18 | |
9 Dobra Opinia 2015-04-10 Bronisław Komorowski 48.3 -30 |
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
diffogram(ms6) |
NewerOlder