## -- Attaching packages -------------------------------------------- tidyverse 1.3.0 --## √ ggplot2 3.3.2 √ purrr 0.3.3
## √ tibble 3.0.0 √ dplyr 0.8.5
## √ tidyr 1.0.2 √ stringr 1.4.0
## √ readr 1.3.1 √ forcats 0.5.0## -- Conflicts ----------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()如果同一个包里有同一个函数，注意选择哪个包里的
例如：
## [1] NA 1 2 3 4 5 6 7 8 9## [1] 1 2 3 4 5 6 7 8 9 10
## attr(,"tsp")
## [1] 0 9 1readr
csv
注意：getwd()可以找到当前路径
## [1] "D:/Rworkspace/code"写出数据
写入数据
## 'data.frame': 32 obs. of 12 variables:
## $ mpg : num 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
## $ cyl : int 6 6 4 6 8 6 8 4 4 6 ...
## $ disp: num 160 160 108 258 360 ...
## $ hp : int 110 110 93 110 175 105 245 62 95 123 ...
## $ drat: num 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
## $ wt : num 2.62 2.88 2.32 3.21 3.44 ...
## $ qsec: num 16.5 17 18.6 19.4 17 ...
## $ vs : int 0 0 1 1 0 1 0 1 1 1 ...
## $ am : int 1 1 1 0 0 0 0 0 0 0 ...
## $ gear: int 4 4 4 3 3 3 3 4 4 4 ...
## $ carb: int 4 4 1 1 2 1 4 2 2 4 ...
## $ date: Factor w/ 32 levels "2020/10/10","2020/10/11",..: 1 2 3 4 5 6 7 8 9 10 ...将date列转化为时间序列数据
## 'data.frame': 32 obs. of 12 variables:
## $ mpg : num 21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
## $ cyl : int 6 6 4 6 8 6 8 4 4 6 ...
## $ disp: num 160 160 108 258 360 ...
## $ hp : int 110 110 93 110 175 105 245 62 95 123 ...
## $ drat: num 3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
## $ wt : num 2.62 2.88 2.32 3.21 3.44 ...
## $ qsec: num 16.5 17 18.6 19.4 17 ...
## $ vs : int 0 0 1 1 0 1 0 1 1 1 ...
## $ am : int 1 1 1 0 0 0 0 0 0 0 ...
## $ gear: int 4 4 4 3 3 3 3 4 4 4 ...
## $ carb: int 4 4 1 1 2 1 4 2 2 4 ...
## $ date: Date, format: "2020-10-10" "2020-10-11" ...note:tidyverse包中的read_csv速度比baseR中的read.csv快， 但是read.csv更稳定，如果read_csv读出数据出现乱码或者bug，用read.csv。
readxl
library(readxl)
library(writexl)
writexl::write_xlsx(x=mtcars,path = here::here("mtcars.xlsx"))
data_excel <- read_excel(path = here::here("mtcars.xlsx"))
data_excel #output中df_print: paged 使得出现如下表格形式,其他选项： "default", "kable", "tibble", and "paged".