将行放在列中，并将它们对应的值放在 r 中的行中

Question

我的原始数据框是这种格式：

我想在列中获取日期，在行中获取变量Sun和Soil_moisture并将其命名为metric 。 它们的值应水平放置，如下所示。

它在r中可行吗？ 由于 r 不允许数字出现在列标题中，因此我以 d 为前缀

我的示例数据集：

data <- data.frame(country = c("US","US","US","IND","IND","IND"),
                   state = c("TX","TX","TX","AP","AP","AP"),
                   date = c("20220601","20220602","20220603","20220601","20220602","20220603"),
                   Sun = c(30,35,40,20,30,40),
                   Soil_moisture = c(2.5,3.4,4.5,5.6,6.7,7.8))

我尝试了dcast函数，但变量Sun没有进入行。

library(data.table)
dcast(data,country+state~date,value.var = "Sun")

请建议

Answer 1

您可以结合使用melt和dcast ：

library(data.table)

dcast(
  melt(
    setDT(data),
    id.vars = c("country", "state", "date"),
    variable.name = "metric"
  ),
  country + state + metric ~ paste0("d_", date)
)

输出

   country  state        metric d_20220601 d_20220602 d_20220603
    <char> <char>        <fctr>      <num>      <num>      <num>
1:     IND     AP           Sun       20.0       30.0       40.0
2:     IND     AP Soil_moisture        5.6        6.7        7.8
3:      US     TX           Sun       30.0       35.0       40.0
4:      US     TX Soil_moisture        2.5        3.4        4.5

如果您遗漏了paste0 ，那么它将仅返回日期作为列名。 但是作为@jdobres，这通常是不可取的。

Answer 2

使用tidyverse及其pivot_wider和pivot_longer函数相当简单：

library(tidyverse)

new_data <- data %>% 
  pivot_longer(c(Sun, Soil_moisture), names_to = 'metric', values_to = 'value') %>% 
  pivot_wider(names_prefix = 'd_', names_from = 'date', values_from = 'value')

  country state metric        d_20220601 d_20220602 d_20220603
  <chr>   <chr> <chr>              <dbl>      <dbl>      <dbl>
1 US      TX    Sun                 30         35         40  
2 US      TX    Soil_moisture        2.5        3.4        4.5
3 IND     AP    Sun                 20         30         40  
4 IND     AP    Soil_moisture        5.6        6.7        7.8

您实际上可以通过省略names_prefix参数来强制pivot_wider使用日期作为列名，但使用数字列名通常是个坏主意。