主頁 > 資料庫 > ggplot2：使用bind_rows()組合兩個小標題并使用相同的軸和兩個行組識別符號繪制兩條線

ggplot2：使用bind_rows()組合兩個小標題并使用相同的軸和兩個行組識別符號繪制兩條線

2021-12-30 04:28:29 資料庫

我有兩個具有相同數量和名稱的列。我想cfs在同一對軸上繪制兩列，使用site_nbr作為變數來設定每個 ggplot2 的顏色geom_line()。我展示了我嘗試過的東西（和兩個小東西）并想學習：

  1. 如何使用bind_rows()從兩個獨立的小標題創建單個小標題。
  2. 如何在相同的軸對上繪制cfs每個的列值site_nbr。

嘗試使用bind_rows()失敗來組合兩個小標題：

> sal_alb_disc_1988 <- bind_rows(sal_disc_1988, alb_disc_1988)
Error: Can't combine `..1$cfs` <character> and `..2$cfs` <double>.
Run `rlang::last_error()` to see where the error occurred.
> rlang::last_error()
<error/vctrs_error_incompatible_type>
Can't combine `..1$cfs` <character> and `..2$cfs` <double>.
Backtrace:
 1. dplyr::bind_rows(sal_disc_1988, alb_disc_1988)
 2. vctrs::vec_rbind(!!!dots, .names_to = .id)
 4. vctrs::vec_default_ptype2(...)
 5. vctrs::stop_incompatible_type(...)
 6. vctrs:::stop_incompatible(...)
 7. vctrs:::stop_vctrs(...)

我不明白回溯。

我找到了在同一軸上繪制兩條線的示例，但它們都使用同一 tibble 中的兩列來執行此操作，而不是同一 tibble 中的兩組行。

dput()兩個小標題的輸出如下：

