kguidonimartins

# kguidonimartins@gmail.com
############################################################
#                                                          #
#                 CHECANDO DADOS COVID-19                  #
#                                                          #
############################################################

############################################################
#                                                          #
# Os dados são atualizados diariamente pela Johns Hopkins  #

kguidonimartins

V1 V2
euphyllophyte 400
seedplants 325
angiosperm 179
nym2ast 171
aus2ast 165
monocotneudicot 161
eudicot 147
bux2ast 137
coreeudicot 127

kguidonimartins

############################################################
#                                                          #
#                  instalação dos pacotes                  #
#                                                          #
############################################################

# ipak function: install and load multiple R packages.
# Check to see if packages are installed. 
# Install them if they are not, then load them into the R session.
# Forked from: https://gist.github.com/stevenworthington/3178163

kguidonimartins

def donuts(count):
    if count >= 10:
        count = "many"
    print('Number of donuts:', count)

donuts(2)
donuts(10)

kguidonimartins

if (!require("tidyverse")) install.packages("tidyverse")
if (!require("rvest")) install.packages("rvest")
#' Extract link texts and urls from a web page
#' @param url character an url
#' @return a data frame of link text and urls
#' @examples
#' \dontrun{
#' scraplinks("http://localhost/")
#' glinks <- scraplinks("http://google.com/")
#' }

kguidonimartins

This gist shows in two steps how to tilt and stack maps using ggplot2 in order to create an image like this one: [![enter image description here][1]][1]

Let's load the necessary libraries and data to use a reproducible example:

# load libraries
  library(rgeos)
  library(UScensus2000tract)
  library(ggplot2)

kguidonimartins

ipak <- function(pkg) {
  new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
  if (length(new.pkg)){
    install.packages(new.pkg, dependencies = TRUE)
  }
  suppressPackageStartupMessages(sapply(pkg, require, character.only = TRUE))
}

ipak(c("tidyverse", "leaflet"))

kguidonimartins

#!/bin/sh

# onedrive-ubu.sh
# A BASH script to set up OneDrive integration with GNOME on Ubuntu
# Copyright (C) 2018 Garrett Mills (garrett@glmdev.tech)
# This software is licensed under the MIT License.
# This sofware is provided without warranty or even any implied intent of purpose.
#
# OnedriveD: https://github.com/xybu/onedrived-dev

kguidonimartins

---
title: "World maps"
output:
  html_document:
    df_print: paged
---

```{r echo = FALSE, message = FALSE}
library(tidyverse)
library(sf)

kguidonimartins

ipak <- function(pkg){
    new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
    if (length(new.pkg))
    {
      install.packages(new.pkg,
                       dependencies = TRUE,
                       repos = "https://cloud.r-project.org")
    }
    suppressPackageStartupMessages(sapply(pkg, require, character.only = TRUE))
}