arrays - 将数据框转换为逗号分隔字符串列表的最快方法

Question

我有一个包含市镇名称和州名称的数据框。它看起来像这样:

 my.df <- structure(list(Location = c("Abatiá", "Adrianópolis", "Agudos do Sul", 
"Almirante Tamandaré", "Altamira do Paraná", "Altônia"), State = c("PR", 
"PR", "PR", "PR", "PR", "PR")), .Names = c("Location", "State"
), row.names = 0:5, class = "data.frame")

我需要做的是将此数据框转换为数组。预期的输出是这样的:

my.array$PR
Abatiá, PR
Adrianópolis, PR
Agudos do Sul, PR
...

my.array$RS
Vitória das Missões, RS
Westfalia, RS
Xangri-lá, RS
...

等等。

我怎样才能到达那里？

我的实际数据集大约有 10k 行，因此可能需要快速解决方案而不是易读性。谢谢!

Answer 1

以下内容应该可以满足您的需求。

df = data.frame("location" = c("a", "b", "c", "d", "e", "f"), "state" = c("pr", "pr", "pr", "rs", "rs", "rs"), stringsAsFactors=F)
my.array = lapply(unique(df$state), function(x) paste(df$location[df$state == x], df$state[df$state == x], sep=", "))
names(my.array) = unique(df$state)
my.array$pr
# [1] "a, pr" "b, pr", "c, pr"

我简化了 df 中的值，但要点保持不变。