我有這段R代碼應該繪制一些資料
uj5u.com熱心網友回復：
對不起 - 我錯誤地認為“天”是一個因素 - 感謝您修復斷開的鏈接。
一種潛在的解決方案是添加“群體”美學，例如
library(tidyverse)
theme_set(theme_classic())
growth_data <- read.delim ("~/Desktop/growth_data.txt") %>% tibble()
#tidying the data.
growth_data_long <- growth_data %>% pivot_longer(-animal,
names_to=("Day"),
values_to=("Growth"))
growth2 <- growth_data_long %>%
mutate(group = str_extract(animal, "\\w "))
growth2
#> # A tibble: 60 × 4
#> animal Day Growth group
#> <chr> <chr> <dbl> <chr>
#> 1 Control 1 Day.1 1.08 Control
#> 2 Control 1 Day.2 1.49 Control
#> 3 Control 1 Day.3 2.73 Control
#> 4 Control 1 Day.4 2.81 Control
#> 5 Control 1 Day.5 3.8 Control
#> 6 Control 1 Day.6 4.8 Control
#> 7 Control 2 Day.1 1.22 Control
#> 8 Control 2 Day.2 1.86 Control
#> 9 Control 2 Day.3 2.01 Control
#> 10 Control 2 Day.4 2.53 Control
#> # … with 50 more rows
growth2 %>%
filter(group != "") %>%
ggplot(aes(Day, Growth, color = group, group = group))
geom_point()
geom_smooth(method = "lm")
#> `geom_smooth()` using formula 'y ~ x'
由reprex 包(v2.0.1)于 2021 年 10 月 11 日創建
檔案更詳細地介紹了分組。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/315843.html