如何將此表變成數據框？ 我正在使用 R。 試圖得到它的方差分析表

Question

這是我所擁有的，但我認為它不正確：

gas.test <- data.frame(gas=c(0, 14, 12, 13, 11, 17, 0, 13, 11, 10, 14, 14, 0,
                             12, 12, 13, 13, 12, 0, 11, 12, 10, 9, 8, 0),
                       Test_Car = factor(rep(c("A", "B", "C", "D", "E"), each=5)),
                       Additive = factor(rep(c(1, 2, 3, 4, 5), 5)))

Answer 1

我猜你是在從 gas.test 中取出矩陣之后，或者反過來。

這里有兩個選項，使用pivot_wider和pivot_longer 。

library(tidyr)
gas.test %>%
        pivot_wider(names_from = Test_Car, values_from = gas)

 # A tibble: 5 x 6 Additive AB C DE <fct> <dbl> <dbl> <dbl> <dbl> <dbl> 1 1 0 17 14 13 12 2 2 14 0 14 13 10 3 3 12 13 0 12 9 4 4 13 11 12 0 8 5 5 11 10 12 11 0

 mat %>% pivot_longer(!Additive, names_to = "Test_Cars", values_to = "gas")

 # A tibble: 25 x 3 Additive Test_Cars gas <fct> <chr> <dbl> 1 1 A 0 2 1 B 17 3 1 C 14 4 1 D 13 5 1 E 12

---

使用spread和gather功能。

mat <- gas.test %>% spread(key = Test_Car, value = gas)

gas.test <- mat %>% gather(key = Test_Car, value = gas, -Additive)