forked from renatamuy/inserir_dados_r
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathscript_inserir_dados_R.R
78 lines (53 loc) · 2.43 KB
/
script_inserir_dados_R.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#############################
# Sobrevivendo na Ciência #
# Renata Muylaert #
# Junho de 2019 #
#############################
# 7 maneiras de se inserir dados no R
# Em que pasta você está trabalhando? Onde estão os dados que você acaba de baixar?
getwd()
# Eu, por exemplo, estou trabalhando em
# "D://Sobrevivendo_na_Ciencia//inserir_dados_R//"
# Lembre o R de onde você acabou de baixar as coisas
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
# Ou inclua o endereço da pasta em que você está trabalhando dentro das aspas
# setwd("")
# Eu, por exemplo faria setwd("D://Sobrevivendo_na_Ciencia//inserir_dados_R//")
# Vamos agora aprender as 7 maneiras de se inserir dados!
# 1. read.table
drt <- read.table("dados_exportados.txt", header = TRUE, sep="\t")
# 2. read.delim
drd <- read.delim("dados_exportados.txt")
# 3. read.csv
drc <- read.csv("dados_exportados.csv")
# 4. file.choose
dfc <- read.table(file.choose(), sep="") # após a janela "Selecionar arquivo" aparecer,
#escolha o arquivo dados_exportados.txt e clique em Abrir
# 5. read.xlsx
install.packages("xlsx")
library("xlsx")
drx <- read.xlsx("dados_exportados.xlsx", sheetName = "Sheet1")
# 6. read from clipboard
# Abra um bloco de notas
# Cole seus dados lá (abra clicando em "dados_exportados.txt")
# Selecione os dados
# Aperte copiar (ou ctrl c)!!!
drt_bloco <- read.table("clipboard", header = TRUE)
# 7. Na mão
riqueza_media <- c(4,7.4, 5.4, 4.6, 5, 3.2, 1.6, 5.4, 7.6, 8.8, 7.4, 4.8)
floresta_pct <- c(24.01, 52.4, 9.88, 9.05, 28.26, 20.29, 13.20, 41.92, 48.37, 47.33, 82.2,70.66) # Variável explicativa
# Exportando o que você criou "na mão" de diferentes maneiras
# write.xlsx
write.xlsx(data.frame(riqueza_media, floresta_pct),
"D://Sobrevivendo_na_Ciencia//inserir_dados_R//dados_exportados.xlsx",
sheetName = "Sheet1",
col.names = TRUE, row.names = FALSE, append = FALSE)
# write.table
write.table(data.frame(riqueza_media, floresta_pct),
"D://Sobrevivendo_na_Ciencia//inserir_dados_R//dados_exportados.txt",
col.names = TRUE, row.names = FALSE, append = FALSE, sep="\t")
# write.csv
write.csv(data.frame(riqueza_media, floresta_pct),
"D://Sobrevivendo_na_Ciencia//inserir_dados_R//dados_exportados.csv",
row.names = FALSE)
##########################################################