mschnetzer

library(tidyverse)
library(rvest)
library(cropcircles)
library(magick)
library(gt)
library(gtExtras)

data <- read_html("https://sport.orf.at/stories/3111293/") |> 
  html_elements("section") |> 
  html_table() |> 

mschnetzer

library(tidyverse)
library(waffle)
library(msthemes)
library(viridis)
library(haven)
library(MetBrewer)

mz <- read_dta("mz2019.dta")

mz |> select(gewjahr, bsex, dteil) |> 

mschnetzer

librarian::shelf(tidyverse, STATcubeR, janitor, ggbump, ggtext, colorspace, futurevisions, msthemes)

# Set date language to German
Sys.setlocale(locale = "de_AT")

# Load latest data from Statistics Austria API
database <- "str:database:devpi15"
fields <- sc_schema_db(database)  |> sc_schema_flatten("FIELD")
measures <- sc_schema_db(database) |> sc_schema_flatten("MEASURE")
db_schema <- sc_schema_db(database)

mschnetzer

library(tidyverse)
library(sf)
library(msthemes)
library(raster)
library(rmapshaper)
library(smoothr)
library(patchwork)
library(showtext)
select <- dplyr::select

mschnetzer

library(tidyverse)
library(msthemes)
library(sf)
library(showtext)

font_add_google("Roboto Condensed", "Roboto")
font_add_google("Playfair Display", "Playfair")
font_add_google("Roboto Mono", "Mono")
showtext_opts(dpi = 320)
showtext_auto()

mschnetzer

library(tidyverse)
library(haven)
library(msthemes)
library(gganimate)

mz <- read_dta("mz2019.dta")

mz |>  filter(xerwstat == 1, dbers <6, dstd < 999, balt %in% 20:69, aquartal == 4) |> 
  select(asbper, gewjahr, bsex, balt, dstd, dwstd) |>  
  mutate(status = case_when(

mschnetzer

librarian::shelf(tidyverse,pdftools,sf,msthemes,rayshader,wesanderson)

# Download PDF from Statistik Austria: https://www.statistik.at/fileadmin/publications/Lohnsteuer-2021.pdf
rawpdf <- pdf_text("Lohnsteuer-2021.pdf")

# Manual editing to obtain the required data from the two-column table
tmppdf <- rawpdf[67:68] |> strsplit('\n') |> unlist()
df <- tmppdf[c(11:55,67:86)] |> as.data.frame() |> setNames("string") |> 
  separate(string, into = c("gem","male","female", "gem2", "male2", "female2"), sep = "\\s\\s+")

mschnetzer

library(tidyverse)
library(rvest)
library(stringi)
library(janitor)
library(countrycode)
library(MetBrewer)
library(msthemes)
library(patchwork)

url <- "https://en.wikipedia.org/wiki/List_of_weather_records#Highest_temperatures_ever_recorded"

mschnetzer

library(tidyverse)
library(pdftools)
library(msthemes)
library(sf)
library(ggforce)
library(ggrepel)
sf::sf_use_s2(FALSE)

# Download PDF from https://www.staedtebund.gv.at/services/publikationen/staedte-in-zahlen-oestiz/ and extract page 55
rawpdf <- pdf_text("https://www.staedtebund.gv.at/ePaper-oestiz/ausgaben-pdf/OESTIZ_2020.pdf")

mschnetzer

# This code is adapted from original code by @cnicault https://github.com/cnicault/tidytuesday/tree/master/2021/2021-21-ask_a_manager

library(tidyverse)
library(readxl)
library(scales)
library(ggbump)
library(glue)
library(showtext)
library(msthemes)