dcast 特定列并保留所有答案

【问题标题】：dcast specific column and keep alldcast 特定列并保留所有
【发布时间】：2015-12-11 23:49:48
【问题描述】：

我正在尝试为每种类型的gridNumber 和dcast 获取一个具有每种元素类型的特定值的列，以便它从元素列中创建 3 个单独的列。我不确定该怎么做。

输入：

df <- structure(list(date = structure(c(-25584, -25584, -25584, -25583, 
-25583, -25583, -25582, -25582, -25582, -25581), class = "Date"), 
    year = c(1899, 1899, 1899, 1899, 1899, 1899, 1899, 1899, 
    1899, 1899), month = c(12, 12, 12, 12, 12, 12, 12, 12, 12, 
    12), day = c(15, 15, 15, 16, 16, 16, 17, 17, 17, 18), gridNumber = c(526228, 
    526228, 526228, 526228, 526228, 526228, 526229, 526229, 526229, 
    526229), element = c("PPT", "TMAX", "TMIN", "PPT", "TMAX", 
    "TMIN", "PPT", "TMAX", "TMIN", "PPT"), value = c(0, 43.4782, 
    21.7403, 0, 43.3297, 20.751, 0, 57.3625, 25.8157, 0.2105)), .Names = c("date", 
"year", "month", "day", "gridNumber", "element", "value"), row.names = c(NA, 
10L), class = "data.frame")

data.frame:

         date year month day gridNumber element   value
1  1899-12-15 1899    12  15     526228     PPT  0.0000
2  1899-12-15 1899    12  15     526228    TMAX 43.4782
3  1899-12-15 1899    12  15     526228    TMIN 21.7403
4  1899-12-16 1899    12  16     526228     PPT  0.0000
5  1899-12-16 1899    12  16     526228    TMAX 43.3297
6  1899-12-16 1899    12  16     526228    TMIN 20.7510
7  1899-12-17 1899    12  17     526229     PPT  0.0000
8  1899-12-17 1899    12  17     526229    TMAX 57.3625
9  1899-12-17 1899    12  17     526229    TMIN 25.8157
10 1899-12-18 1899    12  18     526229     PPT  0.2105

dcast 尝试：

newdat <- dcast(df, date ~ element)

所需的输出列：

date year month day gridNumber PPT TMAX TMIN value

【问题讨论】：

标签： r reshape2

【解决方案1】：

我们可以使用dcast。 ~ 左侧的... 包括右侧和value.var 中未指定的所有变量。

library(reshape2)
dcast(df, ...~element, value.var='value')
#        date year month day gridNumber    PPT    TMAX    TMIN
#1 1899-12-15 1899    12  15     526228 0.0000 43.4782 21.7403
#2 1899-12-16 1899    12  16     526228 0.0000 43.3297 20.7510
#3 1899-12-17 1899    12  17     526229 0.0000 57.3625 25.8157
#4 1899-12-18 1899    12  18     526229 0.2105      NA      NA

【讨论】：

这也有效；谢谢！我以为我可以做到 dcast 现在知道 ...
@tino_ladino。你的意思是...~ element 替换为....，但是我们如何识别因变量/自变量

【解决方案2】：

这可能不是您想要的，因为您有一个单独的值列。那么，你在PPT、TMAX和TMIN下面放什么？

下面是如何使用dplyr 和tidyr 将值放在相应列下：

library(dplyr)
library(tidyr)
df1 %>%
spread(element,value)
        date year month day gridNumber    PPT    TMAX    TMIN
1 1899-12-15 1899    12  15     526228 0.0000 43.4782 21.7403
2 1899-12-16 1899    12  16     526228 0.0000 43.3297 20.7510
3 1899-12-17 1899    12  17     526229 0.0000 57.3625 25.8157
4 1899-12-18 1899    12  18     526229 0.2105      NA      NA

只能使用tidyr 写成一行：

spread(df1,element,value)

【讨论】：

这很完美。我不知道你可以在tidyr 中做到这一点。谢谢！