> dput(sal_disc_1988)
structure(list(site_nbr = c("14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720", "14211720", "14211720", "14211720", "14211720", 
"14211720", "14211720"), year = c(1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L), mon = c(10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L,
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L), day = c(1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), hr = c(0L, 0L, 
0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 
3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 
5L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 
8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 
10L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 
13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 15L, 
15L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 
17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 
19L, 19L, 19L, 20L, 20L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 
21L, 21L, 22L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 
23L), min = c(10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 
50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 
0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 
10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 
20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 
30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 
40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 
50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 
0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 
10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 
20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 
30L, 40L, 50L), tz = c("PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT"), cfs = c(16800, 16800, 17300, 18200, 18100, 18400, 
18700, 19200, 19200, 18900, 18800, 18800, 18800, 18800, 18100, 
18100, 18100, 18100, 17800, 17400, 17400, 17400, 17700, 17400, 
17300, 17300, 17600, 17800, 17800, 18100, 16600, 16900, 16600, 
15700, 15700, 15100, 14300, 13700, 12900, 12000, 10900, 9810, 
8690, 7010, 5620, 4220, 2820, 1690, 283, -1130, -2280, -2570, 
-2570, -2300, -1440, -865, 0, 1160, 0, 4640, 6390, 0, 0, 15100, 
16200, 0, 0, 0, 0, 0, 20400, 19500, 18900, 17700, 16600, 15700, 
15400, 15100, 14800, 14500, 14800, 0, 0, 0, 17300, 17000, 17800, 
18600, 18000, 18900, 18500, 18200, 17700, 17900, 16800, 17300, 
16500, 15900, 14800, 14500, 13700, 12000, 10600, 8660, 7280, 
3930, 563, -2820, -5670, -9110, -1200, -1440, -1650, -1800, -1810, 
-1680, -1600, -1390, -1070, -7480, -4500, -1510, 1510, 4530, 
6350, 7860, 9990, 12100, 13900, 15400, 17200, 18700, 21000, 23100, 
24200, 24800, 24700, 24100, 23100, 22800, 21500, 20600, 19700
), sampdt = structure(c(591667800, 591668400, 591669000, 591669600, 
591670200, 591670800, 591671400, 591672000, 591672600, 591673200, 
591673800, 591674400, 591675000, 591675600, 591676200, 591676800, 
591677400, 591678000, 591678600, 591679200, 591679800, 591680400, 
591681000, 591681600, 591682200, 591682800, 591683400, 591684000, 
591684600, 591685200, 591685800, 591686400, 591687000, 591687600, 
591688200, 591688800, 591689400, 591690000, 591690600, 591691200, 
591691800, 591692400, 591693000, 591693600, 591694200, 591694800, 
591695400, 591696000, 591696600, 591697200, 591697800, 591698400, 
591699000, 591699600, 591700200, 591700800, 591701400, 591702000, 
591702600, 591703200, 591703800, 591704400, 591705000, 591705600, 
591706200, 591706800, 591707400, 591708000, 591708600, 591709200, 
591709800, 591710400, 591711000, 591711600, 591712200, 591712800, 
591713400, 591714000, 591714600, 591715200, 591715800, 591716400, 
591717000, 591717600, 591718200, 591718800, 591719400, 591720000, 
591720600, 591721200, 591721800, 591722400, 591723000, 591723600, 
591724200, 591724800, 591725400, 591726000, 591726600, 591727200, 
591727800, 591728400, 591729000, 591729600, 591730200, 591730800, 
591731400, 591732000, 591732600, 591733200, 591733800, 591734400, 
591735000, 591735600, 591736200, 591736800, 591737400, 591738000, 
591738600, 591739200, 591739800, 591740400, 591741000, 591741600, 
591742200, 591742800, 591743400, 591744000, 591744600, 591745200, 
591745800, 591746400, 591747000, 591747600, 591748200, 591748800, 
591749400, 591750000, 591750600, 591751200, 591751800, 591752400, 
591753000), tzone = "UTC", class = c("POSIXct", "POSIXt"))), row.names = c(NA, 
-143L), class = c("tbl_df", "tbl", "data.frame"))
> dput(sal_disc_1988)
structure(list(site_nbr = c("14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000", "14191000", "14191000", "14191000", "14191000", 
"14191000", "14191000"), year = c(1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L), mon = c(10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L), day = c(1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), hr = c(0L, 1L, 1L, 2L, 
2L, 3L, 3L, 4L, 4L, 5L, 5L, 6L, 6L, 7L, 7L, 8L, 8L, 9L, 9L, 10L, 
10L, 11L, 11L, 12L, 12L, 13L, 13L, 14L, 14L, 15L, 15L, 16L, 16L, 
17L, 17L, 18L, 18L, 19L, 19L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 
23L), min = c(30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 
0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 
0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 
0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L), tz = c("PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT"), cfs = c("9430", 
"9400", "9400", "9400", "9400", "9370", "9370", "9370", "9370", 
"9370", "9370", "9370", "9370", "9370", "9370", "9370", "9400", 
"9400", "9400", "9430", "9460", "9460", "9490", "9490", "9490", 
"9550", "9550", "9550", "9550", "9550", "9550", "9520", "9520", 
"9520", "9490", "9460", "9460", "9430", "9430", "9430", "9400", 
"9370", "9370", "9370", "9370", "9370", "9340"), sampdt = structure(c(591669000, 
591670800, 591672600, 591674400, 591676200, 591678000, 591679800, 
591681600, 591683400, 591685200, 591687000, 591688800, 591690600, 
591692400, 591694200, 591696000, 591697800, 591699600, 591701400, 
591703200, 591705000, 591706800, 591708600, 591710400, 591712200, 
591714000, 591715800, 591717600, 591719400, 591721200, 591723000, 
591724800, 591726600, 591728400, 591730200, 591732000, 591733800, 
591735600, 591737400, 591739200, 591741000, 591742800, 591744600, 
591746400, 591748200, 591750000, 591751800), tzone = "UTC", class = c("POSIXct", 
"POSIXt"))), row.names = c(NA, -47L), class = c("tbl_df", "tbl", 
"data.frame"))

和

