Importação de dados

Importando dados

From packages

cars

   speed dist
1      4    2
2      4   10
3      7    4
4      7   22
5      8   16
6      9   10
7     10   18
8     10   26
9     10   34
10    11   17
11    11   28
12    12   14
13    12   20
14    12   24
15    12   28
16    13   26
17    13   34
18    13   34
19    13   46
20    14   26
21    14   36
22    14   60
23    14   80
24    15   20
25    15   26
26    15   54
27    16   32
28    16   40
29    17   32
30    17   40
31    17   50
32    18   42
33    18   56
34    18   76
35    18   84
36    19   36
37    19   46
38    19   68
39    20   32
40    20   48
41    20   52
42    20   56
43    20   64
44    22   66
45    23   54
46    24   70
47    24   92
48    24   93
49    24  120
50    25   85

cars2 <- cars
speed <- cars2$speed
speed

 [1]  4  4  7  7  8  9 10 10 10 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15
[26] 15 16 16 17 17 17 18 18 18 18 19 19 19 20 20 20 20 20 22 23 24 24 24 24 25

library(r4pde)
RustSoybean

# A tibble: 34 × 7
   epidemia latitude longitude local              planting   detection  severity
      <dbl>    <dbl>     <dbl> <chr>              <date>     <date>        <dbl>
 1       23    -23.0     -50.1 Cambara            2003-11-25 2004-02-02     24  
 2       24    -24.0     -52.4 Campo Mourao       2003-11-28 2004-02-02     21  
 3       31    -15.5     -55.2 Campo Verde        2004-11-20 2005-01-25     78  
 4        3    -13.3     -44.6 Correntina         2002-11-10 2003-01-03     85  
 5       15    -13.3     -44.6 Correntina         2003-11-28 2004-01-31     25  
 6       34    -25.4     -51.5 Guarapuava         2004-11-29 2005-03-14     32  
 7        7    -29.2     -53.7 Julio Castilhos    2002-12-15 2003-04-10     40  
 8       13    -12.1     -45.8 Luis Eduardo Maga… 2003-11-12 2004-02-15     39.2
 9       33    -12.1     -45.8 Luis Eduardo Maga… 2004-11-19 2005-01-25     55  
10        1    -23.3     -51.2 Londrina           2002-11-06 2003-02-03     45  
# ℹ 24 more rows

df <- RustSoybean
df

# A tibble: 34 × 7
   epidemia latitude longitude local              planting   detection  severity
      <dbl>    <dbl>     <dbl> <chr>              <date>     <date>        <dbl>
 1       23    -23.0     -50.1 Cambara            2003-11-25 2004-02-02     24  
 2       24    -24.0     -52.4 Campo Mourao       2003-11-28 2004-02-02     21  
 3       31    -15.5     -55.2 Campo Verde        2004-11-20 2005-01-25     78  
 4        3    -13.3     -44.6 Correntina         2002-11-10 2003-01-03     85  
 5       15    -13.3     -44.6 Correntina         2003-11-28 2004-01-31     25  
 6       34    -25.4     -51.5 Guarapuava         2004-11-29 2005-03-14     32  
 7        7    -29.2     -53.7 Julio Castilhos    2002-12-15 2003-04-10     40  
 8       13    -12.1     -45.8 Luis Eduardo Maga… 2003-11-12 2004-02-15     39.2
 9       33    -12.1     -45.8 Luis Eduardo Maga… 2004-11-19 2005-01-25     55  
10        1    -23.3     -51.2 Londrina           2002-11-06 2003-02-03     45  
# ℹ 24 more rows

From excel

O segundo argumento é o nome da aba do arquivo excel

library(readxl)
magnesio <- read_excel("dados-diversos.xlsx")
escala <- read_excel("dados-diversos.xlsx", "escala")
escala <- read_excel("dados-diversos.xlsx", 2)

From csv

