R：将列变成行（附加列）

Question

我有以下数据集，我想了解如何将列切换为 R 中的行。

Pet Shop	Year	Dog	Fish	Turtle
A	2021	275	20	NA
A	2020	250	NA	50
A	2019	NA	NA	NA
B	2021	350	75	NA
B	2020	北美	55	85
B	2019	北美	75	北美
C	2021	280	NA	NA
C	2020	NA	NA	NA
C	2019	NA	60	NA

有没有人对如何将列附加为行有任何建议？

宠物店	年份	动物	价格
A	2021	狗	275
A	2021	鱼	20
A	2021	海龟	NA
A	2020	狗	250
A	2020	鱼	NA
A	2020	海龟	50
A	2019	狗	NA
A	2019	鱼	NA
A	2019	海龟	NA
B	2021	狗	350
B	2021	鱼	75
B	2021	海龟	NA
B	2020	狗	NA
B	2020	鱼	55
B	2020	海龟	85

... 及以后

提前致谢！

Answer 1

library(tidyverse)

df <- data.frame(
  stringsAsFactors = FALSE,
          Pet.Shop = c("A", "A", "A", "B", "B", "B", "C", "C", "C"),
              Year = c(2021L,2020L,2019L,2021L,
                       2020L,2019L,2021L,2020L,2019L),
               dog = c(275L, 250L, NA, 350L, NA, NA, 280L, NA, NA),
              fish = c(20L, NA, NA, 75L, 55L, 75L, NA, NA, 60L),
            turtle = c(NA, 50L, NA, NA, 85L, NA, NA, NA, NA)
)

df %>% 
  as_tibble() %>% 
  pivot_longer(cols = dog:turtle,
               names_to = "Animal",
               values_to = "Prices")

#> # A tibble: 27 x 4
#>    Pet.Shop  Year Animal Prices
#>    <chr>    <int> <chr>   <int>
#>  1 A         2021 dog       275
#>  2 A         2021 fish       20
#>  3 A         2021 turtle     NA
#>  4 A         2020 dog       250
#>  5 A         2020 fish       NA
#>  6 A         2020 turtle     50
#>  7 A         2019 dog        NA
#>  8 A         2019 fish       NA
#>  9 A         2019 turtle     NA
#> 10 B         2021 dog       350
#> # ... with 17 more rows

^{由 reprex 软件包 (v2.0.1) 创建于 2022 年 2 月 25 日}