> dput(alb_disc_1988)
structure(list(site_nbr = c("14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000", "14174000", "14174000", "14174000", "14174000", 
"14174000", "14174000"), year = c(1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 
1988L, 1988L, 1988L, 1988L, 1988L, 1988L, 1988L), mon = c(10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 
10L, 10L, 10L, 10L, 10L, 10L, 10L), day = c(1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), hr = c(0L, 1L, 1L, 2L, 
2L, 3L, 3L, 4L, 4L, 5L, 5L, 6L, 6L, 7L, 7L, 8L, 8L, 9L, 9L, 10L, 
10L, 11L, 11L, 12L, 12L, 13L, 13L, 14L, 14L, 15L, 15L, 16L, 16L, 
17L, 17L, 18L, 18L, 19L, 19L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 
23L), min = c(30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 
0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 
0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L, 
0L, 30L, 0L, 30L, 0L, 30L, 0L, 30L), tz = c("PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", 
"PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT", "PDT"), cfs = c(6400, 
6400, 6400, 6400, 6380, 6380, 6380, 6380, 6380, 6380, 6380, 6380, 
6380, 6380, 6370, 6370, 6370, 6370, 6370, 6350, 6350, 6330, 6310, 
6310, 6310, 6310, 6290, 6270, 6270, 6250, 6270, 6250, 6250, 6250, 
6230, 6230, 6230, 6230, 6230, 6220, 6220, 6220, 6230, 6220, 6220, 
6220, 6220), sampdt = structure(c(591669000, 591670800, 591672600, 
591674400, 591676200, 591678000, 591679800, 591681600, 591683400, 
591685200, 591687000, 591688800, 591690600, 591692400, 591694200, 
591696000, 591697800, 591699600, 591701400, 591703200, 591705000, 
591706800, 591708600, 591710400, 591712200, 591714000, 591715800, 
591717600, 591719400, 591721200, 591723000, 591724800, 591726600, 
591728400, 591730200, 591732000, 591733800, 591735600, 591737400, 
591739200, 591741000, 591742800, 591744600, 591746400, 591748200, 
591750000, 591751800), tzone = "UTC", class = c("POSIXct", "POSIXt"
))), row.names = c(NA, -47L), class = c("tbl_df", "tbl", "data.frame"
))

如果需要更多資訊，我會提供。

TIA，豐富

uj5u.com熱心網友回復：

在sal_disc_1988資料框中，它看起來像cfs一個字符；而在另一個資料幀 ( alb_disc_1988) 中，它是雙倍的。列必須具有與 相同的資料型別bind_rows。但是您可以mutate在系結行時使用資料型別。或者你也可以在使用前mutate先改變。sal_disc_1988bind_rows

library(tidyverse)

sal_alb_disc_1988 <- dplyr::bind_rows(mutate(sal_disc_1988,
                                             cfs = as.numeric(cfs)),
                                      mutate(alb_disc_1988, cfs = as.numeric(cfs)))

如果你想sal_disc_1988在系結之前修復，那么你可以使用dplyr或基于 R。然后，你會bind_rows像往常一樣運行。

sal_disc_1988 <- sal_disc_1988 %>%
  mutate(cfs = as.numeric(cfs))

# Or using base R
sal_disc_1988$cfs <- as.numeric(sal_disc_1988$cfs)

sal_alb_disc_1988 <- dplyr::bind_rows(sal_disc_1988, alb_disc_1988)

對于繪圖，我假設您想按時間繪圖。如果是這樣，那么你可以做這樣的事情。與其他站點相比，站點編號 14174000 變化很小，這就是看似平坦的線的原因。

sal_alb_disc_1988 %>% 
  ggplot(aes(x = sampdt, y = cfs, color = site_nbr)) 
  geom_line()

輸出

ggplot2：使用 bind_rows() 組合兩個小標題并使用相同的軸和兩個行組識別符號繪制兩條線

uj5u.com熱心網友回復：

像這樣的東西？

library(tidyverse)

# How to use `bind_rows` to get one tibble
single_tibble <- bind_rows(sal_disc_1988, alb_disc_1988)

# How to plot with `ggplot`
ggplot(single_tibble, aes(x=sampdt, y=cfs, color=site_nbr))   
  geom_line()

ggplot2：使用 bind_rows() 組合兩個小標題并使用相同的軸和兩個行組識別符號繪制兩條線

uj5u.com熱心網友回復：

列sal_disc_1988$cfs是一個字符并且alb_disc_1988$cfs是數字，這就是為什么bind_rows()不起作用。嘗試

library (tidyverse)

df <- sal_disc_1988 %>% 
  mutate(cfs=as.numeric(cfs)) %>% 
  bind_rows(alb_disc_1988)

對于繪圖，只需

df %>%
  ggplot(aes(x = sampdt, y = cfs, color = site_nbr))  
  geom_line()

轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/397045.html

標籤：r ggplot2 整理宇宙

上一篇：移動字串中的字母字符