Formato csv é formato de texto, separado por vírgula. Quando pede ajuda vai aparecer: read.table {utils} entre chaves é o nome do pacote Se não der tenta read_csv2, porque pode estar separado por outro caractere

magnesio2 <- read.csv("dados-diversos.csv")
library(tidyverse)
magnesio5 <- read_csv("dados-diversos.csv")

#From txt

magnesio6 <- read.table("dados-diversos.txt", header = TRUE)
magnesio6

   Irrigation rep day severity
1      Furrow   1   0     0,01
2      Furrow   2   0     0,01
3      Furrow   3   0     0,01
4      Furrow   1   7     0,04
5      Furrow   2   7     0,04
6      Furrow   3   7     0,04
7      Furrow   1  14     0,10
8      Furrow   2  14     0,10
9      Furrow   3  14     0,11
10     Furrow   1  21     0,11
11     Furrow   2  21     0,10
12     Furrow   3  21     0,10
13     Furrow   1  28     0,15
14     Furrow   2  28     0,17
15     Furrow   3  28     0,15
16     Furrow   1  35     0,18
17     Furrow   2  35     0,19
18     Furrow   3  35     0,19
19     Furrow   1  42     0,34
20     Furrow   2  42     0,38
21     Furrow   3  42     0,34
22     Furrow   1  49     0,38
23     Furrow   2  49     0,39
24     Furrow   3  49     0,38
25     Furrow   1  56     0,40
26     Furrow   2  56     0,41
27     Furrow   3  56     0,43
28     Furrow   1  63     0,46
29     Furrow   2  63     0,46
30     Furrow   3  63     0,43
31       Drip   1   0     0,01
32       Drip   2   0     0,01
33       Drip   3   0     0,01
34       Drip   1   7     0,03
35       Drip   2   7     0,04
36       Drip   3   7     0,04
37       Drip   1  14     0,11
38       Drip   2  14     0,11
39       Drip   3  14     0,10
40       Drip   1  21     0,13
41       Drip   2  21     0,12
42       Drip   3  21     0,10
43       Drip   1  28     0,16
44       Drip   2  28     0,15
45       Drip   3  28     0,15
46       Drip   1  35     0,18
47       Drip   2  35     0,19
48       Drip   3  35     0,17
49       Drip   1  42     0,30
50       Drip   2  42     0,33
51       Drip   3  42     0,34
52       Drip   1  49     0,33
53       Drip   2  49     0,37
54       Drip   3  49     0,37
55       Drip   1  56     0,39
56       Drip   2  56     0,46
57       Drip   3  56     0,41
58       Drip   1  63     0,43
59       Drip   2  63     0,43
60       Drip   3  63     0,43

From google sheet

primeiro autoriza no doc que qualquer com o link pode visualizar para você carregar a segunda aba da planilha tem que pegar o link da segunda aba no doc

library(gsheet)
magnesio7 <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1aID5Dh6PlBVCKzU1j7k-WA6zuWQWE2NhtWEgdJtt5iA/edit?usp=sharing")

survey <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1aID5Dh6PlBVCKzU1j7k-WA6zuWQWE2NhtWEgdJtt5iA/edit#gid=366054269")

#ou csv de um link 

fusarium <- read_csv("https://raw.githubusercontent.com/emdelponte/epidemiology-R/main/data/fusarium_banana.csv")
fusarium

# A tibble: 163 × 4
     lon   lat marker  field
   <dbl> <dbl> <chr>   <dbl>
 1 -50.8 -20.5 plantas    11
 2 -50.8 -20.5 plantas    11
 3 -50.8 -20.5 plantas    11
 4 -50.8 -20.5 plantas    11
 5 -50.8 -20.5 plantas    11
 6 -50.8 -20.5 plantas    11
 7 -50.8 -20.5 plantas    11
 8 -50.8 -20.5 plantas    11
 9 -50.8 -20.5 plantas    11
10 -50.8 -20.5 plantas    11
# ℹ 153 more rows