Изменение формы данных в R?
Это мой dataframe action_slippers:
X_id cd iios ui w
1 56548c6ab65dd425cc3dda13 2015-11-24T16:12:26.572Z 194635691 563734c3b65dd40e340eaa56 0.010
2 56548df4b84c321fe4cdfb91 2015-11-24T16:19:00.798Z 194153563 56548df4b84c321fe4cdfb8f 0.010
3 56548fc7735e782a88591662 2015-11-24T16:26:46.952Z 177382028 563e12657d4c410c5832579c 0.010
4 565494e1b84c321fe4ce2f44 2015-11-24T16:48:33.828Z 177382031 563e12657d4c410c5832579c 0.010
5 5654994a735e782a88595802 2015-11-24T17:07:18.269Z 195129144 56549946735e782a885957e6 0.080
6 56549ce2b65dd425cc3e550c 2015-11-24T17:22:42.775Z 196972549 565181854c24b410e4891e11 0.010
7 56549f9bb84c321fe4ce7a3a 2015-11-24T17:34:19.732Z 194153563 56549f9bb84c321fe4ce7a37 0.010
8 5654a35a735e782a8859a055 2015-11-24T17:50:18.068Z 196258704 5654a35a735e782a8859a053 0.010
9 5654a5bab8e3a9227cffd593 2015-11-24T18:00:26.102Z 194907960 56320e0e55e89c3e14e26d3d 0.010
10 5654a7bb735e782a8859c495 2015-11-24T18:08:59.476Z 196950156 5651b53fec231f1df8482d23 0.027
11 5654a8955ff32d03cc2124b3 2015-11-24T18:12:37.381Z 194907960 5654a8955ff32d03cc2124b1 0.080
я написал следующие коды:
for (i in 1:nrow(actions_slippers)) {
if (actions_slippers$w[i]==0.027) {
user_id=actions_slippers$ui[i]
for (j in 1:i) {
mydf <- data.frame(
ui = c(actions_slippers$ui[1:i]),
w = c(actions_slippers$w[1:i]),
iios = factor(
c(actions_slippers$iios[1:i]),
levels = unique(x)))
a= dcast(mydf, formula = ui ~ iios,
fill = 0, value.var = "w",
fun.aggregate = sum, drop = FALSE)
Я использовал пакет reshape2 и dataframe action_slippers, преобразованные в dataframe, который выглядит следующим образом:
ui 194635691 194153563 177382028 177382031 195129144 196972549 196258704 194907960 196950156 194139014 153444738 192982501 192891196
1 237 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.01 0.000 0 0 0 0
2 261 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.000 0 0 0 0
3 290 0.00 0.00 0.01 0.01 0.00 0.00 0.00 0.00 0.000 0 0 0 0
4 483 0.00 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.000 0 0 0 0
5 485 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.027 0 0 0 0
6 533 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.000 0 0 0 0
7 534 0.00 0.00 0.00 0.00 0.08 0.00 0.00 0.00 0.000 0 0 0 0
8 535 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.000 0 0 0 0
9 536 0.00 0.00 0.00 0.00 0.00 0.00 0.01 0.00 0.000 0 0 0 0
но проблема в том, что значения пользовательского интерфейса меняются, как вы можете видеть. Кто-нибудь может сказать мне, как я могу предотвратить изменение значений пользовательского интерфейса?
1 ответ
Вы конвертировали фактор actions_slippers$ui в число. Чтобы избежать этого, вы можете преобразовать его в персонажа, преобразовав:
ui = c(actions_slippers$ui[1:i])
в
ui = c(as.character(actions_slippers$ui[1:i]))
Однако ваш код неоправданно сложен - всегда полезно избегать циклов в r, если это возможно. Глядя на свой код, вы хотите исключить все после последнего w == 0.027, добавить w столбец для каждой комбинации iios а также ui и распространять результат.
Вот гораздо более быстрое решение, используя dplyr а также tidyr
library(dplyr)
library(tidyr)
actions_slippers %>%
filter(row_number() <= which.max(w == 0.027)) %>%
group_by(iios, ui) %>%
summarise(w = sum(w)) %>%
spread(iios, w, fill = 0)
Source: local data frame [9 x 10]
ui 177382028 177382031 194153563 194635691 194907960 195129144 196258704 196950156
(fctr) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl)
1 56320e0e55e89c3e14e26d3d 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.000
2 563734c3b65dd40e340eaa56 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.000
3 563e12657d4c410c5832579c 0.01 0.01 0.00 0.00 0.00 0.00 0.00 0.000
4 565181854c24b410e4891e11 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.000
5 5651b53fec231f1df8482d23 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.027
6 56548df4b84c321fe4cdfb8f 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.000
7 56549946735e782a885957e6 0.00 0.00 0.00 0.00 0.00 0.08 0.00 0.000
8 56549f9bb84c321fe4ce7a37 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.000
9 5654a35a735e782a8859a053 0.00 0.00 0.00 0.00 0.00 0.00 0.01 0.000
Variables not shown: 196972549 (dbl)