下一篇：dplyr過濾器-如何過濾多個邏輯條件的補充

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • GPU虛擬機創建時間深度優化

    **?桔妹導讀：**GPU虛擬機實體創建速度慢是公有云面臨的普遍問題，由于通常情況下創建虛擬機屬于低頻操作而未引起業界的重視，實際生產中還是存在對GPU實體創建時間有苛刻要求的業務場景。本文將介紹滴滴云在解決該問題時的思路、方法、并展示最終的優化成果。 從公有云服務商那里購買過虛擬主機的資深用戶，一 ......

    uj5u.com 2020-09-10 06:09:13 more
  • 可編程網卡芯片在滴滴云網路的應用實踐

    **?桔妹導讀：**隨著云規模不斷擴大以及業務層面對延遲、帶寬的要求越來越高，采用DPDK 加速網路報文處理的方式在橫向縱向擴展都出現了局限性。可編程芯片成為業界熱點。本文主要講述了可編程網卡芯片在滴滴云網路中的應用實踐，遇到的問題、帶來的收益以及開源社區貢獻。 #1. 資料中心面臨的問題 隨著滴滴 ......

    uj5u.com 2020-09-10 06:10:21 more
  • 滴滴資料通道服務演進之路

    **?桔妹導讀：**滴滴資料通道引擎承載著全公司的資料同步，為下游實時和離線場景提供了必不可少的源資料。隨著任務量的不斷增加，資料通道的整體架構也隨之發生改變。本文介紹了滴滴資料通道的發展歷程，遇到的問題以及今后的規劃。 #1. 背景 資料，對于任何一家互聯網公司來說都是非常重要的資產，公司的大資料 ......

    uj5u.com 2020-09-10 06:11:05 more
  • 滴滴AI Labs斬獲國際機器翻譯大賽中譯英方向世界第三

    **桔妹導讀：**深耕人工智能領域，致力于探索AI讓出行更美好的滴滴AI Labs再次斬獲國際大獎，這次獲獎的專案是什么呢？一起來看看詳細報道吧！ 近日，由國際計算語言學協會ACL（The Association for Computational Linguistics）舉辦的世界最具影響力的機器 ......

    uj5u.com 2020-09-10 06:11:29 more
  • MPP (Massively Parallel Processing)大規模并行處理

    1、什么是mpp？ MPP (Massively Parallel Processing)，即大規模并行處理，在資料庫非共享集群中，每個節點都有獨立的磁盤存盤系統和記憶體系統，業務資料根據資料庫模型和應用特點劃分到各個節點上，每臺資料節點通過專用網路或者商業通用網路互相連接，彼此協同計算，作為整體提供 ......

    uj5u.com 2020-09-10 06:11:41 more
  • 滴滴資料倉庫指標體系建設實踐

    **桔妹導讀：**指標體系是什么？如何使用OSM模型和AARRR模型搭建指標體系？如何統一流程、規范化、工具化管理指標體系？本文會對建設的方法論結合滴滴資料指標體系建設實踐進行解答分析。 #1. 什么是指標體系 ##1.1 指標體系定義 指標體系是將零散單點的具有相互聯系的指標，系統化的組織起來，通 ......

    uj5u.com 2020-09-10 06:12:52 more
  • 單表千萬行資料庫 LIKE 搜索優化手記

    我們經常在資料庫中使用 LIKE 運算子來完成對資料的模糊搜索，LIKE 運算子用于在 WHERE 子句中搜索列中的指定模式。 如果需要查找客戶表中所有姓氏是“張”的資料，可以使用下面的 SQL 陳述句： SELECT * FROM Customer WHERE Name LIKE '張%' 如果需要 ......

    uj5u.com 2020-09-10 06:13:25 more
  • 滴滴Ceph分布式存盤系統優化之鎖優化

    **桔妹導讀：**Ceph是國際知名的開源分布式存盤系統，在工業界和學術界都有著重要的影響。Ceph的架構和演算法設計發表在國際系統領域頂級會議OSDI、SOSP、SC等上。Ceph社區得到Red Hat、SUSE、Intel等大公司的大力支持。Ceph是國際云計算領域應用最廣泛的開源分布式存盤系統， ......

    uj5u.com 2020-09-10 06:14:51 more
  • es~通過ElasticsearchTemplate進行聚合~嵌套聚合

    之前寫過《es~通過ElasticsearchTemplate進行聚合操作》的文章，這一次主要寫一個嵌套的聚合，例如先對sex集合，再對desc聚合，最后再對age求和，共三層嵌套。 Aggregations的部分特性類似于SQL語言中的group by，avg，sum等函式,Aggregation ......

    uj5u.com 2020-09-10 06:14:59 more
  • 爬蟲日志監控 -- Elastc Stack（ELK）部署

    傻瓜式部署，只需替換IP與用戶 導讀： 現ELK四大組件分別為：Elasticsearch（核心）、logstash（處理）、filebeat（采集）、kibana（可視化） 下載均在https://www.elastic.co/cn/downloads/下tar包，各組件版本最好一致，配合fdm會 ......

    uj5u.com 2020-09-10 06:15:05 more
