Untitled
unknown
plain_text
8 months ago
7.0 kB
10
Indexable
R version 4.3.3 (2024-02-29 ucrt) -- "Angel Food Cake"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R jest oprogramowaniem darmowym i dostarczany jest BEZ JAKIEJKOLWIEK GWARANCJI.
Możesz go rozpowszechniać pod pewnymi warunkami.
Wpisz 'license()' lub 'licence()' aby uzyskać szczegóły dystrybucji.
R jest projektem kolaboracyjnym z wieloma uczestnikami.
Wpisz 'contributors()' aby uzyskać więcej informacji oraz
'citation()' aby dowiedzieć się jak cytować R lub pakiety R w publikacjach.
Wpisz 'demo()' aby zobaczyć demo, 'help()' aby uzyskać pomoc on-line, lub
'help.start()' aby uzyskać pomoc w przeglądarce HTML.
Wpisz 'q()' aby wyjść z R.
> Sys.setenv(LANG="en")
> d
Error: object 'd' not found
> getwd()
[1] "C:/Users/Student/Documents"
> setwd('./DAS')
> getwd()
[1] "C:/Users/Student/Documents/DAS"
> library(readxl)
> prss <- read_excel("prss.xlsx")
> View(prss)
> library(readxl)
> water2015 <- read_excel("water2015.xls",
+ na = "-")
> View(water2015)
> read_excel('sediments.xls')
# A tibble: 26 × 9
Points Met1 Met2 Met3 Fract1 Fract2 Fract3 Transects Riverbed
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <chr>
1 Point 02 110. 42.8 1.36 31.1 65.8 3.04 left out
2 Point 04 110. 41.1 1.28 40.6 56.9 2.5 central out
3 Point 07 111. 41.8 1.25 13.3 59.2 27.5 right in
4 Point 17 74.0 24.9 0.822 26.2 70.3 3.53 central out
5 Point 18 24.0 10.2 0.256 14.7 59.0 26.3 left out
6 Point 19 105. 37.0 1.34 23.2 73.2 3.6 right in
7 Point 28 24.4 8.60 0.5 7.3 65.6 27.1 left out
8 Point 30 106. 37.8 1.39 23.6 75.0 1.39 central in
9 Point 33 100. 36.1 1.28 23.9 75.7 0.360 right out
10 Point 36 42.3 8.80 0.542 3.35 52.1 44.6 left out
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> read_excel('sediments.xls')->sed
> read_excel('meteo_2015.xls')->met
There were 50 or more warnings (use warnings() to see the first 50)
> water2015->wtr
> rm(water2015)
> save(met,file='met.RData')
> save(prss,file='prss.RData')
> save(sed,file='sed.RData')
> save(wtr,file='wtr.RData')
> rm(wtr)
> load(wtr.RData)
Error: object 'wtr.RData' not found
> load('wtr.RData')
> ls()
[1] "met" "prss" "sed" "wtr"
> rm(list=ls())
> load('wtr.RData')
> load("~/DAS/sed.RData")
> load("~/DAS/prss.RData")
> load("~/DAS/met.RData")
> View(wtr)
> View(sed)
> View(met)
> sed
# A tibble: 26 × 9
Points Met1 Met2 Met3 Fract1 Fract2 Fract3 Transects Riverbed
<chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr> <chr>
1 Point 02 110. 42.8 1.36 31.1 65.8 3.04 left out
2 Point 04 110. 41.1 1.28 40.6 56.9 2.5 central out
3 Point 07 111. 41.8 1.25 13.3 59.2 27.5 right in
4 Point 17 74.0 24.9 0.822 26.2 70.3 3.53 central out
5 Point 18 24.0 10.2 0.256 14.7 59.0 26.3 left out
6 Point 19 105. 37.0 1.34 23.2 73.2 3.6 right in
7 Point 28 24.4 8.60 0.5 7.3 65.6 27.1 left out
8 Point 30 106. 37.8 1.39 23.6 75.0 1.39 central in
9 Point 33 100. 36.1 1.28 23.9 75.7 0.360 right out
10 Point 36 42.3 8.80 0.542 3.35 52.1 44.6 left out
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> str(sed)
tibble [26 × 9] (S3: tbl_df/tbl/data.frame)
$ Points : chr [1:26] "Point 02" "Point 04" "Point 07" "Point 17" ...
$ Met1 : num [1:26] 110 110 111 74 24 ...
$ Met2 : num [1:26] 42.8 41.1 41.8 24.9 10.2 ...
$ Met3 : num [1:26] 1.358 1.279 1.252 0.822 0.256 ...
$ Fract1 : num [1:26] 31.1 40.6 13.3 26.2 14.7 ...
$ Fract2 : num [1:26] 65.8 56.9 59.2 70.3 59 ...
$ Fract3 : num [1:26] 3.04 2.5 27.46 3.53 26.32 ...
$ Transects: chr [1:26] "left" "central" "right" "central" ...
$ Riverbed : chr [1:26] "out" "out" "in" "out" ...
> set[2]
Error: object 'set' not found
> sed[2]
# A tibble: 26 × 1
Met1
<dbl>
1 110.
2 110.
3 111.
4 74.0
5 24.0
6 105.
7 24.4
8 106.
9 100.
10 42.3
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> sed[2:4]
# A tibble: 26 × 3
Met1 Met2 Met3
<dbl> <dbl> <dbl>
1 110. 42.8 1.36
2 110. 41.1 1.28
3 111. 41.8 1.25
4 74.0 24.9 0.822
5 24.0 10.2 0.256
6 105. 37.0 1.34
7 24.4 8.60 0.5
8 106. 37.8 1.39
9 100. 36.1 1.28
10 42.3 8.80 0.542
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> sed[2,5,7]
[1] 40.63
> c(2,5,7)
[1] 2 5 7
> sed[c(2,5,7)]
# A tibble: 26 × 3
Met1 Fract1 Fract3
<dbl> <dbl> <dbl>
1 110. 31.1 3.04
2 110. 40.6 2.5
3 111. 13.3 27.5
4 74.0 26.2 3.53
5 24.0 14.7 26.3
6 105. 23.2 3.6
7 24.4 7.3 27.1
8 106. 23.6 1.39
9 100. 23.9 0.360
10 42.3 3.35 44.6
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> load("~/DAS/sed.RData")
> load("~/DAS/sed.RData")
> View(sed)
> sed[c(7,5,7)]
# A tibble: 26 × 3
Fract3 Fract1 Fract3
<dbl> <dbl> <dbl>
1 3.04 31.1 3.04
2 2.5 40.6 2.5
3 27.5 13.3 27.5
4 3.53 26.2 3.53
5 26.3 14.7 26.3
6 3.6 23.2 3.6
7 27.1 7.3 27.1
8 1.39 23.6 1.39
9 0.360 23.9 0.360
10 44.6 3.35 44.6
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> sed['met1']
Error in `sed["met1"]`:
! Can't subset columns that don't exist.
✖ Column `met1` doesn't exist.
Run `rlang::last_trace()` to see where the error occurred.
> sed['Met1']
# A tibble: 26 × 1
Met1
<dbl>
1 110.
2 110.
3 111.
4 74.0
5 24.0
6 105.
7 24.4
8 106.
9 100.
10 42.3
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> sed[('Met1','Fract1')]
Error: unexpected ',' in "sed[('Met1',"
> sed[c('Met1','Fract1')]
# A tibble: 26 × 2
Met1 Fract1
<dbl> <dbl>
1 110. 31.1
2 110. 40.6
3 111. 13.3
4 74.0 26.2
5 24.0 14.7
6 105. 23.2
7 24.4 7.3
8 106. 23.6
9 100. 23.9
10 42.3 3.35
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> sed[[2]]
[1] 109.75395 110.49505 111.02859 74.04878 23.95926 104.94652 24.37663 106.29218 100.24612 42.33365
[11] 66.22781 106.45286 22.57434 100.87469 100.28708 71.89668 70.51660 100.00000 23.53911 84.99006
[21] 30.84983 59.95819 59.62754 55.31596 47.87899 54.61153
> sed$Met1
[1] 109.75395 110.49505 111.02859 74.04878 23.95926 104.94652 24.37663 106.29218 100.24612 42.33365
[11] 66.22781 106.45286 22.57434 100.87469 100.28708 71.89668 70.51660 100.00000 23.53911 84.99006
[21] 30.84983 59.95819 59.62754 55.31596 47.87899 54.61153Editor is loading...
Leave a Comment