我有一个数据集如下：
` GN Datum Land AG..GKV. MTCR..GKV. NSGI..GKV. NSGII..GKV. WA..GKV. ML..GKV. Wert
8 11693 2012-01-05 Kenia 5A001f 159700
9 11710 2012-01-05 Indien 1C350.43 18752
10 11749 2012-01-05 Taiwan, Provinz von China 2B350g2 24000
11 11750 2012-01-05 Indien 2B201a1 2B001b2 370296
12 11751 2012-01-05 Serbien 2B201a 7200
13 11752 2012-01-05 Indien 4c 6037
14 11753 2012-01-05 Rumänien 2B001d 7830
15 11755 2012-01-06 China 2B201a1 215987
16 11756 2012-01-06 China 2B201a1 234736
17 11757 2012-01-06 Brasilien 2B231 69900
18 11758 2012-01-06 Brasilien 2B231 139800
19 11788 2012-01-07 Kongo 139800
GN我是一个唯一的ID。正如您所看到的，对于每一行，变量AG..GKV.直到ML..GKV最多只保留一个值，在GN == 11750的情况下会出现。
我想将这些变量合并为一个，但仍然知道原始变量名称是什么，如下所示：
` GN Datum Land variable value Wert
8 11693 2012-01-05 Kenia WA..GKV. 5A001f 159700
9 11710 2012-01-05 Indien AG..GKV. 1C350.43 18752
...
如果GN == 11750中每行有两个值，它应该如下所示：
` GN Datum Land variable value Wert
11 11750 2012-01-05 Indien NSGII..GKV.\nWA..GKV. 2B201a1\n2B201a 370296
即，“double”变量和值应该用新的行分隔符分隔。
更新：还有一种特殊情况：当一行没有任何值时。我想保留这些（参见上面和下面的GN == 19）。在这种情况下，variable和value应为空。
` GN Datum Land variable value Wert
19 11788 2012-01-07 Kongo 370296
我不知道如何实现这一点，并且已经尝试了reshape包，但可能是一个R菜鸟太多了。
这是dput（与上述情况不同，但有三种结果）：
structure(list(GN = c(11789L, 11790L, 11791L, 11793L, 11794L,
11795L, 11796L), Datum = structure(c(15355, 15355, 15355, 15355,
15355, 15356, 15356), class = "Date"), Land = c("China", "Israel",
"Pakistan", "Iran, Islamische Republik", "Hong Kong", "Südafrika",
"Lettland"), AG..GKV. = c("2B350d4", "", "", "", "", "", ""),
MTCR..GKV. = c("", "", "", "", "", "", ""), NSGI..GKV. = c("",
"", "", "", "", "", ""), NSGII..GKV. = c("", "", "", "",
"", "", "2B201a1"), WA..GKV. = c("", "7A002a+b", "", "",
"3A001a2c", "6A003b4", "2B001b2"), ML..GKV. = c("", "", "",
"", "", "", ""), Wert = c(63720, 25672, 1608000, 10738, 202500,
13500, 374873)), .Names = c("GN", "Datum", "Land", "AG..GKV.",
"MTCR..GKV.", "NSGI..GKV.", "NSGII..GKV.", "WA..GKV.", "ML..GKV.",
"Wert"), row.names = 49:55, class = "data.frame")
答案 0 :(得分：2)
您可以尝试（df是您的data.frame）：
变量名称：
df$variable<-apply(df[,4:9],1,function(x){paste(colnames(df[,4:9])[which(x!="")],collapse="\n")})
值：
df$value<-apply(df[,4:9],1,function(x){paste(x[which(x!="")],collapse="\n")})
最后，删除原始列并重新组织：
df<-df[,c(1:3,11:12,10)]
输出：
> df
GN Datum Land variable value Wert
8 11693 2012-01-05 Kenia WA..GKV. 5A001f 159700
9 11710 2012-01-05 Indien AG..GKV. 1C350.43 18752
10 11749 2012-01-05 Taiwan, Provinz von China AG..GKV. 2B350g2 24000
11 11750 2012-01-05 Indien NSGII..GKV.\nWA..GKV. 2B201a1\n2B001b2 370296
12 11751 2012-01-05 Serbien NSGII..GKV. 2B201a 7200
13 11752 2012-01-05 Indien ML..GKV. 4c 6037
14 11753 2012-01-05 Rumänien WA..GKV. 2B001d 7830
15 11755 2012-01-06 China NSGII..GKV. 2B201a1 215987
16 11756 2012-01-06 China NSGII..GKV. 2B201a1 234736
17 11757 2012-01-06 Brasilien NSGII..GKV. 2B231 69900
18 11758 2012-01-06 Brasilien NSGII..GKV. 2B231 139800
答案 1 :(得分：2)
这是tidyr和dplyr的选项：
library(dplyr)
library(tidyr)
DF %>% gather(Variable, Value, AG..GKV.:ML..GKV.) %>%
filter(Value != "") %>% group_by(GN, Datum, Land) %>%
summarise_each(funs(paste(unique(.), collapse = "\n")))
#Source: local data frame [11 x 6]
#Groups: GN, Datum
#
# GN Datum Land Wert Variable Value
#1 11693 2012-01-05 Kenia 159700 WA..GKV. 5A001f
#2 11710 2012-01-05 Indien 18752 AG..GKV. 1C350.43
#3 11749 2012-01-05 Taiwan, Provinz von China 24000 AG..GKV. 2B350g2
#4 11750 2012-01-05 Indien 370296 NSGII..GKV.\nWA..GKV. 2B201a1\n2B001b2
#5 11751 2012-01-05 Serbien 7200 NSGII..GKV. 2B201a
#6 11752 2012-01-05 Indien 6037 ML..GKV. 4c
#7 11753 2012-01-05 Rumänien 7830 WA..GKV. 2B001d
#8 11755 2012-01-06 China 215987 NSGII..GKV. 2B201a1
#9 11756 2012-01-06 China 234736 NSGII..GKV. 2B201a1
#10 11757 2012-01-06 Brasilien 69900 NSGII..GKV. 2B231
#11 11758 2012-01-06 Brasilien 139800 NSGII..GKV. 2B231
请注意，这只会创建以＆＃34; \ n＆＃34;分隔的多个条目。如果他们是唯一，我认为这是你想要做的。
对于您的特殊情况，请尝试以下代码：
DF %>% gather(Variable, Value, AG..GKV.:ML..GKV.) %>%
group_by(GN, Datum, Land) %>% filter(if(all(Value == "")) row_number() == 1 else Value != "") %>%
summarise_each(funs(paste(unique(.), collapse = "\n")))
说明：
gather将数据从宽格式转换为长格式（使用列AG..GKV。直到ML..GKV。）\n