最新发布
  • day02-2-商鋪查詢快取

    功能02-商鋪查詢快取 3.商鋪詳情快取查詢 3.1什么是快取？ 快取就是資料交換的緩沖區（稱作Cache），是存盤資料的臨時地方，一般讀寫性能較高。 快取的作用： 降低后端負載 提高讀寫效率，降低回應時間 快取的成本： 資料一致性成本 代碼維護成本 運維成本 3.2需求說明 如下，當我們點擊商店詳 ......

    uj5u.com 2023-04-20 08:33:24 more
  • MySQL中binlog備份腳本分享

    關于MySQL的二進制日志（binlog），我們都知道二進制日志（binlog）非常重要，尤其當你需要point to point災難恢復的時侯，所以我們要對其進行備份。關于二進制日志（binlog)的備份,可以基于flush logs方式先切換binlog，然后拷貝&壓縮到到遠程服務器或本地服務器 ......

    uj5u.com 2023-04-20 08:28:06 more
  • day02-短信登錄

    功能實作02 2.功能01-短信登錄 2.1基于Session實作登錄 2.1.1思路分析 2.1.2代碼實作 2.1.2.1發送短信驗證碼 發送短信驗證碼： 發送驗證碼的介面為：http://127.0.0.1:8080/api/user/code?phone=xxxxx<手機號> 請求方式：PO ......

    uj5u.com 2023-04-20 08:27:27 more
  • 快取與資料庫雙寫一致性幾種策略分析

    本文將對幾種快取與資料庫保證資料一致性的使用方式進行分析。為保證高并發性能，以下分析場景不考慮執行的原子性及加鎖等強一致性要求的場景，僅追求最終一致性。 ......

    uj5u.com 2023-04-20 08:26:48 more
  • sql陳述句優化

    問題查找及措施 問題查找 需要找到具體的代碼，對其進行一對一優化，而非一直把關注點放在服務器和sql平臺 降低簡化每個事務中處理的問題，盡量不要讓一個事務拖太長的時間 例如檔案上傳時，應將檔案上傳這一步放在事務外面 微軟建議 4.啟動sql定時執行計劃 怎么啟動sqlserver代理服務-百度經驗 ......

    uj5u.com 2023-04-20 08:26:35 more
  • 云時代，MySQL到ClickHouse資料同步產品對比推薦

    ClickHouse 在執行分析查詢時的速度優勢很好的彌補了MySQL的不足，但是對于很多開發者和DBA來說，如何將MySQL穩定、高效、簡單的同步到 ClickHouse 卻很困難。本文對比了 NineData、MaterializeMySQL（ClickHouse自帶）、Bifrost 三款產品... ......

    uj5u.com 2023-04-20 08:26:29 more
  • sql陳述句優化

    問題查找及措施 問題查找 需要找到具體的代碼，對其進行一對一優化，而非一直把關注點放在服務器和sql平臺 降低簡化每個事務中處理的問題，盡量不要讓一個事務拖太長的時間 例如檔案上傳時，應將檔案上傳這一步放在事務外面 微軟建議 4.啟動sql定時執行計劃 怎么啟動sqlserver代理服務-百度經驗 ......

    uj5u.com 2023-04-20 08:25:13 more
  • Redis 報”OutOfDirectMemoryError“（堆外記憶體溢位)

    Redis 報錯“OutOfDirectMemoryError（堆外記憶體溢位) ”問題如下： 一、報錯資訊： 使用 Redis 的業務介面 ，產生 OutOfDirectMemoryError（堆外記憶體溢位），如圖： 格式化后的報錯資訊： { "timestamp": "2023-04-17 22: ......

    uj5u.com 2023-04-20 08:24:54 more
  • day02-2-商鋪查詢快取

    功能02-商鋪查詢快取 3.商鋪詳情快取查詢 3.1什么是快取？ 快取就是資料交換的緩沖區（稱作Cache），是存盤資料的臨時地方，一般讀寫性能較高。 快取的作用： 降低后端負載 提高讀寫效率，降低回應時間 快取的成本： 資料一致性成本 代碼維護成本 運維成本 3.2需求說明 如下，當我們點擊商店詳 ......

    uj5u.com 2023-04-20 08:24:03 more
  • day02-短信登錄

    功能實作02 2.功能01-短信登錄 2.1基于Session實作登錄 2.1.1思路分析 2.1.2代碼實作 2.1.2.1發送短信驗證碼 發送短信驗證碼： 發送驗證碼的介面為：http://127.0.0.1:8080/api/user/code?phone=xxxxx<手機號> 請求方式：PO ......

    uj5u.com 2023-04-20 08:23:11 more

Copyright © 2010-2020 有解無憂